- ©«¤l
- 69
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- EXCEL2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-20
- ³Ì«áµn¿ý
- 2024-4-24
|
©êºp¨S§ï¨ì¤wµLªk½s¿è¡A¬õ¦r½d³ò¬°¥H¤U°j°éªº¦a¤è
Do While Filename <> ""
Workbooks.Open Path & "\" & Filename
If i <> 1 Then '²Ä¤@ÓÀÉ®×¥t¦s¦¨¥þ³¡
Sheets(1).Copy '¦sÀɸô®| & ¦WºÙ & ®æ¦¡
ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\¦Û°Ê¦X¨Ö.xlsx"
i = 1
Workbooks(Filename).Close
Else
Sheets(1).Copy After:=Workbooks("¦Û°Ê¦X¨Ö.xlsx").Sheets(1)
Workbooks(Filename).Close
End If
Filename = Dir()
Loop |
|