Excel VBA - 将文本文件导入Excel工作表

Question

我对this link有疑问，更具体使用查询表

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

在示例C:\Sample.txt中静态输入。你如何使这个动态并让用户选择文件？

Answer 1

我认为你正在寻找这个功能;

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

• Source
• Possible duplicate

Answer 2

请尝试以下代码：

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控件对象。