- ©«¤l
- 10
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-8-21
- ³Ì«áµn¿ý
- 2016-4-17
|
Hi All
·PÁ¦U¦ìªºÀ°¦£¡A¤pªº§ä¨ì¤èªk¤F¡A·P®¦- Dim strNowPath As String
-
- strNowPath = Range("b1")
-
- Dim mFile As String
- mFile = Dir(strNowPath & "*.CSV")
- Do While mFile <> ""
- Workbooks.Open Filename:=strNowPath & mFile
- mFile = Dir()
- Loop
½Æ»s¥N½X |
|