作者:乔山办公网日期:
返回目录:excel表格制作
那肯定就是文件路径不对喽 你完全可以msgbox CStr(varFileList(l)) 来看看这个变量具体是什么内容 核对下就清楚了
1、首先将Excel文档(默认新建扩展名为xlsx),另存为启用宏的zhidao工作簿,扩展名为xlsm。
2、按下组合键ALt+F11快速切换到VBA窗口。
3、进入VBA窗口后的界面,如图所示。
4、双击ThisWorkbook后,会弹出一个代版码窗口。
5、在代码窗口中复制粘贴权以下代码:Private Sub Workbook_Open(),MsgBox ("欢迎您使用Excel2013"),End Sub。
6、保存,关闭,重新打开Excel(扩展名为xlsm)文档,效果如图所示。
Option Explicit
Sub main()
Dim wb As Workbook
Set wb = Workbooks.Open("d:\1.xlsm")
Application.Run "1.xlsm!tt"
wb.Close
Set wb = Nothing
End Sub
这是zhidao个示例,我把两工作簿都在D盘了根目录运行的,版你可以改代码,也可以该路径权,详见附件
可以用
workbooks.open "d:\d.xls"
application.run "d.xls!macro"
来打开某文件并运行宏