wordbooks 运行时错误'9'下标越界

Question

新建 Microsoft Office Excel 工作表.xlsx 已经打开Sub wwwww()    bbb = "新建 Microsoft Office Excel 工作表.xlsx"    Debug.Print Workbooks(bbb).NameEnd Sub
错在哪里???谢谢

Answer 1

Debug.Print Workbooks(0).Name   
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

您好,我是想:set wb as workbook
aaa = "几分调侃粮食进口.xls"
set wb = workbooks(aaa)就出现了错误9..............多谢!

Answer 3

仅供参考：Dim excelapp As Object
Dim excelsheet As ObjectSet excelapp = CreateObject("excel.application")
excelapp.Visible = True
excelapp.Workbooks.Open FileName:=App.Path & "\几分调侃粮食进口.xls"
If Val(excelapp.Application.Version) >= 8 Then
Set excelsheet = excelapp.ActiveSheet
Else
Set excelsheet = excelapp
End If

Answer 4

Dim excelapp As Object
Set excelapp = CreateObject("excel.application")
'excelapp.Visible = True
excelapp.Workbooks.Open Filename:="f:\新建 Microsoft Office Excel 工作表.xlsx"
Set wb = excelapp.Workbooks("新建 Microsoft Office Excel 工作表.xlsx")
Debug.Print (wb.Name)谢谢楼上

Answer 5

    Windows("列出工作薄中所有的工作表.xls").Activate
就可以了