将文本文件加载到excel中时出错
我使用macroslogging器logging代码来加载文本文件到Excel中，但是，当我试图运行它。 我不断收到一个错误消息，说：“无效的程序校准或参数”。 有人能告诉我为什么？
提前致谢。
Sub Pacer() Set NewBook = Workbooks.Add Set sh1 = NewBook.Sheets("Sheet1") sh1.Activate With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\oyang\Desktop\Daily Recon Raw Data\Report_Bundle_20150810_0834\ALLPORT.LOG" _ , Destination:=sh1.Cells(1, 1)) .Name = "ALLPORT" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub 我testing了两种导入文本文件的方式，两种方式都很好，一致：
Option Explicit Private Const F_NAME1 As String = "C:\Users\oyang\Desktop\Daily Recon Raw Data\" Private Const F_NAME2 As String = F_NAME1 & "Report_Bundle_20150810_0834\ALLPORT.LOG" Private Const F_NAME3 As String = "C:\New folder\test.log" Public Sub importTextFile1() Dim wb As Workbook, ws As Worksheet Set wb = Workbooks.Add Set ws = wb.Sheets("Sheet1") With ws.QueryTables.Add(Connection:="TEXT;" & F_NAME3, Destination:=ws.Cells(1, 1)) .Name = "ALLPORT" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub
Public Sub importTextFile2() Workbooks.OpenText Filename:=F_NAME3, _ Origin:=437, _ StartRow:=1, _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, _ Tab:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _ TrailingMinusNumbers:=True End Sub