CSVファイルをExcelでタイトルをつけて印刷するには？ (ID:113078)

名前

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

本文 こんにちわ、お願いします。 CSVにデータ書いて、そのデータをExcelで出力したいんですが…。 ページをまたがらないようにして、更に改ページした時タイトルも常につけたいと思うのですが、良い方法はありますか？ Set xlsApp = CreateObject("Excel.Application") Set xlsBook = xlsApp.Workbooks.Open("C:\ptemp.xls") Set xlsSheet = xlsBook.Sheets("Sheet1") strFileName = "c:\temp.csv" intFileNo = FreeFile Open strFileName For Input As intFileNo Do Until EOF(intFileNo) intRow = intRow + 1 For intCol = 1 To 10 Input #intFileNo, strRecBuff xlsSheet.Cells(intRow, intCol) = strRecBuff Next Loop xlsApp.DisplayAlerts = False xlsBook.Application.Visible = True xlsSheet.PrintOut xlsBook.Close こんな風に出力したい データは、合計の文字と合計金額はCSVにあります。 リスト 1ページ 番号 商品 数量 単価 金額 １ あめ ２ 10 20 ２ がむ １ 20 20 合計 40 ・ ・ ・ （改行） 2ページ 番号 商品 数量 単価 金額 １ あめ ３ 10 30 ３ かし １ 20 15 合計 45 ぜひよろしくお願いします。