[已解决]打开工作薄代码？

xiaoni

问题在附件的工作薄1中，请大家帮忙解决！ 打开.rar (124.45 KB, 下载次数: 15)

2013-2-5 18:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-5 18:33

1. Sub aa()
   
2.     Dim i As Long
   
3.     For i = 1 To 2
   
4.         Workbooks.Open ThisWorkbook.Path & "/" & Range("a" & i) & ".xlsx"
   
5.         ‘Workbooks.Open ThisWorkbook.Path & "" & Cells(i, 1) & ".xlsx"
   
6.     Next i
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub aa()
   
2.     Dim i As Long
   
3.     For i = 1 To 2
   
4.         Workbooks.Open ThisWorkbook.Path & "/" & Range("a" & i) & ".xlsx"
   
5.         ‘Workbooks.Open ThisWorkbook.Path & "" & Cells(i, 1) & ".xlsx"
   
6.     Next i
   
7. End Sub
   

复制代码

hwc2ycy

常量，变量，字符串不要搞错了。