FileName = Application.GetOpenFilename("Excel文件(*.xls & .xla),.xls;*.xla", , "VBA")
Set xlBook = app.Workbooks.Open(FileName)
For Each Sheet In xlBook.Worksheets
省略
Next
我想要的是,遍历一个指定的工作簿里的所有工作表,用每个sheet做一些操作
但是,明明第一句确实得到了路径,但第二句set,老是无法获得到工作簿对象来遍历
我不太懂vba,这个应该是个小问题吧?
Set xlBook = app.
Workbooks.Open(FileName)
==>
Set xlBook =Application.
Workbooks.Open(FileName)
或直接去掉app.
您好,我是有问必答小助手,您的问题已经有小伙伴帮您解答,感谢您对有问必答的支持与关注!