[µo°Ý] ¸ô®|»PÀɦW

PJChen

¤j¤j¦n,

½Ð°Ý:
1. ¥H¤U¸ô®|ªº➤¤é¯Z²z³f´«ºâªí,¦bVBA¤¤¸ô®|§â➤Åܬ°?¦ÓµLªk¶}±ÒÀÉ®×,­n¦p¦ó­×§ïµ{¦¡½X or »yªk?
2. ¦bWorkbooks("OK.xlsx")µ{¦¡¤¤,¨äÀɮצWºÙ¬OOK-  5¤ë.xlsx
¦ýÀɮצ]¬°¬O¦@¥Îªº,·|¦³¤H¥h­×§ïÀɦW,VBA·|§ä¤£¨ìÀÉ®×,¦pªG§Ú·Q¥H"OK.xlsx"¥h§ä´MÀÉ®×,¤]´N¬O§â"-  5¤ë"¬Ù²¤,½Ð°Ý»yªk­n«ç»ò¼g?

1. Dim mFile As String, ¨Ó·½ÀÉ As Workbook, ¥ØªºÀÉ As Workbook, Sh As Worksheet, xSh As Worksheet, i As String
   
2. mFile = Dir("D:\Ī¦Ë¦@¥Î\­ÜÀx¦@¥Î\?¤é¯Z²z³f´«ºâªí\108.5¤ë\OK*.XLSX") '¶}±Ò«ü©w¦WºÙ¶}ÀYªºÀÉ®×
   
3. Do While mFile <> ""
   
4. Workbooks.Open Filename:="D:\Ī¦Ë¦@¥Î\­ÜÀx¦@¥Î\?¤é¯Z²z³f´«ºâªí\108.5¤ë\" & mFile
   
5. mFile = Dir()
   
6. Loop
   
7. 
   
8. Set ¨Ó·½ÀÉ = Workbooks("²z³f³æ_All.xlsx")
   
9. Set Sh = ¨Ó·½ÀÉ.Sheets("¤ñµá¦h.OK")
   
10.     Set ¥ØªºÀÉ = Workbooks("OK.xlsx")
    
11.     Set xSh = ¥ØªºÀÉ.Sheets(i)

½Æ»s¥N½X

ikboy

1. Sub zz()
   
2. Dim mFile As String, ¨Ó·½ÀÉ As Workbook, ¥ØªºÀÉ As Workbook, Sh As Worksheet, xSh As Worksheet, i As String
   
3. Dim MyPath
   
4. With Application.FileDialog(msoFileDialogFolderPicker)
   
5.     .InitialFileName = "D:\Ī¦Ë¦@¥Î\­ÜÀx¦@¥Î"
   
6.     .Title = "¤é¯Z²z³f´«ºâªí"
   
7.     .Show
   
8.     If .SelectedItems.Count Then MyPath = .SelectedItems(1) Else Exit Sub
   
9. End With
   
10. mFile = Dir(MyPath & "\" & "OK*.XLSX") '¶}±Ò«ü©w¦WºÙ¶}ÀYªºÀÉ®×
    
11. Do While mFile <> ""
    
12. Workbooks.Open Filename:=MyPath & "\" & mFile
    
13. mFile = Dir()
    
14. Loop
    
15. Set ¨Ó·½ÀÉ = Workbooks("²z³f³æ_All.xlsx")
    
16. Set Sh = ¨Ó·½ÀÉ.Sheets("¤ñµá¦h.OK")
    
17.     Set ¥ØªºÀÉ = Workbooks("OK.xlsx")
    
18.     Set xSh = ¥ØªºÀÉ.Sheets(i)
    
19. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 2# ikboy

±z¦n,

§¹¾ã¸ô®|¬O³o¼Ë
"D:\Ī¦Ë¦@¥Î\­ÜÀx¦@¥Î\?¤é¯Z²z³f´«ºâªí\108.5¤ë\OK*.XLSX"
¦ý¬Y¨Ç¦r¥X¤£¨Ó,Åܦ¨?
¦Ó OK*.XLSX§Ú¤]§Æ±æ¯à¥Î¼Ò½k¦r¦ê¥h¥N´Àºë½TªºÀɦW,¥H¨¾¦³¤H­×§ïÀɦW®É¥´¤£¶}
´ú¸Õªºµ²ªG,¥u¯à¶}±Ò"­ÜÀx¦@¥Î"ªº¹ï¸Ü®Ø,¨ä¥L§ó¤U¤@¼hªº¤l¸ê®Æ§¨¤ÎÀɮ׳£µLªk¶}±Ò¡I

PJChen

¦^´_ 2# ikboy

ÁÂÁ±z,
§Ú¸Õ¤F¤@¾ã±ß,²×©ó¥i¥H¥Î¤F,¸ô®|ÁÙ¬OµLªk¥Î*¨ú¥N,¦ýÁ`ºâ¥i¥H¥´¶}ÀÉ®×.

1.     Dim mFile As String, mF As String, ¨Ó·½ÀÉ As Workbook, ¥ØªºÀÉ As Workbook, Sh As Worksheet, xSh As Worksheet, i As String
   
2. 
   
3. Path = "D:\Ī¦Ë¦@¥Î\­ÜÀx¦@¥Î\¥þ¥x²z³f´«ºâªí\"    '¨Ó·½¸ê®Æ§¨"
   
4.     mFile = Dir(Path & "*µÜº¸´I*.XLSX")          '¨Ó·½ÀɦW
   
5.         Do While mFile <> ""
   
6.             Application.DisplayAlerts = False       '¤@¯ë´£Äµ¥Ü°T®§Ãö³¬
   
7.             Workbooks.Open Filename:=Path & mFile
   
8.             mFile = Dir
   
9.         Loop
   
10. 
    
11. i = Format(Date, "D") + 1  '¥H¤é´Á³]©w§@¬°¤u§@ªíªºÅܼÆ
    
12. '**********************
    
13. Set ¨Ó·½ÀÉ = Workbooks("²z³f³æ_All.xlsx")
    
14. Set Sh = ¨Ó·½ÀÉ.Sheets("¤ñµá¦h.µÜº¸´I")
    
15.     mF = Dir(Path & "*¤­ªÑµÜ*.XLSX")
    
16.     mF = Dir
    
17.     Set ¥ØªºÀÉ = Workbooks(Dir(Path & "*¤­ªÑµÜ*.XLSX")) '¼Ò½kÀɦW
    
18.     Set xSh = ¥ØªºÀÉ.Sheets(i)

½Æ»s¥N½X