Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
74909 / 76807 ←次へ　｜　前へ→
【6354】Re:セルの内容をテキストに
質問  あやか E-MAIL  - 03/6/25(水) 17:36 -
引用なし
パスワード
   ▼リト さん：
>>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

と表示したいのですが・・・
わかってもらえるでしょうか・・・。
すみません、おねがいします。
1 hits
▼ 【5035】セルの内容をテキストに 花粉症 03/4/18(金) 14:42 質問
【5040】Re:セルの内容をテキストに ichinose 03/4/18(金) 17:36 回答
【5041】Re:セルの内容をテキストに BOTTA 03/4/18(金) 18:24 回答
【5051】Re:セルの内容をテキストに 花粉症 03/4/19(土) 10:02 お礼
【5052】Re:セルの内容をテキストに 花粉症 03/4/19(土) 10:07 お礼
【5053】Re:セルの内容をテキストに ichinose 03/4/19(土) 11:40 回答
【5055】Re:セルの内容をテキストに 花粉症 03/4/19(土) 12:31 お礼
【5820】Re:セルの内容をテキストに リト 03/6/2(月) 18:45 質問
【5872】Re:セルの内容をテキストに BOTTA 03/6/5(木) 10:13 回答
【5883】Re:セルの内容をテキストに リト 03/6/5(木) 19:38 質問
【5886】Re:セルの内容をテキストに BOTTA 03/6/6(金) 10:33 回答
【5890】Re:セルの内容をテキストに リト 03/6/6(金) 15:35 質問
【5895】Re:セルの内容をテキストに BOTTA 03/6/6(金) 20:35 回答
【6354】Re:セルの内容をテキストに あやか 03/6/25(水) 17:36 質問≪
【6369】Re:セルの内容をテキストに BOTTA 03/6/26(木) 13:47 回答
【6372】Re:セルの内容をテキストに あやか 03/6/26(木) 14:37 質問
【6381】Re:セルの内容をテキストに BOTTA 03/6/26(木) 17:01 回答
【6383】手作業ですけど．．．。 Jaka 03/6/26(木) 17:25 発言
【6389】Re:手作業ですけど．．．。 あやか 03/6/27(金) 1:25 質問
【6392】すみません。全部忘れてください。 Jaka 03/6/27(金) 11:14 発言
【6395】Re:すみません。全部忘れてください。 あやか 03/6/27(金) 11:44 お礼
【6418】Re:すみません。全部忘れてください。 Jaka@浅草橋 03/6/28(土) 13:29 回答
【6420】忘れてませんでしたよ〜。 あやか 03/6/28(土) 17:12 質問
【6442】Re:忘れてませんでしたよ〜。 Jaka 03/6/30(月) 10:04 回答
【6448】あ、それと．．。 Jaka 03/6/30(月) 13:02 回答
【6457】Re:あ、それと．．。 あやか 03/6/30(月) 22:07 お礼
【6388】Re:セルの内容をテキストに あやか 03/6/27(金) 1:13 お礼
【6393】Re:セルの内容をテキストに ポンタ 03/6/27(金) 11:26 回答
【6397】Re:セルの内容をテキストに あやか 03/6/27(金) 12:00 質問
【6399】Re:セルの内容をテキストに ポンタ 03/6/27(金) 12:30 回答
【6400】Re:セルの内容をテキストに あやか 03/6/27(金) 13:00 質問
【6401】Re:セルの内容をテキストに ポンタ 03/6/27(金) 13:09 回答
【6402】Re:セルの内容をテキストに あやか 03/6/27(金) 13:18 質問
【6406】Re:セルの内容をテキストに ポンタ 03/6/27(金) 14:10 回答
【6407】Re:セルの内容をテキストに ポンタ 03/6/27(金) 14:23 回答
【6408】Re:セルの内容をテキストに あやか 03/6/27(金) 14:28 質問
【6410】Re:セルの内容をテキストに ポンタ 03/6/27(金) 14:51 回答
【6411】Re:セルの内容をテキストに あやか 03/6/27(金) 15:00 お礼
【6422】Re:セルの内容をテキストに あやか 03/6/28(土) 23:13 質問
【6428】Re:セルの内容をテキストに あやか 03/6/29(日) 23:33 回答
【6423】Re:セルの内容をテキストに あやか 03/6/28(土) 23:15 質問
【6441】Re:セルの内容をテキストに ポンタ 03/6/30(月) 9:38 回答
【6459】できたぁぁぁぁ！ あやか 03/7/1(火) 19:46 お礼
【6424】Re:セルの内容をテキストに あやか 03/6/29(日) 1:32 質問
【6429】Re:セルの内容をテキストに あやか 03/6/29(日) 23:34 回答
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
74909 / 76807 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free