Excel的VBA - 導入文本文件到Excel工作表

我有一個關於this link，更具體使用查詢表Excel的VBA - 導入文本文件到Excel工作表

With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;***C:\Sample.txt***", Destination:=Range("$A$1") _)

在這個例子中C:\Sample.txt是靜態輸入的問題。你如何做到這一動態並讓用戶選擇文件？

來源

2013-10-15 Punit

哦！我怎麼會錯過？它就在那裏。非常感謝。 – Punit

@ t.thielemans發佈了這樣一個答案，它使upvoted和刪除評論後。他是否這個Punit將需要接受它 – Katana24

@ Katana24，完成！ :) – CustomX

我認爲你正在尋找這個功能;

FileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")

來源

2013-10-15 08:48:24 CustomX

我已經在使用這個功能。但是，當使用變量名'filename'時，我實際上錯過了在變量名之前使用的'＆'，因此出現錯誤。 – Punit

嘗試下面的代碼：

Public Browse(ByVal i as Integer,ByVal j as Inetger) 
    Application.EnableCancelKey=xlDisabled 
    Cells(i,j)=Application.GetOpenFileName(,,,,"Select File",,false) 
End Sub 

Sub BrowseFile 
    Call Browse(8,9) 'Cell no. 
End Sub

的BrowseFile可以被分配到的ActiveX控件，可以在前端設置的Object。

來源

2013-10-15 12:44:42

Excel的VBA - 導入文本文件到Excel工作表

回答

相關問題