タイトル | : エクセルシートへのCSVファイルインポートについて |
記事No | : 7401 |
投稿日 | : 2008/04/25(Fri) 10:56 |
投稿者 | : ルーキー |
エクセルシートへのCSVファイルのインポートを行っています。 (エクセルのマクロ記録を参考として使用しました。)以下ソースコード xlQueryTables = xlSheet.QueryTables xlDataRange = xlSheet.Range("A1") With xlQueryTables.Add(Connection:="TEXT;C:\test.csv", Destination:=xlDataRange) .Name = "test" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False '.RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 932 .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 MRComObject(xlQueryTables) MRComObject(xlDataRange) 宣言したオブジェクトの開放を行っているつもりですが、 処理完了後にエクセルが残ってしまいます。 何か開放を忘れているオブジェクトがあるのでしょうか? アドバイスをいただけますでしょうか?よろしくお願いします。
|