作者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/cn.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