一个通过VBA建立某文件快捷方式的例子（备注）

最新推荐文章于 2024-04-30 10:25:35 发布

不会编程的财务不是老司机

最新推荐文章于 2024-04-30 10:25:35 发布

阅读量3.2k

点赞数

文章标签： vba integer windows object string c

本文链接：https://blog.csdn.net/choasrules/article/details/6738039

版权

这篇博客介绍了一个VBA宏，用于批量创建文件快捷方式。通过引用Windows Script Host Object Model，代码遍历Excel表格中指定列，当找到不为空的单元格时，它会在特定路径下创建快捷方式，并指定目标文件路径。虽然示例未包含设置图标部分，但展示了基本的快捷方式创建流程。

摘要由CSDN通过智能技术生成

Sub CreatShortCut()
    
    '设定引用项目 Windows Script Host Object Model
    Dim myWsh    As IWshRuntimeLibrary.WshShell
    Dim myShtCut As IWshRuntimeLibrary.WshShortcut
    Dim myPath   As String
    Dim row As Integer
    
    Set myWsh = CreateObject("Wscript.Shell")
    
    For row = 2 To 500
    
        If Cells(row, 1).Value <> "" And Cells(row, 2).Value <> "" And Cells(row, 3).Value <> "" Then
        
            myPath = Cells(row, 3).Value
            
             '指定快捷方式名称
            Set myShtCut = myWsh.CreateShortcut(myPath & "\" & Left(Cells(row, 2).Value, Len(Cells(row, 2).Value) - 4) & ".lnk")
    
            With myShtCut
    
                .TargetPath = Cells(row, 1).Value & "\" & Cells(row, 2).Value                 '指定档案的路径
                '.IconLocation = "c:\tempico.ico"     ‘设定图标
                .Save
        
            End With
            
        Else
        
            Exit For
            
        End If
        
    Next
        
    Set myShtCut = Nothing                      '对象的释放
    Set myWsh = Nothing

End Sub