我有一个VBA程序需要对不同路径下的多个excel文件中都运行一次,如何自动实现。
比如:
C:\Documents and Settings\桌面\汇总\1\1.xlsx
C:\Documents and Settings\桌面\汇总\5\3.xlsx
C:\Documents and Settings\桌面\汇总\11\9.xlsx
等几十个excel文件,需要执行程序
Sub 文件()
....................
End Sub
我需要在每个路径下的文件执行一次Sub 文件().............End Sub,但sub程序最好只写一次,不然excel宏会提示代码量太大无法运行。
æçå®åç¬å¯ä»¥è¿è¡ï¼ä½æ¯æè¿æ®µä»£ç æ¾å°æ代ç çä¸é¢ï¼å½¢å¼å¦ï¼
sub xxx()
end sub
sub æ件ï¼ï¼
æç代ç
end sub
ç»ææ¾ç¤ºä¸æ è¶çï¼æ¯ä¸æ¯å 为æçå®ä¸è¿è¡çæ¶åè¦è¾å
¥åé导è´çï¼
Cells(k, 2) = "æå¼æ件..." è¿å¥æ¯ä»ä¹ææåï¼æ¯æ¾æçæ件çå®æè·¯å¾ååï¼
ææ°å»ºçå·¥ä½è¡¨Aåä¸åªåæ件åè¿æ¯åå®æ´è·¯å¾å æ件åã
è¦ä½¿ç¨å®æ´çè·¯å¾å称ï¼Cells(k, 1)æ¯æ件åï¼å°±æ¯Aå ï¼Cells(k, 2) = "æå¼æ件..."æ¯Båæ¾ç¤ºç¨åºå·¥ä½è¿ç¨ï¼æ§è¡å®æ¯åè¿å¯ä»¥Cells(k, 2) = "æ§è¡æåã"
ä½ çå®æ§è¡åºéçæ¶åï¼è¦çé误è¯å¥åé误代ç ï¼åå¾ä¸å
¼å®¹çå°æ¹éè¦ä¿®æ¹ã