返回列表 上一主題 發帖

[發問] 開啟中的工作簿合併至另一工作簿中

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-9-20 06:32 | 顯示全部帖子
回復 1# hsiaohsien
  1. Sub Ex()
  2.     Dim Wb As Workbook
  3.     For Each Wb In Workbooks
  4.         If Wb.Name <> "合併.xls" Then   '排除 "合併.xls"
  5.             Wb.Sheets("統計").Copy After:=Workbooks("合併.xls").Sheets(2)
  6.             ActiveSheet.Name = Replace(Wb.Name, ".xls", "")
  7.         End If
  8.     Next
  9.     Workbooks("合併.xls").Activate
  10. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-10-1 14:54 | 顯示全部帖子
回復 3# waterful.tw
Wb.Sheets("Sheet2").Copy After:=Workbooks("統計.xls").Sheets(2)   '錯誤9 ->沒有2 , 會有1  你用 Sheets.Count替代也行

Dim   MyPath As Long          '  -> 數字  Long (長整數)變數係以範圍從 -2,147,483,648 到 2,147,483,647 之 32 位元 (4 個位元組) 有號數字形式儲存。
Set MyBook = ThisWorkbook  
MyPath = MyBook.Path & "\"                                    '當然是型態不符
Dim MyPath As String  ->應修改維字元
'String之字元碼的範圍從 0 到 255。字元集的前 128 個字元 ( 0 到 127 ) 對應於標準的 U.S 鍵盤上的字元與符號

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-10-3 16:20 | 顯示全部帖子
本帖最後由 GBKEE 於 2011-10-3 17:16 編輯

回復 8# waterful.tw
MyPath = ThisWorkbook.Path & "\"
fs = Dir(MyPath & "*.xls")  


請加上  ChDir  MyPath      改變目前的目錄  來修正錯誤

如目前的目錄或檔案夾在   ThisWorkbook.Path & "\"   
With Workbooks.Open(fs)   ->    開啟目前的目錄下檔案fs  所以不會有錯誤.
如目錄或檔案夾不在   ThisWorkbook.Path & "\"   
也可修正為   With Workbooks.Open(MyPath & fs)     ->如 :   d:\test\ fs
以避免 目前的目錄或檔案夾不是在  ThisWorkbook.Path   ->   With Workbooks.Open(fs) 會產生錯誤

可用 MsgBox  CurDir  查看目前的目錄或檔案夾
CurDir函數  ->傳回一個 Variant (String)，用來代表目前的路徑。
Excel 開啟時會依 如圖設立目前的目錄或檔案夾

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題