有辦法收尋資料夾裡面只要封面字串的EXCEL,自動行成工作表嗎?
- 帖子
- 39
- 主題
- 15
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新北市
- 註冊時間
- 2018-11-23
- 最後登錄
- 2020-2-26
 
|
有辦法收尋資料夾裡面只要封面字串的EXCEL,自動行成工作表嗎?
就是資料夾裡面的EXCEL 有封面字串的EXCEL 自動轉換成工作表. |
|
小武
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
5#
發表於 2019-9-19 12:57
| 只看該作者
回復 4# show5217
如有不解,多看EXCEL上的說明- Option Explicit
- Sub Ex()
- Dim N As String
- With Application.FileDialog(msoFileDialogFolderPicker)
- .InitialFileName = "E:\GBKEE" '指定你正確資料夾
- If .Show = True Then
- N = .SelectedItems(1)
- Else
- MsgBox "沒有指定資料夾": Exit Sub
- End If
- End With
- N = Dir(N & "\*封面.xls", vbDirectory)
- Do While N <> ""
- N = Dir
- With Sheets.Add(, Sheets(Sheets.Count))
- .Name = Replace(N, "封面.xls", "")
- End With
- Loop
- End Sub
複製代碼 |
|
|
|
|
|
|
- 帖子
- 39
- 主題
- 15
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新北市
- 註冊時間
- 2018-11-23
- 最後登錄
- 2020-2-26
 
|
4#
發表於 2019-9-19 02:20
| 只看該作者
回復 3# GBKEE
謝謝大大指導 路徑可以設定自己選擇嗎 感謝 |
|
小武
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
3#
發表於 2019-9-18 09:39
| 只看該作者
回復 2# show5217
試試看- Option Explicit
- Sub Ex()
- Dim N As String
- N = Dir("e:\gbkee\*封面.xls", vbDirectory)
- '**e:\gbkee\ >>請改為你正確的路徑
- Do While N <> ""
- N = Dir
- With Sheets.Add(, Sheets(Sheets.Count))
- .Name = Replace(N, "封面.xls", "")
- End With
- Loop
- End Sub
複製代碼 |
|
|
|
|
|
|
- 帖子
- 39
- 主題
- 15
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新北市
- 註冊時間
- 2018-11-23
- 最後登錄
- 2020-2-26
 
|
2#
發表於 2019-9-17 15:50
| 只看該作者
回復 1# show5217
|
|
小武
|
|
|
|
|