QueryTableのVBAタイプの不一致エラー

Question

8行目でタイプの不一致範囲エラーが発生しています。誰かが間違っていることを親切に説明できますか？

おかげ

Set objExcel = CreateObject("Excel.application") 
Set objWorkbook = objExcel.Workbooks.Add() 
Set objSheet = objWorkbook.Worksheets.Add 
objExcel.Visible = True 
objExcel.DisplayAlerts = True 
objExcel.Workbooks.Add(1) 

With objExcel.ActiveSheet.QueryTables.Add(Connection="TEXT;C:\temp\file.csv", Destination=Range("$A$1")) 
    '.CommandType = 0 
    .Name = "test_ITS_ExtractX" 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .TextFilePromptOnRefresh = False 
    .TextFilePlatform = 850 
    .TextFileStartRow = 1 
    .TextFileParseType = xlDelimited 
    .TextFileTextQualifier = xlTextQualifierDoubleQuote 
    .TextFileConsecutiveDelimiter = False 
    .TextFileTabDelimiter = True 
    .TextFileSemicolonDelimiter = False 
    .TextFileCommaDelimiter = False 
    .TextFileSpaceDelimiter = False 
    .TextFileColumnDataTypes = Array(2, 2) 
    .TextFileTrailingMinusNumbers = True 
    .Refresh BackgroundQuery=False 
End With 

objExcel.ActiveWorkbook.SaveAs Filename="c:/temp/file.xlsx", FileFormat=xlOpenXMLWorkbook, CreateBackup=False 

objExcel.DisplayAlerts = Trueの objExcel.Quit

Answer 1

コードが実際にVBAバリアントのいずれかに書き込まれている場合、名前付きパラメータは、=の代わりに:=を使用して指定する必要があります。私はあなたのコードを実行すると、これは "タイプの不一致"エラーを生成します。

修飾されていないRangeオブジェクトもあります（answer by Domenicを参照）。これにより、構文エラーを修正すると問題が発生します。

だから、正しい行は次のようになります。

With objExcel.ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\temp\file.csv", _ 
              Destination:=objExcel.ActiveSheet.Range("$A$1")) 

とあなたの後の行のいずれかが

objExcel.ActiveWorkbook.SaveAs Filename:="c:\temp\file.xlsx", _ 
           FileFormat:=xlOpenXMLWorkbook, _ 
           CreateBackup:=False 

であるべきと私はちょうど

.Refresh BackgroundQuery:=False 

に気づいた（注：ことを確認してくださいxlOpenXMLWorkbook定数は、これを実行しているアプリケーションで利用できます。そうでない場合は、nあなた自身に正しい値を割り当ててください。 xlInsertDeleteCellsなども同様）

Answer 2

試してみてください...

With objExcel.ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\temp\file.csv", Destination:=objExcel.ActiveSheet.Range("$A$1")) 

・ホープ、このことができます！