For Each sh In Worksheets '数组
If Not sh.Name Like "*" & "表" & "*" Then '如果工作表名称不包含“表”
sh.Select
Call 设置A1格式
End If
Next
如何修改使之能够在A工作簿中，遍历B工作簿中的工作表。如果有其他方法也非常感谢。
第ä¸è¡ä¿®æ¹ä»£ç å¦ä¸ï¼For Each sh In workbook("B") Worksheets
ä¹å¯ä½¿ç¨å¾ªç¯è¯å¥for i=1 to workbook("B") Worksheets.count
å¼ç¨ workbook("B") Worksheets(i)追é®
ä¹å¯ä½¿ç¨å¾ªç¯è¯å¥for i=1 to workbook("B") Worksheets.count
å¼ç¨ workbook("B") Worksheets(i)追é®
ç»æç¹ï¼ä¿®æ¹ä¸ºFor Each sh In Workbooks("B.xls").Worksheetsï¼éå°çé®é¢æ¯ï¼éè¦Bå·¥ä½ç°¿æå¼ç¶æï¼å¦åå¼¹åºâä¸æ è¶çâï¼è¯·é®ä½ ä»ä¹è§£å³æ¹å¼åï¼è°¢è°¢
追çç¡®å®éè¦Bå·¥ä½ç°¿æå¼ã
workbooks.open("bå·¥ä½ç°¿è·¯å¾")
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-06-17
dim wb as workbooks
set wb=workbooks.open("工作表路径全名")
‘填入你想要做的事情
wb.close savechanges:=true
set wb=workbooks.open("工作表路径全名")
‘填入你想要做的事情
wb.close savechanges:=true
