文件打開提示功能代碼不工作 - 不知道爲什麼

Question

我有一個Sub ImportTest1（）函數文件（路徑）中調用。導入子似乎工作正常，但我不能確定，因爲功能部分不起作用，當涉及到設置QueryTable的東西打開文本文件到Excel工作表。下面的代碼是我目前所擁有的（粗體部分是不工作的那部分），我不確定那是什麼錯誤。

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

我認爲你可以簡化你的代碼很多，只是處理你想達到的目標。從我在以前的評論和原文中可以看出的是，您將要到答。從用戶檢索文件名和路徑。你可以用下面的方法做到這一點

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 

我希望有幫助。