如何經由VB的按鈕由一個EXCEL檔案資料匯入至另一EXCEL - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何經由VB的按鈕由一個EXCEL檔案資料匯入至另一EXCEL

返回列表下一主題上一主題發帖

如何經由VB的按鈕由一個EXCEL檔案資料匯入至另一EXCEL

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2011-12-27 14:11 | 顯示全部帖子

回復 1# g93353

工作表整張複製

Sub XX()
Source = Application.GetOpenFilename
With Workbooks.Open(Source)
For i = 1 To ActiveWorkbook.Sheets.Count
.Sheets(i).Copy after:=ThisWorkbook.Worksheets(Sheets.Count)
Next i
.Close
End With
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2011-12-27 14:48 | 顯示全部帖子

回復 3# g93353

Sub XX()
Source = Application.GetOpenFilename
With Workbooks.Open(Source)
.Sheets(1).Range("A1:C10").Copy ThisWorkbook.Sheets(1).Range("D2")
.Close
End With
End Sub

複製代碼

靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！

返回列表下一主題上一主題