- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¦^´_ 5# rbktwi
¤£¥´¶},«ç»ò©ñ¤J¸ê®Æ???- Sub ¦P¸ê®Æ§¨¤º¤j¶qÀɮצs¨ú()
- Dim Path As String, file As String
- Application.ScreenUpdating = False 'Ãö³¬«Ì¹õ§ó·s
- Path = "C:\¸ê®Æ§¨\" '¨Ó·½¸ê®Æ§¨,¦Û¦æ×¥¿
- file = Dir(Path & "*.xls") '¨Ó·½ÀɦW, ªí¥Üªk "*.xls" or "*.csv" or "ÃöÁä¦r*.xls"
- Do While file <> ""
- Application.DisplayAlerts = False '¤@¯ë´£Äµ¥Ü°T®§Ãö³¬
- With Workbooks.Open(Path & file)
- [A1] = "=[¬¡¶Ã¯1.xls]Sheet1!A1" '¬¡¶Ã¯1.xls ¦WºÙ¦Û¦æ×¥¿
- ActiveWindow.Close True
- End With
- file = Dir
- Loop
- End Sub
½Æ»s¥N½X |
|