標題: [發問] 活頁簿分門別類 [打印本頁]

---

作者: mark15jill    時間: 2011-6-17 15:31     標題: 活頁簿分門別類

本帖最後由 mark15jill 於 2011-6-17 17:13 編輯

因之前有發帖 但是好像說的不是很清楚 沒人回應(還是有相關類型的帖!?
所以 改換問個問題...
請問~  如果今天有個EXCEL檔案 內有活頁簿  第一頁正面、第一頁背面、第二頁
想利用combutton的按鈕將 第一頁正面 第一頁背面 另存在第一個檔案(檔案名稱 根據 第一頁正面內的 P4 儲存格的值存 )內、 第二頁 存在第二個檔案(檔案名稱鎖定為 總表)但是資料會更新 所以此檔案的資料是往下且不重複
不知道要怎寫比較好~


[attach]6690[/attach]



有找到一篇文章(擷取至 http://tw.myblog.yahoo.com/jw!FvCzE1CGBwNR004MLOT.vA--/article?mid=18&prev=34&next=12&l=f&fid=5)裡面有寫 但是 他是分割很細
我有試著去修改  但是 每次修改都會出現 錯誤訊息(路徑錯誤)

1. Sub 切割活頁簿()
   
2. 
   
3. source_window_name = ActiveWindow.Caption
   
4. source_path_name = ActiveWorkbook.Path
   
5.     '先把現在準備分割的原始檔案的視窗名稱及路徑記錄下來
   
6.    
   
7. target_path = source_path_name & "\" & Left(source_window_name, Len(source_window_name) - 4)
   
8. MkDir target_path
   
9.     '建立準備儲存切割完成檔案的新資料夾
   
10. 
    
11. For i = 1 To ActiveWorkbook.Sheets.Count
    
12.     '使用迴圈 , 執行次數是作用中的活頁簿的工作表數量
    
13. 
    
14.     ActiveWorkbook.Sheets(i).Copy
    
15.     '把作用中的活頁簿的第i個工作表複製到另一個新開啟的活頁簿
    
16. 
    
17.     ActiveWorkbook.SaveAs target_path & "\" & ActiveSheet.Name
    
18.     '需注意這裡的ActiveWorkbook已經是新的活頁簿了
    
19.     '把新活頁簿儲存到指定路徑 , 且檔名與工作表名稱相同
    
20. 
    
21.     ActiveWorkbook.Close
    
22.     '關閉已經儲存的新活頁簿
    
23. 
    
24.     Windows(source_window_name).Activate
    
25.     '將作用視窗切換回原始檔案
    
26. Next
    
27. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)