返回列表 上一主題 發帖

[發問] 教移動工作表出現 Class worksheet的Move方法失敗 "104"

ji12345678

帖子
28 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
SP2 
閱讀權限
20 
性別
女 
註冊時間
2012-5-4 
最後登錄
2016-9-29 
1# 跳轉到 »
發表於 2013-2-12 09:02 | 只看該作者

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

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


問問題.rar (15.31 KB)

TOP

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

高中生Rank: 3Rank: 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

  因為樓主所詢問之問題，並無說明兩個檔案是否同時開啟狀態
  以下程式碼可參考看看，但要先將兩個檔案開啟
  1. Sub 匯入()

  3. Get_Path_LEN = Len(Trim(Application.ActiveWorkbook.FullName))    '取得檔案完整名路徑及名稱
  4. Get_data_name_LEN = Len(Trim(Application.ActiveWorkbook.Name))        '取得 檔案  名稱
  5. Full_path_name = Left(Trim(Application.ActiveWorkbook.FullName), Get_Path_LEN - Get_data_name_LEN) '取得 完整路徑
  6.    
  7. Get_data_name_COM = Application.ActiveWorkbook.Name   '取得檔名----------
  8. 'For x = 1 To 100
  9. Open_old_data = Full_path_name & "新增資料.xls"
  10. Workbooks.Open Open_old_data  ' 開啟舊資料

  12.     Windows("主程式.xls").Activate
  13.         Sheets("禁刪").Select
  14.     Windows("新增資料.xls").Activate
  15.     Sheets(Array("資料表1", "資料表2", "資料表3", "資料表4", "資料表5")).Select
  16.     Sheets("資料表5").Activate
  17.     Sheets(Array("資料表1", "資料表2", "資料表3", "資料表4", "資料表5")).Copy Before:=Workbooks( _
  18.         "主程式.xls").Sheets(3)
  19.     Windows("新增資料.xls").Activate
  20.     ActiveWindow.Close
  21.    
  22.    
  23.    
  24.      Application.DisplayAlerts = False  '關閉警告視窗
  25.      'Workbooks("新增資料.xls").Sheets("禁刪").Delete  '下載的資料(刪除  禁刪  的工作表)
  26.      Application.DisplayAlerts = True  '恢復警告視窗
  27.       
  28.      'Workbooks("新增資料.xls").Close SaveChanges:=True '自動儲存關閉

  30. 'Next x
  31. End Sub
複製代碼

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

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

  少看=只看不做也枉然

TOP

ji12345678

帖子
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)
收藏 分享

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題