自动创建文件的快捷方式

Question

我在单击命令按钮下有一小段代码，该代码将工作簿文件以新名称保存在新位置，我想知道是否也可以在不同位置自动创建新保存的工作簿的快捷方式？

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

Answer 1

你基本上需要添加这样的东西：

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

将位置更改为您想要的任何位置。