VBS对Excel导入bas宏文件

最新推荐文章于 2024-03-01 10:44:29 发布

★ 好好先生★

最新推荐文章于 2024-03-01 10:44:29 发布

阅读量874

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/qq_53594245/article/details/128320565

版权

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

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

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