2015-10-19 3 views
1

У меня есть небольшой фрагмент кода под кнопкой командной кнопки, который сохраняет файл рабочей книги с новым именем в новом месте, мне интересно, можно ли также автоматически создавать ярлык для что недавно сохраненная книга в другом месте?Автоматически создавать ярлык для файла

Private Sub CommandButton1_Click() 
Dim SelectedFNumber As String 
Dim DateStr As String 
Dim myFileName As String 
Dim StorePath As String 

    DateStr = Format(Now, "dd.mm.yy HH.mm") 

    SelectedFNumber = Range("B4").Text 

    If SelectedFNumber <> "SELECT F NUMBER" And Range("D11") > "0" Then 

     StorePath = "G:\Targets\" & SelectedFNumber & "\" 

     myFileName = StorePath & SelectedFNumber & " " & DateStr & ".xlsm 

     If Len(Dir(StorePath, vbDirectory)) = 0 Then 
     MkDir StorePath 
     End If 

     ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled 
    Else 
     MsgBox "Select an F Number" 
    End If 
End Sub 

ответ

2

Вы в основном нужно добавить что-то вроде этого:

Dim sShortcutLocation As String 

sShortcutLocation = "C:\blah\workbook shortcut.lnk" 

With CreateObject("WScript.Shell").CreateShortcut(sShortcutLocation) 
    .TargetPath = myFileName 
    .Description = "Shortcut to the file" 
    .Save 
End With 

изменения места, куда вы хотите.

+0

Прекрасное спасибо! Я понятия не имею, почему я не смог найти ответ так просто, как в другом месте –

Смежные вопросы