VBS对Excel导入bas宏文件

最新推荐文章于 2026-06-18 11:48:18 发布

原创最新推荐文章于 2026-06-18 11:48:18 发布 · 1.3k 阅读

3 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#excel

收录于

本文介绍了一段VBA代码，该代码可以实现在Excel中弹出文件选择框，让用户选择.csv文件后，导入并运行预先准备好的宏。通过此方法，用户能够方便地复用已有的宏代码。

没找到几个清楚写出这些功能的代码，自己凑的记录一下

能弹出选择文件框，导入已经写好的宏并运行

Set oExcel=CreateObject("Excel.Application")
    FileFilter = "CSV Files (*.csv),*.csv"
    FilterIndex = default
    Title = "L22meanCalculate"
    ButtonText = ""
    MultiSelect = False
File_Selected= oExcel.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

oExcel.workbooks.open(File_Selected)
oExcel.workbooks.open(File_Selected).VBProject.VBComponents.Import "L22mean.bas"
oExcel.Visible=True

oExcel.Run "L22mean"

Set oExcel = nothing