暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
本帖最後由 mark15jill 於 2011-6-17 17:13 編輯
因之前有發帖 但是好像說的不是很清楚 沒人回應(還是有相關類型的帖!?
所以 改換問個問題...
請問~ 如果今天有個EXCEL檔案 內有活頁簿 第一頁正面、第一頁背面、第二頁
想利用combutton的按鈕將 第一頁正面 第一頁背面 另存在第一個檔案(檔案名稱 根據 第一頁正面內的 P4 儲存格的值存 )內、 第二頁 存在第二個檔案(檔案名稱鎖定為 總表)但是資料會更新 所以此檔案的資料是往下且不重複
不知道要怎寫比較好~
 能測試.rar (6.99 KB)
有找到一篇文章(擷取至 http://tw.myblog.yahoo.com/jw!FvCzE1CGBwNR004MLOT.vA--/article?mid=18&prev=34&next=12&l=f&fid=5)裡面有寫 但是 他是分割很細
我有試著去修改 但是 每次修改都會出現 錯誤訊息(路徑錯誤)- Sub 切割活頁簿()
- source_window_name = ActiveWindow.Caption
- source_path_name = ActiveWorkbook.Path
- '先把現在準備分割的原始檔案的視窗名稱及路徑記錄下來
-
- target_path = source_path_name & "\" & Left(source_window_name, Len(source_window_name) - 4)
- MkDir target_path
- '建立準備儲存切割完成檔案的新資料夾
- For i = 1 To ActiveWorkbook.Sheets.Count
- '使用迴圈 , 執行次數是作用中的活頁簿的工作表數量
- ActiveWorkbook.Sheets(i).Copy
- '把作用中的活頁簿的第i個工作表複製到另一個新開啟的活頁簿
- ActiveWorkbook.SaveAs target_path & "\" & ActiveSheet.Name
- '需注意這裡的ActiveWorkbook已經是新的活頁簿了
- '把新活頁簿儲存到指定路徑 , 且檔名與工作表名稱相同
- ActiveWorkbook.Close
- '關閉已經儲存的新活頁簿
- Windows(source_window_name).Activate
- '將作用視窗切換回原始檔案
- Next
- End Sub
|
|
發表於 2011-6-17 15:31
| 
