文件打开提示功能代码不起作用-不知道为什么

Question

我有一个调用函数文件（路径）的 Sub ImportTest1()。导入子似乎工作正常，但我不能确定，因为在设置 QueryTable 内容以将文本文件打开到 Excel 工作表时，Function 部分不起作用。下面的代码是我目前所拥有的（粗体部分是不起作用的部分），我不确定这是什么问题。

Sub ImportTest1()

Dim path As String

'CALL TO OPEN FILE DIALOG BOX
path = opener()
If path = "" Then
    Exit Sub
End If

'CALL TO FILE OPEN FUNCTION
files (path)

End Sub

Function opener()

Dim sFile As String

With UserForm1.CommonDialog1
.Filter = "All Files (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
    Exit Function
End If
sFile = .FileName
End With
Unload UserForm1

opener = sFile

End Function

Function files(path As String)

Workbooks.OpenText FileName:="prt.", Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1, 1, 1, 1, 1)

End Function

Answer 1

我认为您可以大大简化您的代码，并只处理您想要实现的目标。从您之前的 cmets 和原始帖子中我可以看出，您希望 A. 从用户那里检索文件名和路径。您可以通过以下方式做到这一点

f = InputBox(Prompt:="Please enter a file path and name.")

这会弹出一个对话框，用户可以在其中输入一些文本。 f 中存储的将是一个表示文件名和路径的字符串。例如，用户可以输入C:\Users\Owner\Desktop\myFile.csv 之类的内容。

如果你想打开存储在 f 中的那个文件，你可以试试你帖子里已有的东西

Workbooks.OpenText Filename:=f, DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(Array(1,1), Array(2,1), Array(3,1))

这假设输入了一个 3 列的逗号分隔文件，但您可以将其修改为您喜欢的任何内容。

总的来说，您可能只需要这四行 vba 代码即可完成您想要完成的任务。你可以把它放到一个子程序（不是函数）中，就像这样

Sub OpenMyFile()
f = InputBox(Prompt:="Please enter a file path and name.")
Workbooks.OpenText Filename:=f, DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(Array(1,1), Array(2,1), Array(3,1))
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).Cells(1, 1)
ActiveWorkbook.Close False
end sub

希望对你有帮助。