請教移動工作表出現--執階段錯誤'1004'--的錯誤

使用 move  時出現了錯誤訊息~~~~~移動工作表出現--執階段錯誤'1004'--的錯誤
Workbooks("主程式.xls").Sheets("資料表3").Move before:=Workbooks("新增資料.xls").Sheets("禁刪")  '移動工作表======>出現  執階段錯誤'1004'
每一次都出現在同一個地方！似乎搬移  move、copy等用法有次數的限制？
怎摸會這樣，有什麼方法改善嗎？
以下為相關資料如附件
謝謝指教~~~~感恩~~~~~~~！

問問題.rar (15.31 KB)

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 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

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

ji12345678

中學生 Rank: 2

帖子: 28
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: SP2
閱讀權限: 20
性別: 女
註冊時間: 2012-5-4
最後登錄: 2016-9-29

3^# 倒序看帖

打印

字體大小: tT

發表於 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內容有一些要計算的部份，已先予以刪除，但保留架構，並附上執行的流程圖。
希望各位先進協助改善問題~~。謝謝

謝謝指教~~~~感恩~~~~~~~！:'(

問問題_102.5.7.rar (81.93 KB)