[已解决]请教如何读取另外一个文件的内容。

silenthunter

Private Sub test1()
Workbooks.Open "c:\1.xls"
Debug.Print Workbooks("C:\1.xls").Worksheets("sheet1").Range("a1").Value
End Sub

1.xls文件是存在的，在另一个文件用上面的代码却不能显示，说下标越界。

请教最简单的方法，从这个文件读取另外一个文件的vba代码。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-10-25 21:34

Private Sub test1()
Workbooks.Open "c:\1.xls"
Debug.Print Workbooks("1.xls").Worksheets("sheet1").Range("a1").Value
End Sub

跳转到最佳答案楼层

zjdh

Private Sub test1()
Workbooks.Open "c:\1.xls"
Debug.Print Workbooks("1.xls").Worksheets("sheet1").Range("a1").Value
End Sub

danio112

Private Sub test1()
dim wb as workbook
set wb=Workbooks.Open "c:\1.xls"
Debug.Print wb.Worksheets("sheet1").Range("a1").Value
End Sub