作者ljuber (美少妇与女儿同学的故事)
看板Office
标题[算表] vba 将所有档案工作表复制到同一个档案
时间Thu Jun 1 15:43:33 2017
软体:excel
版本: 2007
如果我有十几个excel档案
每个档案都几个工作表
例如A档案有a,b,c B档案有d,e,f C档案有001,002等
我想把上面档案的工作表 都复制到我做的一个档案里面
变成那个档案有a,b,c,d,e,f,001,002的工作表
但每个档案若是有x这个工作表则排除掉
我写了个巨集
thiswrkname已经定义成我要复制的这个工作表
filepath也定义成要抓的那个资料夹
Do While openfile <> ""
Workbooks.Open filepath & openfile
Windows(openfile).Activate
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "x" Then
Sheets(i).Copy Before:=Workbooks(thiswrkname).Sheets(1)
End If
Next i
Workbooks(openfile).Close 0
openfile = Dir
Loop
但是一直失败
不知道我应该要改哪边才对?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.67.77
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1496303016.A.606.html
1F:→ soyoso: 如果失败是指无正确复制开启活页簿内的工作表的话,可将 06/01 16:42
2F:→ soyoso: Windows(openfile).Activate的部分移到for..next内 06/01 16:43
3F:→ ljuber: 谢S大 已经解决了 06/01 21:17