- ©«¤l
- 11
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- WindowsXP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-9-29
- ³Ì«áµn¿ý
- 2013-5-22
|
[µo°Ý] ¦bExcel 2003¿ý»sªº¥¨¶°¡A¦bExcel2007/2010«oµo¥Í°õ¦æ¿ù»~'9' or '445'
¥H¤U¬O§Ú¦bExcel 2003- Sub Get_TEXT()
- Dim MyBook, LinkBook As Workbook, _
- MySht, LinkSht, BaSht, WorkSht As Worksheet, _
- MyPath, FindFile, FileCunt, x, Xm As Long, _
- RngEnd As Range, uDate As Date
- Set FindFile = Application.FileSearch
- With FindFile
- .LookIn = MyPath: .Filename = "*.csv"
- .SearchSubFolders = False: .MatchTextExactly = True
- .FileType = msoFileTypeAllFiles
- FileCunt = .Execute()
- End With
- If FileCunt = 0 Then _
- MsgBox "¡°§ä¤£¨ìn¶×¤Jªº¤å¦rÀÉ!!! ", 0 + 48, ">>´£¥Ü°T®§": Exit Sub
- Application.ScreenUpdating = False
- '...
- End Sub
½Æ»s¥N½X ¦ý¦bExcel 2007/2010«oµo¥Í°õ¦æ¿ù»~¡Abug¬O¥X²{¦b¦P¤@¦æ- Set FindFile = Application.FileSearch
½Æ»s¥N½X ¤£ª¾¹D¦bExcel 2007/2010®É¡A¦¹¦æn¦p¦óקï¡H |
|