標題: 有辦法收尋資料夾裡面只要封面字串的EXCEL,自動行成工作表嗎? [打印本頁]

---

作者: show5217    時間: 2019-9-17 00:26     標題: 有辦法收尋資料夾裡面只要封面字串的EXCEL,自動行成工作表嗎?

就是資料夾裡面的EXCEL 有封面字串的EXCEL 自動轉換成工作表.

---

作者: show5217    時間: 2019-9-17 15:50

回復 1# show5217


    [attach]31268[/attach]

---

作者: GBKEE    時間: 2019-9-18 09:39

回復 2# show5217

試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim N As String
   
4.     N = Dir("e:\gbkee\*封面.xls", vbDirectory)
   
5.     '**e:\gbkee\   >>請改為你正確的路徑
   
6.     Do While N <> ""
   
7.         N = Dir
   
8.         With Sheets.Add(, Sheets(Sheets.Count))
   
9.             .Name = Replace(N, "封面.xls", "")
   
10.         End With
    
11.     Loop
    
12. End Sub

複製代碼

---

作者: show5217    時間: 2019-9-19 02:20

回復 3# GBKEE
謝謝大大指導  路徑可以設定自己選擇嗎 感謝

---

作者: GBKEE    時間: 2019-9-19 12:57

回復 4# show5217
如有不解,多看EXCEL上的說明

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim N As String
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.         .InitialFileName = "E:\GBKEE"  '指定你正確資料夾
   
6.         If .Show = True Then
   
7.             N = .SelectedItems(1)
   
8.         Else
   
9.             MsgBox "沒有指定資料夾": Exit Sub
   
10.         End If
    
11.     End With
    
12.     N = Dir(N & "\*封面.xls", vbDirectory)
    
13.   Do While N <> ""
    
14.         N = Dir
    
15.         With Sheets.Add(, Sheets(Sheets.Count))
    
16.             .Name = Replace(N, "封面.xls", "")
    
17.         End With
    
18.     Loop
    
19. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)