• 締切済み
  • すぐに回答を!

エクセルのセルをテキストファイル出力する方法教えてくれませんか。

初心者ですが、 どなたか、エクセルのセル1つを、 テキストファイル出力できる方法をご存知ですか? 詳細には、 エクセルファイルの列Aの内容がテキストファイル名で、 列Bの内容が本文であるテキストファイル出力を 約3000個、順次したいと考えています。 例えば、エクセルファイルに以下のようなデータを保持しているとします。 列A  列B 001  あいうえお 002  かきくけこ 003  さしすせそ この場合、001.txtは本文が「あいうえお」、 002.txtは本文が「かきくけこ」、 003.txtは本文が「さしすせそ」というように、 エクセル1行についてテキストファイルを1つ作成したいと考えています。 このような処理を短時間で実施するのに適した方法をご存知の方がいらっしゃいましたらご教示いただければと思います。 どうぞよろしくお願いいたします。

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

  • 回答数2
  • 閲覧数2086
  • ありがとう数1

みんなの回答

  • 回答No.2
  • imogasi
  • ベストアンサー率27% (4553/16293)

>テキストファイル出力できる方法をご存知ですか? エクセルVBAを勉強してるものには、常識的なことです。 (1)それより質問者がVBAを学習や作成したことがあるのかが問題ですよ。 (2)関数では出来ませんからね。 (3)人手操作ではテキストエディターにコピー貼り付けーテキストファイルの名前をつけて保存、の繰り返しになり、手間ですが理屈では時間をかければ、出来ます。 (4)特殊ソフト 内容は簡単なことなので、WEBなどには公表されないでしょう。 (1)のコードはWEBで照会すれば使う道具立ては沢山の例が載ってます。 「vba テキストファイル 書き出し」でGoogleなどで照会。

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

関連するQ&A

  • エクセルの各セルの内容をそれぞれ1つずつテキストファイルに出力する方法

    掲題の件についてご存知の方がいらっしゃいましたらご教示ください。 エクセルファイルの列Aの内容がタイトルで、列Bの内容が本文であるテキストファイルを作成したいと考えています。 例えば、エクセルファイルに以下のようなデータを保持しているとします。 列A  列B 001  あいうえお 002  かきくけこ 003  さしすせそ この場合、001.txtは本文が「あいうえお」、002.txtは本文が「かきくけこ」、003.txtは本文が「さしすせそ」というように、エクセル1行についてテキストファイルを1つ作成したいと考えています。 このような処理を短時間で実施するのに適した方法をご存知の方がいらっしゃいましたらご教示いただければと思います。 どうぞよろしくお願いいたします。

  • テキストファイルの結合

    以下のようなテキストファイル結合を実現したいと思っています。 【ファイル1】 あいうえお かきくけこ さしすせそ 【ファイル2】 123 456 789 ↓↓↓↓↓↓↓↓↓↓↓ 【結合後】 あいうえお123 かきくけこ456 さしすせそ789 このように行単位でファイル1とファイル2の文字列を結合していきたい のですが、VBAでこれを実現できますか? VBAでなく、他の言語でも良いのですが、VBAが手っ取り早い感じがしたので…。 ご教授いただけますよう宜しくお願いします。

  • Excel VBAで列ごとのデータをテキストファイルへ書くには?

    エクセルのシート(たとえばSheet1)が以下のようになっているとします。 A B C D E F 1 商品A 11111111 あいうえお 3 1000 2 商品B 22222222 かくくけこ 1 2500 3 商品C 33333333 さしすせそ 2 3500 ・ ・ これを決まった列ごとにテキストファイル(固定ファイル名)に書き出すということは、エクセルのVBAで可能でしょうか? テキストファイルの内容は以下のようにしたいのです。 E列を数量として、その分だけのテキスト行を書き出したいのですが… <<bbb.txt>> 商品A 商品A 商品A 商品B 商品C 商品C ・ ・ <<ccc.txt>> 11111111 11111111 11111111 22222222 33333333 33333333 ・ ・ <<fff.txt>> 1000 1000 1000 2500 3500 3500 ・ ・ また、このようなことが参考になるHPがあればお教え願いたいのですが。 以上よろしくお願いします。

  • 回答No.1

一例です。 エラー処理はしてません。 Sub test()   Dim myLastRow As Long, i As Long   Dim n As Integer   Dim myFileName As String      myLastRow = Cells(Rows.Count, "A").End(xlUp).Row   For i = 1 To myLastRow     myFileName = Cells(i, "A").Value & ".txt"     n = FreeFile     Open myFileName For Output As #n     Print #n, Cells(i, "B").Value     Close #n   Next i End Sub

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

関連するQ&A

  • C++での検索と出力について

    C++を勉強しています。 今回やりたいのは以下のような作業をしたいです。 例えば... (1)text.txtを読み込む。 (2)ファイル内の『あいうえお』を検索。 (3)次の行と、そこから8カラム分空白を開けた後に『あいうえお』が含まれているかを確認。 (4)続いて『かきくけこ』を検索。 (5)次の行と、そこから8カラム分空白を開けた後に『かきくけこ』が含まれているかを確認。 (6)(3)、(4)と同じ作業を行う。 (7)もし無ければ"出力内容"のようにエラーメッセージを出力。 (8)『はひふへほ』を見つけたら終了。 【テキスト内容例】 ********************あいうえお******************** **あいうえお********あいうえお******************** ********************かきくけこ******************** **かきくけこ********かきくけこ******************** ********************さしすせそ******************** **さささささ********さささささ******************** ********************はひふへほ******************** 【出力内容】 "あいうえお"は合っています。 "かきくけこ"は合っています。 "さしすせそ"は違います。 結構面倒かと思いますが、このような作業を練習も兼ねてやってみたいのです。出来るのか検討が付かなくて。 (1)、(2)までは出来たのですがそこからが出来ないもので。 ぜひ教えていただきたいです。 皆さん教えてください。お願いします。

  • VB.NET テキストファイルにデータを書き込み

    テキストファイル("c:\test.txt")に「かきくけこ」と全角5文字で1行のデータがあるとします。 このテキストファイルに「あいうえお」を先頭に追加で書き込みたいのですが、どうすればいいのでしょうか? あくまで「かきくけこ」を変数化せずファイルに直接、書き込む方法がある場合、教えてください。 'テキストファイルを開いたときの内容 あいうえお かきくけこ ちなみにですが、テキストファイル("c:\test.txt")に「かきくけこ」と全角5文字で1行のデータがあるとして、 末尾に「さしすせそ」を追加で書込みする方法は下記の通りでした。 'ファイルを書き込み用に開く、指定したファイルがない場合は作成する dim fsFile As System.IO.FileStream = _ System.IO.File.OpenWrite("c:\test.txt") 'StreamWriterオブジェクトを作成し、テキストデータが書き込めるようにする Dim sw As System.IO.StreamWriter = _ New System.IO.StreamWriter(fsFile) 'ファイルの末尾に移動する sw.BaseStream.Seek(0, System.IO.SeekOrigin.End) 'データを書き込む sw.WriteLine("さしすせそ") 'ファイルを更新する sw.Flush() 'ファイルを閉じる sw.Close() fsFile.Close() 'テキストファイルを開いたときの内容 かきくけこ さしすせそ

  • エクセルの1つのセルの中で。

    エクセルの1つのセルの中で、 ・あいうえお ・かきくけこ ・さしすせそ といったように、一番左に・をつけて表示するには、どのようにしたらいいのでしょう? ひらがな表記で・を押す以外の解決方法はありますか? よろしくお願いします。

  • エクセルのセル内重複データの処理について

    下記のような雪だるま式に増え続けるエクセルの 重複データの処理で困っています。 ただし重複部分を削除したデータの文字数は 一定ではありません。 A列 あいうえお あいうえおかきくけこ あいうえおかきくけこさしすせそ    ・    ・    ↓ あいうえお かきくけこ さしすせそ    ・    ・ 以上のように処理できないでしょうか。 よろしくご回答をお願いします。

  • エクセルでユニーク数を求めたいです。

    初めまして。エクセルのユニーク数の求め方について質問させていただきたいです。 ある表の集計をしているのですが、 (A列)文書  (B列)ID    あいうえお   abcde かきくけこ   fghij あいうえお   klmnop あいうえお   abcde さしすせそ   amnbk さしすせそ   lrigks あいうえお   abcde かきくけこ   fghij なにぬねの  nnbkhji こんな感じに並んでいます。 この(C列)ユニーク数を求めたいです。 上記の回答ですと あいうえお→abcdeとklmnopのIDがあるので = 2 かきくけこ→fghij = 1 さしすせそ→amnbkとlrigksのIDがあるので = 2 というようにしたいのですが、 最終的には同エクセル内の別ページで (A列)文書 (B列)ユニーク数 あいうえお     2 かきくけこ     1 さしすせそ     2 なにぬねの    1 このような表にまとめたいです。 説明が下手で申し訳ありませんが、こちらで求められる関数または方法が知りたいです。 最終的にはオートフィルでユニーク数を求められる終わり方にしたいです。 ちなみに「=1/COUNTIFS(A:A,A2,B:B,B2)」こちらの関数では求められませんでした。 また、上記のグラフでピボッドで集計すると延べ数が集計されてしまうので、ユニーク数を求めたいです。 どうか、よろしくお願い致します。

  • エクセルの列を隣の列の先頭に貼り付け出来ますか?

    エクセルについての質問です。 知識がないので困っています。 質問の内容は エクセルの列の文字を隣の列の先頭に貼りつけることは出来ますか? Aの列とBの列に違う文字が入っています。 A1 ああ A2 いい A3 うう B1 あいうえお B2 かきくけこ B3 さしすせそ これをAの列をコピーして それぞれBの列の先頭に貼りつける方法があれば教えてください。 こんなかんじです↓ B1 あああいうえお B2 いいかきくけこ B3 ううさしすせそ よろしくお願いします。

  • テキストファイルへの書き出し

    お世話になります。 ASP(VBScript)で質問なのですが、 例えば、テキストエリア内に あいうえお かきくけこ さしすせそ という風に複数行の文字列が記述してあるとして、 とあるボタンを押した時に、 この文字列をテキストエリア内に記述してあるとおりに テキストファイルへ出力したいのですが、 どのようにすればよいでしょうか? ご教授お願いいたします。

  • EXCEL表示について

    質問がとんちんかんになってすみません。 テキストファイルを自動で読み込んでEXCELのセルに表示したいのです。 例 123.txtの中身 A10,あいうえお G6,かきくけこ M30,さしすせそ ・ ・ ・ テキストの中のA10・G6・M30がセルに位置、その位置に「あいうえお」とか 「かきくけこ」・・・・・と表示したいのです。 お忙しいとは思いますがどうか宜しくお願い致します。

  • vb2010でテキストファイルの1行置きの読み込み

    VB2010です。 フォームにリストボックスとコマンドボタンがあります。 コマンドボタンをおしたら”C:\test.txt”の内容を2行目から一行おきにリストボックスに 表示させたいのですが、どのようなコードを書いたらよいのでしょうか? test.txt内容 aaa あいうえお 123 かきくけこ 456 さしすせそ 789 リストボックスには あいうえお かきくけこ さしすせそ と表示させたいです。

  • エクセルで、2つのセル内容を改行で区切ってくっつける

    こんにちは。 エクセルで、2つのセルの内容を1つのセルにするには「=A1&B1」でできますよね? そのA1とB1の間に、自動的に改行を入れることは可能でしょうか? 具体的には(「│」マークはセルの区切りのつもりです) りんご │あいうえお みかん │かきくけこ ばなな │さしすせそ となっているのを、 りんご   │  あいうえお │ ――――――― みかん   │ かきくけこ │ ――――――― ばなな   │ さしすせそ │ ――――――― のようにしたいのです。 手動でもできるのですが、データが多いので簡単にできる方法があったらいいなと思って質問いたしました。 よろしくお願いします。