求助!本人资料员一个,按上司要求需要打印一大批的工程资料。。资料都已经做好,有几百个文件。每个文件里有几个文件夹,每个文件夹又有多层的Excel表。。。求大神VBA代码。能够把指定的文件夹中(希望可修改文件的位置),把里面各层全部的Excel文件(里面含多个sheet)都打印出来。
VBAæ¯å¯ä»¥ç¼åçï¼ä½æ¯å¦æå¤æ¬¡æ件夹çè¯ç¨åºä»£ç å°±ä¸æ¯å åéå°±è½å®æçï¼åºå®æ件夹ç代ç é»è¾å¦ä¸ï¼
Option ExplicitSub æå°()
Dim p$, n$, st As Worksheet
p = "c:\123\æ¥å\" 'éè¦æå°çæ件æå¨çæ件夹ï¼å¿ 须以\ç»å°¾
n = Dir(p & "*.xls?")
While n <> ""
With Workbooks.Open(p & n)
For Each st In .Worksheets
st.PrintOut
Next st
.Close
End With
n = Dir
Wend
End Sub
å¦ææ¯å¤å±æ件夹ï¼æ件夹éé¢æåæ件夹ï¼ï¼éè¦å¢å éå½çæ¡æ¶ã
å ¶å®è¯è¯çä¸é¢çæ¹æ³ï¼å¨ã计ç®æºãæè ãæççµèãéé¢å¤éEXCELæ件ï¼é¼ æ å³é®ç¹å»éæ©ãæå°ãï¼æä½çé¢å¦ä¸å¾ï¼
追é®å è°¢è°¢ä½ ï¼æè¦æ±æ¹äºåï¼F5æ示å®ï¼ä¹åè¿è¡ã没æååºå¢ãè¿ä¸ªæ件夹ææ¯æ°åçï¼åªç»æäºä¸ä¸ªExcelå¨éé¢æ¥æµè¯ãããå¦ææåï¼ä¸è¿æå·¥ä½é£ä¸ª
é£ä¸ªç®æ æ件夹æ¯æ好å¤å±ï¼æ¯å±é½æä¸åçExcel+æ件夹ãè¿å ¥æ件夹åæå¤ä¸ªExcelãæ¯ä¸ªå·¥ä½ç°¿åæå¤ä¸ªsheetãé£è¯¥æä¹æ¹å¢ï¼
æ¯ä¸æ¯ä½ å¾ä¸ç代ç è¿è¡å¤±è´¥äºï¼éº»ç¦ä½ ç第ä¸è¡æåï¼æè§æ¯å¼å·ä½¿ç¨äºä¸æçï¼æè å¼å·åé¢æå¤ä½ç©ºæ ¼ï¼è®¡ç®æºå¿ 须使ç¨è±æ符å·ï¼èä¸æ¥ä¸å¾åç¹èåï¼ä½ å¯ä»¥ç²è´´æç代ç 使ç¨ï¼å¦ææ¥é请æ·è´æé误信æ¯é»è²æ¡çå±å¹ä¸å¾ã