作者Autherape (ape)
看板Office
標題[問題] 合併資料的一些問題請教
時間Wed Oct 2 10:03:47 2019
各位高手
最近寫了一個合併不同workbook到同一個檔案的”搜尋xlsm”
但因為我抓資料是用指定某個資料夾的方式去抓該資料夾的檔案
這樣造成我換路徑都需要再修改程式碼
想請教,能不能將我的”搜尋xlsm”放在與資料同一個資料夾
用vba去判斷抓取與我”搜尋xlsm”同資料夾內的其他檔案,並且不抓取”搜尋xlsm”該
檔案
以下是我的程式碼
Sub Merger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Obje
ct
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
Set dirObj = mergeObj.Getfolder("C:\Users\10856\Desktop\data")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
萬分感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.217.137.101 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1569981829.A.AED.html
1F:→ soyoso: thisworkbook.path可取該巨集檔案的路徑 10/02 11:10
2F:→ soyoso: 不抓取方面,寫個判斷thisworkbook.name非變數ereryobj 10/02 11:11
3F:→ soyoso: .name時才workbooks.open 10/02 11:11