Excel VBA - 将文本文件导入Excel工作表[重复]答案

【问题标题】：Excel VBA - Import a text file to excel sheet [duplicate]Excel VBA - 将文本文件导入Excel工作表[重复]
【发布时间】：2013-10-15 07:44:31
【问题描述】：

我有一个关于this link 的问题，更具体使用查询表

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

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

【问题讨论】：

哦！！我怎么能错过呢？它就在那里。非常感谢。
@t.thielemans 将其作为答案发布，并在之后删除评论。当他这样做时，Punit 需要接受它

标签： vba excel

【解决方案1】：

我猜你正在寻找这个功能；

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

【讨论】：

我已经在使用这个功能了。但是在使用变量名“文件名”时，我实际上错过了在变量名之前使用的“&”，因此出现错误。

【解决方案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 控件对象。

【讨论】：