→ soyoso: 如果失敗是指無正確複製開啟活頁簿內的工作表的話，可將 06/01 16:42
→ soyoso: Windows(openfile).Activate的部分移到for..next內 06/01 16:43
→ ljuber: 謝S大 已經解決了 06/01 21:17
軟體: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://www.ptt.cc/bbs/Office/M.1496303016.A.606.html