帖子: 3
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Win7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-10-12
最後登錄: 2010-10-12

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-10-12 09:39 | 只看該作者

[發問] VBA可以做到設計彈出式窗讓使用者點選檔案以匯入的功能嗎?

請教各位前輩，目前小弟匯入.TXT檔都是要點選"資料-取得外部資料-從文字檔"(2007)來匯入，之後再進行分割。以下為部分錄製出來的內容。
QueryTables.Add(Connection:="TEXT;C:\Users\Administrator\Desktop\Excel練習\test.txt", Destination:=Range("$A$1"))
若此檔案放在別的路徑，以上code就不能用了。
請問是否能藉由VBA來實現跳出視窗讓使用者自行選擇檔案?
謝謝!!

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

2^#

發表於 2010-10-12 10:09 | 只看該作者

最簡單的方式

用inputbox 的方式，讓使用者輸入

是學程式而不是要程式，是進步的基礎

TOP

gary0228

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Win7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-10-12
最後登錄: 2010-10-12

3^#

發表於 2010-10-12 10:41 | 只看該作者

本帖最後由 gary0228 於 2010-10-12 10:47 編輯

回復 2# 暗黑

嗯，謝謝暗黑前輩的回覆。
如果用inputbox的話，使用者還是需要把路徑輸入對話窗中，不怎麼方便。
希望是可以像Windows開啟舊檔的方式，跳出視窗讓使用者選擇要匯入的檔案，無論此檔案放在哪的路徑下。
謝謝!

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-10-12 10:50 | 只看該作者

Dim Fname As String
Fname = Application.GetOpenFilename("文字文件,*.txt")
If len(Fname)>0 Then

TOP

gary0228

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: Win7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-10-12
最後登錄: 2010-10-12

5^#

發表於 2010-10-12 11:47 | 只看該作者

回復 4# oobird

謝謝oobird的回覆，原來使用GetOpenFilename方法就可以了。
感嗯!

TOP

yafeii

　暱稱: 小費費

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 88
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-10-8
最後登錄: 2015-1-23

6^#

發表於 2010-10-24 00:32 | 只看該作者

請教高手們,如果希望在彈出式窗讓使用者同時點選多個檔案匯入
時應如何設定呢?謝謝!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2010-10-24 01:11 | 只看該作者

回復 6# yafeii

http://forum.twbts.com/thread-1592-1-2.html

學海無涯_不恥下問

TOP

yafeii

　暱稱: 小費費

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 88
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-10-8
最後登錄: 2015-1-23

8^#

發表於 2010-10-25 17:09 | 只看該作者

謝謝Hsieh大,請問一定要用Application.FileDialog(msoFileDialogOpen),不能用GetOpenFilename嗎?謝謝!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2010-10-25 18:03 | 只看該作者

回復 8# yafeii