如何每次開啟選擇匯入文字檔之路徑

以下的程式是用錄製巨集的功能完成的
主要是要將文字檔匯入excel指定欄位
可是因為有時候文字檔路徑不一樣
致程式無法順利執行
不知道要怎樣改成可以跳出視窗選擇檔案路徑，才可以不用每次重錄巨集
希望有人能協助，謝謝

Sub Macro1()
'
' Macro1 Macro
' 匯入檔案
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\USER\Desktop\新會\99.txt", Destination:=Range("$A$2"))
.Name = "99"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 9, 9)
.TextFileFixedColumnWidths = Array(38, 32, 28)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-27
End Sub

複製代碼

樓主熱帖

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^#

發表於 2017-7-25 10:02 | 只看該作者

回復 1# sping
試試看

Sub Macro1()
'
' Macro1 Macro
' 匯入檔案
'
'
txtFile = Application.GetOpenFilename("文字檔, *.txt")
txtFile = "TEXT;" & txtFile
With ActiveSheet.QueryTables.Add(Connection:=txtFile, Destination:=Range("$A$2"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 9, 9)
.TextFileFixedColumnWidths = Array(38, 32, 28)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-27
End Sub

複製代碼

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-7-25 10:48 | 只看該作者

回復 1# sping

'選檔案
Set FD = Excel.Application.FileDialog(msoFileDialogFilePicker) '設定選取檔案功能
FD.Filters.Clear '清除之前的資料
'FD..InitialFileName = "c:temp\"'默認路徑
FD.Filters.Add "Excel File", "*.xls*" '設定顯示的副檔名
If FD.Show = -1 Then
Path = FD.SelectedItems(1)
Else
End
End If
Workbooks.Open Path

PKKO

TOP

sping