- ©«¤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
|
[µo°Ý] getFolder¦p¦ó¨ú±o¨ì²Ä¤G¼h¸ê®Æ§¨
§Ú·Q½Ð°Ý°ª¤âÌ¡A¥Ø«e¥H¤Uµ{¦¡½X¥u¯à°µ¨ìŪ¨ú¤@¼h¸ê®Æ§¨ªºÅª¨ú¦Ó¤w¡A½Ð°Ýþ¸Ì¼g¿ù¤F¹À
§Ú·Qn¥i¥HŪ¨ú§Ú¿ï¾Ü¦nªº¥Ø¿ý¤U©Ò¦³ªº¸ê®Æ§¨¡A¥i¬O¤£ª¾¹Dþ¸Ì¼g¿ù¤F
¤w¸gª¦¤å³\¤[¡A¦ý©l²×µLªk§ä¨ìµª®×¡A½Ð°ª¤âÌ«üÂI°g¬z¡A·P®¦- Set oexcel = CreateObject("Excel.Application")
- Dim objF As Object '©w¸q¶}Àɪ«¥ó
- Dim strFoldersName As String '©w¸q¸ê®Æ§¨¦WºÙ¬°¦r¦ê«¬ºA
- Dim strAllName As String '©w¸q©Ò¦³¦WºÙ
- 'Dim objFs2 As Scripting.FileSystemObject
-
- Dim fObj2, fc2
- Dim objF2 As Object
-
-
- Dim strFolderPath As String
- Dim strGetFilePath As String
- strGetFilePath = File1.Path
-
- strFolder = Text1.Text
-
- Set gobjFs = CreateObject("Scripting.FileSystemObject")
- Set objF = gobjFs.GetFolder(strGetFilePath)
- Set fc = objF.SubFolders
-
- For Each F1 In fc
-
-
- 'Set oexcel = CreateObject("Excel.Application")
- MyPath = F1
- i = 0
- MyFile = Dir(MyPath & "\*_1.csv") 'n¶}±Òªº¸ê®ÆÀɦW
-
- 'g = Mid(MyFile, 1, 18)
- Do While Len(MyFile) > 0
-
-
-
- Call class_NT
- Application.DisplayAlerts = False ' Ãö³¬Äµ§i°T®§
-
- Application.DisplayAlerts = True ' ¦A¥´¶}ĵ§i°T®§
- i = i + 1
- MyFile = Dir '¤U¤@µ§
- Loop
- Next
½Æ»s¥N½X |
|