我有一个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
您的FieldInfo不需要采用二维数组的数组吗?我可能是错的,但我认为你需要'FieldInfo:Array(Array(0,1),Array(1,1),Array(2,1),等等)。至少我认为你会需要它当我使用记录宏来查找prt。文件数组是什么并且查看时,使用'Array(1,2,3等)'而不是'Array(1,1,1,...)'。 – 2014-09-03 15:39:44
那是我得到的那部分... – 2014-09-03 15:41:04
你说错误代码行是粗体,但我看不到粗体。错误说的是什么? – 2014-09-03 15:44:25