Excel VBA質問箱 IV

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

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


76105 / 76732 ←次へ | 前へ→

【5052】Re:セルの内容をテキストに
お礼  花粉症  - 03/4/19(土) 10:07 -

引用なし
パスワード
   ichinose さん。回答をありがとうございました。

いろんなやり方があるんで、勉強になりました。
ありがとうございました。

それで、テキストは書き出せたんですが、新たな問題がでたので
すみませんが改めて質問です。
セルの中の文章で、置換をかけているんですが、文中の
”―”を置換すると、”ー”(音引き)も同時に変換されます。
同じコードとして処理してるんでしょうが、解決方法はありませんか。

>▼花粉症 さん:
>
>こんにちは。
>>よろしくお願いします。花粉症です
>私、そろそろ花粉症、終結です。
>
>>VBAでテキストを取り込んで、編集するマクロを
>>作成中です。
>>その中で、あるセルの内容をテキストに書き出し
>>たいんですが、VBAではどうしたらいいんでしょうか。
>>
>>よろしくお願いします。
>例題は、アクティブシートのセルA1〜A4の内容をテキストファイルに書き込むものです。
>標準モジュール(Module1)に、
>'======================================================
>Sub テキスト出力()
>  Dim flnm
>  flnm = Application.GetSaveAsFilename(fileFilter:="テキスト ファイル (*.txt), *.txt")
>  If flnm <> False Then
>    If open_file_output(flnm) = 0 Then
>     Set rng = Range("a1:a4")
>     For idx = 1 To rng.Count
>      If put_file(rng.Cells(idx).Value) <> 0 Then
>        Exit For
>        End If
>      Next
>     Call close_file
>     End If
>    End If
>End Sub
>
>標準モジュール(Module2)に、
>'=============================================================
>Dim flno As Long
>'===============================
>Function open_file_output(flnm)
>  On Error Resume Next
>  open_file_output = 0
>  flno = FreeFile
>  Open flnm For Output As #flno
>  If Err.Number <> 0 Then
>    MsgBox Error$(Err.Number) & ":" & Err.Number
>    open_file_output = Err.Number
>    End If
>  On Error GoTo 0
>End Function
>'==========================================
>Function put_file(f_data As Variant) As Long
>  On Error Resume Next
>  put_file = 0
>  Print #flno, f_data
>  If Err.Number <> 0 Then
>    MsgBox Error(Err.Number) & ":" & Err.Number
>    put_file = Err.Number
>    End If
>  On Error GoTo 0
>End Function
>'===========================================
>Sub close_file()
>  On Error Resume Next
>  Close #flno
>  On Error GoTo 0
>End Sub
>
>でテキストファイルが作成されました。
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 回答

76105 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free