从excel运行.vbs脚本

时间:2017-10-03 07:15:58

标签: vba excel-vba vbscript excel

我有宏文件,我将其保存为名为macro.vbs的.vbs文件,这是我本地C:Dekstop \ macro.vbs上的位置。这是里面的代码:

Sub Macro3()
Sheets("vlookup").Select
Range("B5").Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("B5").Select
ActiveCell.FormulaR1C1 = "Journal classification (name)"
Range("B6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],LW0640!R2C5:R12163C6,2,TRUE)"
Selection.AutoFill Destination:=Range("B6:B6098")
Range("B6:B6098").Select
end sub

我想要做的是,我想从我的excel文件中调用.vbs脚本。所以我计划在excel中从开发人员创建按钮并调用.vbs文件。

有办法吗?

1 个答案:

答案 0 :(得分:0)

为了让您的工作更轻松,您可以拥有一个中央工作簿,您可以将代码与下面的代码一起放置

Sub test()
    Dim file As String
    Dim wb As Workbook

    file = Worksheets("Sheet1").Range("A1").Value
    Set wb = Workbooks.Open(file)
    call Macro3
    Set wb = Nothing
End Sub

然后,在本工作簿的Sheet1的单元格A1中,您可以放置​​要处理的文件的完整文件路径。 您甚至可以拥有一系列文件路径并循环遍历它。