• ベストアンサー
  • すぐに回答を!

【エクセル】セルの内容をテキストエディタに書き出す

どなたかご教授お願いします。 エクセルのセルの内容をテキストエディタに書き出し、 希望のファイル名で保存したいと思っております。 例。    A     |     B 1  長文1      1111 2  長文2      2222 3  長文3      3333 4  長文4      4444 ↓ ↓ ずっと1000番ほどまで続きます。 このように、 セルAの内容をテキストファイルに書き出し、 セルBという名前でテキストファイルを保存したいと思っております。 「セルA1」 書き出し → ファイル名「セルB1」 「セルA2」 書き出し → ファイル名「セルB2」 「セルA3」 書き出し → ファイル名「セルB3」 ・・・ という風に、ずっと続きます。 どなたか、良い方法はありませんか? エクセルのマクロの使い方も全くわかりませんので、 できるのであれば、どんな方法でも結構です。 申し訳ありませんが、 マクロの場合は、初心者でもわかるように、 マクロのコードを教えてください。 しばらく色いろと試しましたが、 方法が全くわからず、お手上げ状態です。 どうぞ、よろしくお願いします。

共感・応援の気持ちを伝えよう!

  • 回答数2
  • 閲覧数597
  • ありがとう数3

質問者が選んだベストアンサー

  • ベストアンサー
  • 回答No.1
  • keithin
  • ベストアンサー率66% (5278/7939)

ALT+F11を押す 現れた画面で挿入メニューから標準モジュールを挿入する 現れたシートに下記をコピー貼り付ける sub macro1()  dim i as long  dim myPath as string  mypath = "c:\test\"  ’適宜修正のこと  on error resume next  for i=2 to range("B65536").end(xlup).row  open mypath & cells(i, "B") & ".txt" for output as #1  print #1, application.substitute(cells(i, "A"), vblf, vbcrlf)  close #1  next i end sub ファイルメニューからエクセルに戻り,データを記入してあるシートで実行する。

共感・感謝の気持ちを伝えよう!

質問者からのお礼

ありがとうございます! 早速試してみます!

質問者からの補足

ありがとうございます。 だいたいはできましたが、 エラーもでました。 テキスト内に貼り付ける文字数がHTMLでして、 3000文字程あるのですが、「エラー 2015」と表示されてしまいます。 なにかいい方法はありますでしょうか? 改行がない、数文字程度で試すとうまく行きます。

関連するQ&A

  • 【Excel】特定セルの内容をテキストファイルに書き出したい

    こんにちは セルA1に =A2&A3&A4 A2からA4までの文字を繋げて表示しています。 このA1に表示されている内容を テキストファイル(例:abc.txt)に 簡単に保存できるマクロを教えて下さい。 Excel2003 です。

  • エクセルのセルの中身をhtmlファイルで簡単に保存させたい?

    エクセルのセルの中身をhtmlファイルで簡単に保存させたい? エクセル2003を使っています。 仮に A1にファイル名(index.html)  B1にhtmlの中身 A2にファイル名(tesuto1.html) B2にhtmlの中身 A3にファイル名(tesuto2.html) B3にhtmlの中身 以下同様に続く があったとします。 いつもはセルBのhtmlの中身をコピーしてエディタに貼り付け、ファイル名を指定して保存(Aのセル)していたのですが、手動でやるのが面倒なのでマクロを使って簡単にやりたいのですが出来るでしょうか? マクロ経験なしの素人ですがよろしくお願いします。

  • 1行単位のデータをテキストファイルに保存するマクロ

    エクセルに入力済みの連続したデータを1行単位で以下のような内容でテキストファイルを作成し、 かつテキストファイル名を、セルに入力されている文字を使って保存するマクロを作りたいのですが、 どのようにしたら良いのでしょうか?よろしくお願いします。 *エクセルシート (ファイル名:aaa.xls シート名:sheet1 エクセルシートがあるフォルダ名:yyy) _|A |B |C | 1|x |y |z | 2|a1|a2|a3| 3|b1|b2|b3| *テキストファイル(保存するフォルダ名:zzz) ---テキストファイルの内容(ファイル名:a1.txt) x a1 y a2 z a3 --- ---テキストファイルの内容(ファイル名:b1.txt) x b1 y b2 z b3 --- エクセルはExcel2000でWindows2000を使用しております。

その他の回答 (1)

  • 回答No.2
  • keithin
  • ベストアンサー率66% (5278/7939)

>エラー 2015 変更前: print #1, application.substitute(cells(i, "A"), vblf, vbcrlf) 変更後: print #1, replace(cells(i, "A"), vblf, vbcrlf) 「改行を含む」はご相談の情報提供にありませんでしたが,最初から対応済みです。 これでもまだおかしいときは,「問題の発生する状況」を特定して「問題を起こす具体的な(再現性のある)データ」を掲示してください。

共感・感謝の気持ちを伝えよう!

質問者からのお礼

早速のお返事、ありがとうございます。 今やってみましたら、完璧にできました。 本当に感謝です。 ありがとうございます!

関連するQ&A

  • Excel(セルの結合マクロ)

    いつもお世話になっております。 Excelのマクロで、選択範囲の中で、下のセルが空白のものは、上のセルと結合されるマクロを作りたいと考えています。 (例1:A1セルに”TEST”が入力されており、A2,A3セルが空白として、A1:A3を選択し、マクロを実行するとA1からA3がセル結合される  例2:A1に”TEST2”B2に"TEST3"が入力されており、A1:B3を選択すると、A1からA3が結合され、B2とB3も結合される) 説明が下手で申し訳ないのですが、お力を貸していただけませんでしょうか? よろしくお願いいたします。

  • エクセルでセル内容でフォルダを作って保存

    今はマクロボタンをクリックすると特定のセルの内容で指定したフォルダにPDFで保存されるようにして使っているのですがその前段取りが結構手間がかかって間違いも多いので改良したいのです。 やりたいことは、 決まった名前(見積書)のシート上のセルの内容(顧客名)で、例えばデスクトップの決まったフォルダ(見積書)の中に、A1セルの内容(顧客名)でフォルダを作成し、セルB2+C3の内容(日付+見積No)をファイル名にPDFで保存する、ということは出来るのでしょうか? 更にA1(顧客名)が同じなら既存の顧客フォルダにB2+C3で保存したいのですが。。。 かなり贅沢な要求だと思いますが、もし可能であればよろしくお願いします。

  • Excelのセルデータを別のファイルに転送する方法

    Excelのファイル名(G)のセルA1に入力されたデータが、自動的に別のファイル名(H)のセルB2にマクロを使用しないで転写される方法を教えてください。

  • excelで、2つのセルの中身を統合・1つのセルの中身を分割

    excelにて、上記のようなことを行いたいのですが、今までは 2つのセルの中身を統合・・・A1にA2,A3の文字を表示[A1に"=A2&A3"と入力] 1つのセルの中身を分割・・・A1に入力した10桁の数字を前3桁、後ろ7桁に分割し、それぞれA2、A3に表示[A2に"=MID(A1,1,3)",A3に"=MID(A1,4,10)"と入力] としておりました。 今後、このデータをaccessでも使用したいので、セル内に関数ではなく、文字が残るような方法があれば教えていただきたいのです。 また、出来るだけマクロを使わない方法で教えていただけますでしょうか。 もしマクロでないと出来ない場合は、どのようなマクロを組めばよいか、ご指導お願い致します。

  • エクセルのマクロでセル選択するには

    初心者です! エクセルのSheet1に30箇所のセルをマクロで選択したいのですが、 たまに選択するセルが変わります。 そこで、Sheet2のA1から下へSheet1の選択する位置を「B2」「C5」「D10」・・・としてマクロで一発で30箇所のセルを選択する方法を教えてください Sheet2のA1から下へ入力するセル位置はその都度変化します。 変化したときにそのマクロを実行すると選択できるといいのですが!! よろしくお願いします。

  • エクセルでつないだセルの結果を先頭のセルにもってこれるのでしょうか?

    エクセル上でなのですが、 例えば、A1に『おれたちは』A2に『天使じゃ』A3に『ない』と それぞれ入力してあるセルがあるとして、それらをつないだ結果を 先頭の“A1”に表示することは可能でしょうか? (A1が『おれたちは天使じゃない』となり、A2とA3は空にしたいのです) 別セルに&やらCON…なんとかで結果を出しておいてそれをA1に 形式を選択してペースト…その後A2とA3のセルの内容を削除すればいいのですが、()の作業をする回数があまりに多くいので… しかも、その一連の作業をワンクリックでやりたいのです。 バージョンは2008なのですが、マクロは使えないとのうわさ(?)も 聞いており、結構泣き入っています。 なんとかなりますか?

  • エクセル セル内容をファイル名に

    はじめまして。 今現在エクセルにていくつかのセル内容を結合しています。(ファイル名用として) その中には日付をTEXT(A1,yy.mm.dd)としSUBSTITUTE(A2,"/",".")でスラッシュをピリオドに 変換してるセルもあります。 ボタンを作り押したときにそのセルを読み込み、ファイル名にしているのですが 読み込まれた内容にダブルコーテーションがついてしまいます。 「”ファイル名”」の様になってしまい、そのまま保存を押すと .xlsが付かず困っております。 ちなみにボタンに入れてあるマクロは Private Sub CommandButton1_Click() Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("AK14").Value End Sub です。 どなたかご教授頂けませんでしょうか。。。 宜しくお願い致します。

  • エクセルで入力のあるセル=1にする方法

    エクセル2003を使用してます。 あまり使ったことがないので基本的なことだったらすみません…。 数字入力のあるセルを認識して別のセルに『1』と表示させる方法はありますか? 《例》 (入力するセル)     (表示するセル) A1 1        B1 1 (A1~A5を認識) A2 1        B2 1 (A1のみ認識) A3 2        B3 1 (A2~A5を認識) A4   (入力なし) A5 1 (入力するセル)     (表示するセル) A1 1          B1 1 (A1~A5を認識) A2   (入力なし)  B2 1 (A1のみ認識) A3   (入力なし)  B3   (表示なし)(A2~A5を認識) A4   (入力なし) A5   (入力なし) こんな感じにしたのですが、何かできる手段はありますか?

  • Excelのセルの内容をコマンドプロンプトで実行

    Excel VBA初心者です。 Excelのセルに記入されている文字列をコマンドプロンプトで実行する方法を教えて下さい。 具体的には、 A1 → d: A2 → cd hogehoge A3 → dir とセルにそれぞれ記入されていたとして、フォームから作成したボタンを押下すると A1~A3が順番にコマンドプロンプトで実行(貼り付け)されるマクロの作り方が知りたいです。 ロジックは以下のようにしたいと考えています。 セルA1に値 →ない→ 「値がありません」というエラーのポップアップか何かを表示。 ↓ある セルA1に記入された文字列をコマンドプロンプトで実行 ↓ セルA2に値 →ない→exit ↓ある セルA2に記入された文字列をコマンドプロンプトで実行 ↓ セルA3に値 →ない→exit ↓ある 以下ループ わかりにくいかもしれませんが、よろしくお願い致します。

  • 同じ列に同じ数があるときにセルを塗りつぶす方法

    EXCEL2007です。 初心者です。よろしくお願いします。 列単位で、同じ数字があった時にセルを黄色などで塗るつぶす 条件書式の設定について教えてください。 A1に18、A2に16、A3に18、A4に25、A5に14 A1とA3が同じ数字ですので、セルを塗りつぶす方法 同じように B1に43、B2に11、B3に42、B4に11、B5に18 B2とB4が同じ数字ですので、セルを塗りつぶす方法 よろしくお願いします。