標題:
[發問]
教移動工作表出現 Class worksheet的Move方法失敗 "104"
[打印本頁]
作者:
ji12345678
時間:
2013-2-12 09:02
標題:
請教移動工作表出現--執階段錯誤'1004'--的錯誤
使用 move 時出現了錯誤訊息~~~~~移動工作表出現--執階段錯誤'1004'--的錯誤
Workbooks("主程式.xls").Sheets("資料表3").Move before:=Workbooks("新增資料.xls").Sheets("禁刪") '移動 工作表======>出現 執階段錯誤'1004'
每一次都出現在同一個地方！似乎搬移 move、copy等用法有次數的限制？
怎摸會這樣，有什麼方法改善嗎？
以下為相關資料如附件
謝謝指教~~~~感恩~~~~~~~！
[attach]14164[/attach]
作者:
mark15jill
時間:
2013-2-18 15:21
本帖最後由 mark15jill 於 2013-2-18 15:22 編輯
回復
1#
ji12345678
因為樓主所詢問之問題，並無說明兩個檔案是否同時開啟狀態
以下程式碼可參考看看，但要先將兩個檔案開啟
Sub 匯入()
Get_Path_LEN = Len(Trim(Application.ActiveWorkbook.FullName)) '取得檔案完整名路徑及名稱
Get_data_name_LEN = Len(Trim(Application.ActiveWorkbook.Name)) '取得 檔案 名稱
Full_path_name = Left(Trim(Application.ActiveWorkbook.FullName), Get_Path_LEN - Get_data_name_LEN) '取得 完整路徑
Get_data_name_COM = Application.ActiveWorkbook.Name '取得檔名----------
'For x = 1 To 100
Open_old_data = Full_path_name & "新增資料.xls"
Workbooks.Open Open_old_data ' 開啟舊資料
Windows("主程式.xls").Activate
Sheets("禁刪").Select
Windows("新增資料.xls").Activate
Sheets(Array("資料表1", "資料表2", "資料表3", "資料表4", "資料表5")).Select
Sheets("資料表5").Activate
Sheets(Array("資料表1", "資料表2", "資料表3", "資料表4", "資料表5")).Copy Before:=Workbooks( _
"主程式.xls").Sheets(3)
Windows("新增資料.xls").Activate
ActiveWindow.Close
Application.DisplayAlerts = False '關閉警告視窗
'Workbooks("新增資料.xls").Sheets("禁刪").Delete '下載的資料(刪除 禁刪 的工作表)
Application.DisplayAlerts = True '恢復警告視窗
'Workbooks("新增資料.xls").Close SaveChanges:=True '自動儲存關閉
'Next x
End Sub
複製代碼
作者:
ji12345678
時間:
2013-5-7 18:11
標題:
教移動工作表出現 Class worksheet的Move方法失敗 "104"
移動工作表出現--執階段錯誤'1004'--的錯誤 Class worksheet的Move方法失敗
使用 move 時出現了錯誤訊息~~~~~移動工作表出現--執階段錯誤'1004'--的錯誤
Workbooks("主程式.xls").Sheets("資料表3").Move before:=Workbooks("新增資料.xls").Sheets("禁刪") '移動 工作表======>出現 執階段錯誤'1004'
每一次都出現在同一個地方！似乎搬移 move、copy等用法有次數的限制？
怎摸會這樣，有什麼方法改善嗎？
以下為相關資料如附件
因為VBA內容有一些要計算的部份，已先予以刪除，但保留架構，並附上執行的流程圖。
希望各位先進協助改善問題~~。謝謝
謝謝指教~~~~感恩~~~~~~~！:'(
[attach]14913[/attach]
[attach]14914[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
