EXCEL2007のVBAを使って、テキストファイルを読み込んで別のテ
EXCEL2007のVBAを使って、テキストファイルを読み込んで別のテキストファイルを作って書き込むというコードを書きましたが、新しく出来たテキストファイルの末尾に、もともとのファイルには無かったスペースが追加されてしまいます。
原因と対策を教えて頂きたいです。
-------------------------------------------------------
Dim FileName1 As String
Dim FileName2 As String
Dim FileNumber1 As Integer
Dim FileNumber2 As Integer
Dim Data As String
FileName1 = Application.GetOpenFilename("Text Files (*.txt), *.txt")
FileName2 = Application.GetSaveAsFilename(, "Text Files (*.txt), *.txt")
Data = Space(FileLen(FileName1))
FileNumber1 = FreeFile
Open FileName1 For Binary As #FileNumber1
Get #FileNumber1, , Data
Close #FileNumber1
'この間に"Data"内容を処理するコードを入れる予定
FileNumber2 = FreeFile
Open FileName2 For Binary As #FileNumber2
Put #FileNumber2, , Data
Close #FileNumber2
-------------------------------------------------------
このコードで1284バイトのテキストを読み込ませると末尾にスペースが追加されて1918バイトになってしまいました。
"Data"の内容を表示させてもスペースはなく、Len関数で大きさを調べても1284バイトです。
