Excelを使ったCSV→Xlsファイル変換をするには？ (ID:109833)

名前

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

本文 ＣＳＶファイルからＥｘｃｅｌ用ファイルに変換するプログラムを作成しています。 ＶＢに関する掲示板や、書籍をみて、以下のように作ってみました。 Dim xlApp As Excel.Application Dim strCSVFile As String 'ＣＳＶファイル名 Dim strXLSFile As String 'Ｅｘｃｅｌファイル名 （途中は省略） Set xlApp = CreateObject("Excel.Application") xlApp.Workbooks.OpenText FileName:=strCSVFile, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote xlApp.Application.DisplayAlerts = False xlApp.SaveAs strXLSFile xlApp.Quit Set xlApp = Nothing ところが、上記のxlAppにはSaveAsメソッドがありませんので、これではうまく動作しません。 SaveAsメソッドを使うには、以下の定義が必要となります。 Dim xlBook as Excel.Workbook Set xlBook = となって、 xlBook.Workbook.SaveAs strXLSFile となるのだと思うのですが、「Set xlBook =」の後にどう書いたらいいか分かりません。 Set xlBook = xlApp.Workbooks.Open(strCSVFile) とやると、ＣＳＶファイルの中身がカンマごとにＥｘｃｅｌのセルに入りません。 どのようにしたらよいか、教えて下さい。