[已解决]请教大神：怎么在VBA中使用中文表名

mafamucuo

取数代码如下：
Sub GetDataFromClosedWorkbook()
    Dim wb As Workbook
    Application.ScreenUpdating = False
    '以只读方式打开工作簿
    Set wb = Workbooks.Open("e:\1.xlsx", True, True)
    With ThisWorkbook.Worksheets("sheet1")
        '从工作簿中读取数据
        .Range("A1").Formula = wb.Sheets("sheet1").Range("A1").Formula
    End With
    wb.Close False '关闭打开的源数据工作簿且不保存任何变化
    Set wb = Nothing '释放内存
    Application.ScreenUpdating = True
End Sub
我将代码中标红色部分替换成中文表名如"表1"，执行就会提示“下标越界”，请教大神这是什么原因？怎么修改！
补充说明：上述代码在e:\1.xlsx工作薄的表名字为"sheet1"时是可以正确执行的，但是我把工作薄中的表名字改成“表1”后同时对应将代码中的红色字体改成("表1")后执行就报错了。

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-28 16:49

你看看，这个。

跳转到最佳答案楼层

ligh1298

你看看，这个。

ligh1298

首先你要确实有代码的工作薄中有叫“表1”的工作表。其次也要用英文的引号，Sheets("表1")

ligh1298

wb.Sheets("sheet1")这个里面是否有“表1”？

mafamucuo

ligh1298 发表于 2013-6-28 16:10
wb.Sheets("sheet1")这个里面是否有“表1”？

有的

ligh1298

最好是上传附件，有附件，才有真相。

mafamucuo

ligh1298 发表于 2013-6-28 16:49
你看看，这个。

就是这个，谢谢！！万分感谢！！