[已解决]打开文化的代码？

xiaoni

大家好！我的D盘有从部门1到部门10，我想依次打开它们
dim i as long
for i =1 to 6
workbooks.open "d:/部门& i".xls"
next i
怎么不对呢？怎样修改呢？请大家帮忙，先谢谢了

最佳答案

月排行榜 / 总排行榜

liuts

2012-2-24 07:43

1. Sub liuts()
   
2.     Dim i As Long
   
3.     For i = 1 To 6
   
4.         Workbooks.Open "d:/部门" & i & ".xls"
   
5.     Next i
   
6. End Sub

复制代码

你的,断句没断好

跳转到最佳答案楼层

liuts

1. Sub liuts()
   
2.     Dim i As Long
   
3.     For i = 1 To 6
   
4.         Workbooks.Open "d:/部门" & i & ".xls"
   
5.     Next i
   
6. End Sub

复制代码

你的,断句没断好

琴箫剑气

路过学习