|
▼リト さん:
>>FileSystemObjectを使って、
>>
>>Sub aaa01()
>>Dim FSO As Object, objText As Object, Fname As String
>> Fname = "C:\My Documents\test.txt" '←正しいファイル名にしてね
>> Set FSO = CreateObject("Scripting.FileSystemObject")
>> '↓書き込み専用でOpen、無ければファイルを作成
>> Set objText = FSO.OpenTextFile(Fname, 2, True)
>> '↓Sheet1のA1セルの内容を書出す
>> objText.Write Range("A1").Value
>> objText.Close
>> Set objText = Nothing
>> Set FSO = Nothing
>>End Sub
>>
>>'複数セル対応
>>Sub aaa02()
>>Dim FSO As Object, objText As Object, Fname As String
>>Dim Rngs As Range, Rng As Range
>> Fname = "C:\My Documents\test.txt" '←正しいファイル名にしてね
>> Set FSO = CreateObject("Scripting.FileSystemObject")
>> Set objText = FSO.OpenTextFile(Fname, 2, True)
>> 'Sheet1のA1〜A4セルの内容を書出す
>> Set Rngs = Range("A1:A4")
>> For Each Rng In Rngs
>> objText.WriteLine Rng.Value
>> Next
>> objText.Close
>> Set objText = Nothing
>> Set FSO = Nothing
>>End Sub
>
BOTTAさん、私もこの複数セル対応の方を利用してセルの内容をテキストデータに書き出したいを思い使わせてもらいました。大変わかりやすくて助かります。
一部のセルで、金額を表示のしたいのですが桁数が違うとずれてきてしまいます。
バイト数を制限して表示したいのですが
どうしたらよいのでしょう。ご教授願います。
エクセル内容(入力内容は:以下)
A1(日付:030625) B1(金額: 1000) A3(消費税: 50)
A2(日付:030626) B2(金額:30000) B3(消費税:150)
書き出したテキスト内容
030625100050
03062630000150
を、
030625 1000 50
030626 30000 150
と表示したいのですが・・・
わかってもらえるでしょうか・・・。
すみません、おねがいします。
|
|