none
Excel VBAのQueryTableを使用して0byteファイルを開いたときの動作について RRS feed

  • 質問

  • Excel VBAを使用して、以下のコードを記述しました。

    読み込むファイルtest.csvが想定通りの中身であれば、問題なく動作するのですが、

    0byteファイルの場合だと、「実行時エラー'7' メモリが不足しています。」というエラーが出力されます。

    そこで質問事項です。

    ■質問事項

    1)なんのメモリが不足しているのでしょうか?

    2)以下のコードのマクロは、Excelの手動操作の[データ]タブ - [外部データ取り込み] - [テキストファイル]の処理と

     ほぼ同じだと思っていますが、何か違うのでしょうか?

    ■コード

    Sub test()
        With Worksheets("Sheet1").QueryTables.Add(Connection:="TEXT;Z:\test.csv", Destination:=Range("$A$1"))
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 932
            .TextFileTabDelimiter = True
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    End Sub

    2018年7月4日 2:45