Excel 2003からVBAのReplaceメソッドで文字を置換する方法

質問

• Excel 2003からVBAのreplaceメソッドを使用して文字を置換する方法について教えてください。
• エクセルファイルシートをセミコロン区切りのテキストファイルに変換して出力したいです。
• エクセル2002ではVBAのマクロが動作し、TABをセミコロンに置換できますが、エクセル2003では置換ができず、TABがそのまま出力されます。解決方法を教えてください。

回答No.1

pkh4989 · ベストアンサー

以下のように変更してみてください。

Sub Main()
　　Call ExportWorksheetWithCustomDelimiter("TEST", "C:\TEST", ";")　　 '←起動方法
End Sub

Function ExportWorksheetWithCustomDelimiter( _
　　ByVal SourceWorksheet As Variant, _
　　ByVal FilePath As String, _
　　ByVal Delimiter As String)

　　' Exports the source worksheet as a text file with a custom field delimiter.
　　' ExportWorksheetWithCustomDelimiter(SourceWorksheet, FilePath, Delimiter)
　　' SourceWorksheet - The name of or a reference to a worksheet.
　　' FilePath - The full path to the export file.
　　' Delimiter - One or more characters to use as the field delimiter.

　　Dim DisplayAlerts As Boolean
　　Dim FileNumber As Long
　　Dim FileData As String

　　If VarType(SourceWorksheet) = vbString Then SourceWorksheet = ActiveWorkbook.Sheets(SourceWorksheet).Name
　　' Create copy of source worksheet in new workbook
　　Sheet1.Copy

　　' Save copy as tab delimited text file and close
　　DisplayAlerts = Application.DisplayAlerts
　　Application.DisplayAlerts = False
　　ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlText
　　ActiveWorkbook.Close SaveChanges:=False
　　Application.DisplayAlerts = DisplayAlerts

　　' Read file into string variable and delete file
　　FileNumber = FreeFile
　　'Open FilePath For Binary Access Read Write As FileNumber
　　Open FilePath & ".txt" For Binary Access Read Write As FileNumber
　　FileData = StrConv(InputB(LOF(FileNumber), FileNumber), vbUnicode)
　　Close FileNumber
　　Kill FilePath & ".txt"

　　' Replace all tabs with special character
　　FileData = Replace(FileData, Chr(9), Delimiter)

　　' Right modified text back out to same file
　　'Open FilePath For Binary Access Read Write As FileNumber
　　Open FilePath & ".txt" For Binary Access Read Write As FileNumber　 '←変更
　　Put FileNumber, , FileData
　　Close FileNumber
End Function

補足

pkh4989さん、回答ありがとうございました。
私の質問が悪かったです。
実は"エクセルファイルシートをセミコロン区切りのテキストファイルに変換して出力したいです。"　だけじゃなくて、*.ABCDのようにお客さんからの要望に合わせてファイルの拡張子も変更して出力する仕様です。でもその拡張子の変更はすでに解決したので今回は説明しませんでした。
Kill FilePath & ".txt"　このコードから最終的にテキストファイルを削除する処理を行いますので、もう一度下で以下の処理をするなら再度テキストファイルが作成されますので作りたい仕様とは違います。
Open FilePath & ".txt" For Binary Access Read Write As FileNumber　 '←変更
たぶん
FileData = Replace(FileData, Chr(9), Delimiter)
このコードが問題があるんじゃないかなと思いますが、まだ良く分からなくって困っています。
また、よろしくお願いします。