[已解决]如何循环调用指定的工作表？

香满园

如何通过以下定义的三个红色字体的工作表标签，在下面代码的括号中依次调用？（Sheets(工作表标签名1)）比如第一次循环调用工作表标签名1，第二次循环调用工作表标签名2，第三次循环工作表标签名3.这样就完成了指定的工作表调用的功能，怎么才能实现呢？
sub test()
dim i as integer
dim 工作表标签名1 as string,工作表标签名2 as string,工作表标签名3 as string
工作表标签名1="Sheet1"
工作表标签名2="Sheet5"
工作表标签名3="表3"


i = Sheets(工作表标签名1).Cells(Rows.Count, 1).End(xlUp).Row
arr = Workbooks(表1.xls").Sheets(biaoqian).Range("A3").Resize(i - 2, 4)
for j=1 to 10
.........
next

Workbooks.Open  ThisWorkbook.Path & "\表2.xls"
With Workbooks(表2.xls").Sheets(工作表标签名1)
.........
end with
ActiveWorkbook.Close True

end sub

最佳答案

月排行榜 / 总排行榜

爱疯

2012-2-16 22:44

1. Sub yidata()
   
2.     Dim i, arr, j As Integer, d As Object, wb, Arr2()
   
3.     i = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     arr = Range("A2").Resize(i - 1, 2)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For j = 1 To UBound(arr)
   
7.         d(arr(j, 1)) = arr(j, 2)
   
8.     Next
   
9.    
   
10.     Application.ScreenUpdating = False
    
11.     Workbooks.Open ThisWorkbook.Path & "\表2.xls", Password:="123"
    
12.     Arr2 = [{"Sheet1","Sheet5","表3"}]
    
13.     For i = 1 To UBound(Arr2)
    
14.         With Sheets(Arr2(i))
    
15.             .[A2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.keys)
    
16.             .[B2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.items)
    
17.         End With
    
18.     Next i
    
19.     Application.DisplayAlerts = False
    
20.     ActiveWorkbook.Close True
    
21.     Application.ScreenUpdating = True
    
22. End Sub

复制代码

这样吗

跳转到最佳答案楼层

爱疯

建议最好先上传附件，这样有利于理解、回复和测试，也利于问题早些解决。

香满园

爱疯 发表于 2012-2-16 21:16
建议最好先上传附件，这样有利于理解、回复和测试，也利于问题早些解决。

请爱疯看看，附件已上传，我举的例子关键是想在两张工作簿中做个循环，把表1工作表中指定的一些工作表内容，循环的加到表2工作表指定表中去。我在工作表标签上循环不了，在这个上应该怎么设置才能进行循环调用工作表呢？

香满园

想到用INPUTBOX吧，每次循环到时，还要进行输入工作表标签的名称，也挺麻烦的，不知道怎么解决？请大家帮忙，谢谢了！！

爱疯

1. Sub yidata()
   
2.     Dim i, arr, j As Integer, d As Object, wb, Arr2()
   
3.     i = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     arr = Range("A2").Resize(i - 1, 2)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For j = 1 To UBound(arr)
   
7.         d(arr(j, 1)) = arr(j, 2)
   
8.     Next
   
9.    
   
10.     Application.ScreenUpdating = False
    
11.     Workbooks.Open ThisWorkbook.Path & "\表2.xls", Password:="123"
    
12.     Arr2 = [{"Sheet1","Sheet5","表3"}]
    
13.     For i = 1 To UBound(Arr2)
    
14.         With Sheets(Arr2(i))
    
15.             .[A2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.keys)
    
16.             .[B2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.items)
    
17.         End With
    
18.     Next i
    
19.     Application.DisplayAlerts = False
    
20.     ActiveWorkbook.Close True
    
21.     Application.ScreenUpdating = True
    
22. End Sub

复制代码

这样吗

香满园

爱疯 发表于 2012-2-16 22:44
这样吗

谢谢！问题解决！！！！

香满园

爱疯 发表于 2012-2-16 22:44
这样吗

用数组就能完成工作表中的循环调用，如果不用数组还有别的写法吗？比如：标签& i 这个应该怎么改，才能不出错！！

爱疯

也可以。正如你所说，不过要确保名字部分相同，只是数字不同。不过总的感觉不如数组方便。

w2001pf

爱疯 发表于 2012-2-16 22:44
这样吗

爱疯老师：下面这句代码是什么意思？有别的表示方法吗？
Arr2 = [{"Sheet1","Sheet5","表3"}]

爱疯

w2001pf 发表于 2012-8-28 17:11
爱疯老师：下面这句代码是什么意思？有别的表示方法吗？
Arr2 = [{"Sheet1","Sheet5","表3"}]

1. Sub a()
   
2.     Dim arr
   
3.     arr = [{"a","b","c"}]
   
4. End Sub
   

复制代码

少量数据时，方便赋值给数组arr