教移動工作表出現 Class worksheet的Move方法失敗 "104" - Excel程式區

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

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

1^# 跳轉到 »

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

複製代碼

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

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

  少看=只看不做也枉然

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。