帖子: 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來實現跳出視窗讓使用者自行選擇檔案?
謝謝!!

shakeass

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2013-1-31
最後登錄: 2018-12-5

12^#

發表於 2013-1-31 16:39 | 只看該作者

回復 11# shakeass

貼文失敗重貼一帖sorry
請教各位高手大大
小弟想要使用選擇檔案並將選擇之檔案複製到d:\test 資料夾裡
但是 FILECOPY "來源","D:\test"    的來源想用變數取代卻一直出現錯誤
可以麻煩高手幫忙看一下需要如何修改才能符合順利跑下去
Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
For i = 1 To .SelectedItems.Count
   Cells(i, 1) = .SelectedItems(i)
   MsgBox .SelectedItems(i)
   fs = .SelectedItems(i)

   fileCopy(fs,"d:\test")
Next
End With
End Sub

TOP

shakeass

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2013-1-31
最後登錄: 2018-12-5

11^#

發表於 2013-1-31 16:18 | 只看該作者

回復 9# Hsieh

請教各位高手大大
小弟想要使用選擇檔案並將選擇之檔案複製到d:\test 資料夾裡
但是 FILECOPY "來源","D:\test"    的來源想用變數取代卻一直出現錯誤
可以麻煩高手幫忙看一下需要如何修改才能符合順利跑下去
Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
For i = 1 To .SelectedItems.Count
   Cells(i, 1) = .SelectedItems(i)
   MsgBox .SelectedItems(i)
   fs = .SelectedItems(i)

   ==> Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
For i = 1 To .SelectedItems.Count
   Cells(i, 1) = .SelectedItems(i)
   MsgBox .SelectedItems(i)
   fs = .SelectedItems(i)

   fileCopy(fs,"d:\test")
Next
End With
End SubfileCopy(fs,"d:\test")
Next
End With
End Sub
感激

TOP

yafeii

　暱稱: 小費費

中學生 Rank: 2

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

10^#

發表於 2010-10-28 14:43 | 只看該作者

謝謝Hsieh版大~~!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

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

回復 8# yafeii

Sub nn()
Dim FileToOpen
FileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
If IsArray(FileToOpen) Then
MsgBox Join(FileToOpen, Chr(10))
ElseIf FileToOpen <> False Then
MsgBox FileToOpen
End If
End Sub

複製代碼

學海無涯_不恥下問

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
點名: 197
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-7

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