如何複製表格到別的工作表 - Excel程式區

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 310
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

6^# 跳轉到 »

發表於 2011-12-3 20:35 | 只看該作者

回復 4# Hsieh

請教一下Hsieh大
我想到一個問題,那就是人名似乎不應顥示出來
所以想把按鈕搬到空白的工作表2,想說這樣就不會讓人生看到名單而可以在背景作業
所以把式子改成
Private Sub CommandButton1_Click()
fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls") '開啟目的檔案
With Workbooks.Open(fs)
Sheets("sheet1").Columns("B:F").Copy .Sheets("資料確認").[B1] '複製資料
Sheets("sheet1").Range("J16:K300").Copy .Sheets("資料確認").[J16]
End With
End Sub
執行後結果出現"陣列索引超出範圍",請問我該怎麼修正呢

jeason

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 310
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2011-12-3 19:26 | 只看該作者

回復 4# Hsieh
有上網找到了GetOpenFilename的用法
感謝Hsieh的指教
我另外作了修正
要把h21的到j60的儲存格copy到資料夾的同一個位置
分享給大家
Range("h21:j60").Copy .Sheets("資料確認").[h21]

jeason

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-12-1 14:53 | 只看該作者

本帖最後由 Hsieh 於 2011-12-1 14:55 編輯

回復 3# brabus

fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
這是開啟舊檔的對話方塊，可供使用者選擇要貼上資料的檔案
.Sheets("資料確認").[B1]
就是被開啟的檔案中資料確認工作表的B1儲存格，也就是被貼上資料的位置
至於2個*.xls請參閱GetOpenFilename的FileFilter 引數說明
FileFilter 選擇性的 Variant。是指定檔案篩選規則的字串。
此字串由一檔案篩選字串與 MS-DOS 萬用字元表達的檔案篩選規則描述組成，中間以逗點分隔。[檔案類型] 下拉式清單方塊中會列出各組字串。例如，下列字串指定兩個檔案篩選，文字和增益集：文字檔 (*.txt),*.txt,增益集檔案 (*.xla),*.xla。
若要使用多個 MS-DOS 萬用字元運算式組成單一檔案篩選類型，各萬用字元之間需以分號分隔；例如，"Visual Basic Files (*.bas; *.txt),*.bas;*.txt"。
如果省略，則此引數將預設為 "All Files (*.*),*.*"。

學海無涯_不恥下問

TOP

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 310
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2011-11-30 16:18 | 只看該作者

回復 2# Hsieh

請問一下Hsieh大大
你所說的"fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls") '開啟目的檔案"
上面這段是不是指的是取得現行檔案的路徑嗎?
那2個(*.xls)是什麼意思????一個是現在的試算檔名另一個是第二個試算嗎?
另外 .Sheets("資料確認").[B1]指的是copy到"b1"試算表的資料確認表格嗎???
謝謝你哦

jeason

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 249
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-17

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-11-29 22:34 | 只看該作者

Private Sub CommandButton1_Click()
fs = Application.GetOpenFilename("Excel Files (*.xls), *.xls") '開啟目的檔案
With Workbooks.Open(fs)
Columns("B:D").Copy .Sheets("資料確認").[B1] '複製資料
End With
End Sub

複製代碼

回復 1# brabus

學海無涯_不恥下問

TOP

[發問] 如何複製表格到別的工作表

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]