[已解决]请修改代码，用利用循环打开、关闭、保存多个工作簿

ymq123

请高手修改代码，用利用循环打开、关闭、保存多个工作簿。谢谢！

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-9 09:01

1. 
   
2. Private Sub c1_Click()
   
3. Dim wb
   
4. For i = 2 To 4
   
5. Set wb = Workbooks.Open(ThisWorkbook.Path & "\q" & i & ".xls")
   
6. 
   
7. wb.Save
   
8. wb.Close True
   
9. 
   
10. Next i
    
11. 
    
12. 
    
13. 
    
14. End Sub

复制代码

跳转到最佳答案楼层

从从容容

要在哪个表中写这个代码。
用set

我心飞翔410

1. 
   
2. Private Sub c1_Click()
   
3. Dim wb
   
4. For i = 2 To 4
   
5. Set wb = Workbooks.Open(ThisWorkbook.Path & "\q" & i & ".xls")
   
6. 
   
7. wb.Save
   
8. wb.Close True
   
9. 
   
10. Next i
    
11. 
    
12. 
    
13. 
    
14. End Sub

复制代码

sliang28

你的变量和文本不能用引号引在一起，对你的代码做了部分修改

1. Private Sub c1_Click()
   
2. For i = 2 To 4
   
3. Workbooks.Open ThisWorkbook.Path & "\q" & i & ".xls"
   
4. 'Workbooks("q & i").Save
   
5. 'Workbooks("q & i").Close True
   
6. ActiveWorkbook.Close True
   
7. Next i
   
8. End Sub

复制代码