[算表] vba 將所有檔案工作表複製到同一個檔案
軟體: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
→
06/01 16:42, , 1F
06/01 16:42, 1F
→
06/01 16:43, , 2F
06/01 16:43, 2F
→
06/01 21:17, , 3F
06/01 21:17, 3F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
