CSVファイルを既存のExcelファイルに追加するには？ (ID:75710)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 CSVを読み込む際に新規にEXCELオブジェクトを作成してしまって いるのではないでしょうか？ XLSを開いたオブジェクトでWorkSheetを指定して、そこに CSVを展開すれば出来ると思いますよ。（というか実績あり＾＾；） '====================================================== Set objExlApp = GetObject(strXlsFileIn, "Excel.Sheet") strExlSheet = "Sheet3" 'ブックのシート名 Open strCsvFile For Input As #1 Len = 32000 j = 1 k = 3 'CSV項目数 With objExlApp.Worksheets(strExlSheet) .Cells.Delete 'シートのクリア Do Until EOF(1) For i = 1 To k Input #1, rec .Cells(j, i).Value = rec Next j = j + 1 Loop End With Close #1