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

名前

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

本文 だっちゃん、こんばんは。大変参考になりました。実は、 http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200309/03090017.txt は見ていたのですが、ちょっと違うかなと思って試していませんでした。それは、 MyXL.Application.Workbooks.Open "c:\test.txt" を使っており、私の場合は、 xlApp.Application.WorkBooks("test.txt").SaveAs FileName:="C:\test.xls" は、使えないかなと思ったのです。 ですが、ものは試しだと思ってやってみたらうまくいきました。 下記のように記述することで、動作するようになります。 なお、xlApp.Workbooks.OpenTextのところでは、「Comma:=True」が抜けてました Dim xlApp As Excel.Application Dim strCSVFile As String 'ＣＳＶファイル名 Dim strXLSFile As String 'Ｅｘｃｅｌファイル名 Dim strCSVFullPath As String 'strCSVFileのフルパス名（ファイル名を含む） Dim strXLSFullPath As String 'strXLSFileのフルパス名（ファイル名を含む） （途中は省略） Set xlApp = CreateObject("Excel.Application") xlApp.Workbooks.OpenText FileName:=strCSVFullPath, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Comma:=True xlApp.Application.DisplayAlerts = False xlApp.Application.WorkBooks(strCSVFile).SaveAs FileName:=strXLSFullPath, FileFormat:=xlExcel9795 xlApp.Quit Set xlApp = Nothing どうもありがとうございます。