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
Прекрасное спасибо! Я понятия не имею, почему я не смог найти ответ так просто, как в другом месте –