• 締切済み

VBAでテキストファイルのデータを読み込んでExcelで開く+α

BLUEPIXYの回答

  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.5

>それ以前に実行方法を自分が把握出来ていません... Call readFile("input1.txt") のようにファイル名を指定してreadFileを呼び出すと、 起動したブックと同じフォルダにある指定したファイルを ファイル名をシート名とし、A1セルを先頭としてファイルを読込ます。 Public Sub fileInput() の方は、マクロの実行から呼び出します。 実行時にファイル名の指定をさせたい場合は、 この部分で、ファイル名を指定させたり、リストを作ったりして、 実際に読み込むreadFile に名前を指定して呼び出します。

EYESHIELD
質問者

補足

アドバイスありがとうございます。 プログラムのやろうとしていることが何となくですが分かってきました。 ただ文字列を数値に変換するのに今結構てこずってます。 それと、 Sheets.Add  (新しいシートを挿入) ActiveSheet.Name = "シート名" (挿入直後は新しいシートがアクティブになる) ので読み込んだテキストファイルのファイル名シートにテキスト中のデータが上下反転した状態で書き出されると思うのですが、マクロ実行時のSheet1のA1セルに書き出されてしまいます。(ただ文字列状態ですが) 文字列状態で書き出すのが原因ならちょっとお手上げかもしれません。 ご助言頂けると幸いです。

関連するQ&A

  • (VBA)フォルダの中の複数のテキストファイルをエクセルに取り込みたい

    フォルダの中に複数のテキストファイルがあります。 それをVBAで1シートに1テキストファイルづつで取り込んで(区切り文字(#)、列のデータ形式(文字列)を指定して)作成済みのマクロを実行し、出力させたいのですが。。 データが大きいので5シートで1つのファイルにしたいです。フォルダの中にはテキストファイルが100ほどあるので、結果、エクセルファイルが20できればいいのですが。。 できればデスクトップに新しいフォルダが作成されてその中に出力されていくようにしたいです。 お力を貸してください。よろしくお願いします。

  • エクセルのデータをTAB区切りテキストに出力

    エクセルのデータをTAB区切りテキストに出力 1.エクセルのデータをTAB区切りテキストに出力して 2.そのテキストを入力としてrubyでデータ加工 という作業があります。現在1を手動で行っておりますが、ファイルが多いためこの操作をファイル名とシート名を指定してrubyから操作できればと考えております。 できれば追加でライブラリをインストールすることなく実現できればありがたいのですが、簡単な方法がございましたらご教示ください。 環境は、Win XP、Office 2003、ruby 1.9.1です。 最終的にはエクセルファイルから直接データを取得できるようにしたいのですが、当面は上記の方法で凌ぎたいと考えております。

    • ベストアンサー
    • Ruby
  • VBからテキストファイル(タブ区切り)をエクセルで開く方法

    VBからテキストファイル(タブ区切り)をエクセルで開く方法を探しています。CSVデータを出力する方法や、テキストファイルを読み込む方法等の情報はたくさんあるのですが、直接エクセルを起動し、それにテキストファイルを出力するのはなかなか見当たらない状況です。 質問の主旨は、もともと、参照ボタンを押下すると、選択されている指定のテキストファイルを保存するダイアログが出力される仕組みであったものを、どうせ開くのはエクセルだからと言うユーザーの要望から、参照ボタンクリックと同時にエクセルが起動し指定のテキストファイルをエクセルで開いて見ることができるように改造するといったものです。(参照のみですので読み取り専用で見たい) テキストファイルをドラッグしてエクセルシートに持っていけばタブを認識して格セルに分割して開いてくれるのですが、VBから同じような動作をさせることは可能なのでしょうか? よいヒントになるような情報でもかまいません うまく説明できずわかりにくいかも知れませんがご助言をお願いいたします。 【環境】 WindowsXP、VB6.0、EXCEL2002

  • エクセルで作ったデータをテキストに貼り付けたいです。

    エクセルで作ったデータをテキストに貼り付けたいです。 Excelの表を範囲選択してコピーしてメモ帳/またはメールに貼り付けると、タブ区切りのテキストとして貼り付けられてしまいます。 そうなると、データがデコボコになりすごく見づらいです。 毎日使うので、すべての行を手作業でスペースを入れるのも大変です。 なにか方法等ご存知でしたらお教えいただけると助かります。 よろしくお願いいたします。

  • VBAでEXCELから固定長のテキストデータにしたい

    VBAにてEXCELに展開されたデータを固定長のテキストデータに落としたい。 EXCEL側の用件 (1)シート1にボタンを用意して、ボタンをクリックしたらテキストファイルを作成する処理にしたい。 (2)シート2にデータが展開されている。 列は10個程度、行は場合によりけり(MAX65536?) 固定長にする箇所とかはわかるのですが、ボタンクリックしたらシート2を見て、セル(もしくはrange)をどのように取得すればいいのかVBAがよくわからないのです。

  • エクセルのVBAでタブ区切りのテキスを出力したい。

    エクセルのVBAでテキスト出力をしたいのですが、 ・タブ区切りで保存 ・A列の最終行×1行目の最終列の範囲指定が対象 ・範囲内の空欄もタブ区切りにする(最終列には必ず数値あり) ・出力テキストはシートと同じフォルダ内へ格納 ・テキストファイル名はシート名 という感じにしたいのです。 いろいろ検索はしているのですが、これといった回答やサンプルは 見つかっておりません(><) ちなみに、私は、自動記録をしたものを改良して少し使えるレベルです。 よろしくお願いします。

  • VB6.0でTextファイルをExcel出力

    お世話になります。 VB6.0でTextファイル(カンマ区切りのデータが入っているもの)をExcelに出力するものを作成しました。 基本的に読込んだファイルをArrayで型を指定してExcelに出力する形です。 ですが、印刷するときにA4横に収まらない長さになってしまったので、 Textファイルの1行のデータをExcelには2行にして出力させることは可能ですか? Textファイルのデータはこんなのです。 XXXX,SS,SS,AA,DD,WW,Fed,fk,aaa,aqee このような形で数百件入っています。 何か参考になりそうなものがあったら教えてください。 よろしくお願いします。

  • エクセルのVBAについて

    ある装置のデータをRS232C経由でMSCommを利用し、EXCELに直接取り込みたいのですが、そのデータにはタブ区切りが設定してあるのでEXCELの1つのセルに1区切りのデータごと出力されてほしいのですが、区切られず1つのセルにすべて出力されてしまいます。どうしたらよいのでしょうか宜しくお願いします。

  • EXCELのVBAでの他EXCELデータ取得&表示

    EXCELのVBAを使い、実行したEXCELのシートに他のEXCELから読み込んだデータを取得&表示させたいと思っています。 取り込むEXCELファイルは、フォルダに格納された複数の同フォーマットのデータになります。 指定したフォルダの中の全てのEXCELファイルのデータを読み込んで、 実行したEXCELファイルのシートに複数行書き込んでいくような形になります。 機能として必要なのは以下の通りです。 ・取り込みファイルの保存されたフォルダの選択 ・選択したフォルダ内のファイルを開き、VBA側で設定した箇所のデータを読み込み、それを実行側のシートに出力する。(1ファイルにつき1行表示させる形。読込元と出力先のデータの位置関係は違います。色々入力されているファイルの必要部分だけを抜き出し、一行に出力する感じです) ・フォルダ内の全ファイルに対して同じ処理を繰り返す。(出力先の行は1行ずつ下にずれる) このようなVBAはどのように作ればよろしいでしょうか?

  • テキストデータ量が膨大で、エクセルに取り込めない

    テキストファイル形式で作成したデータをエクセルで読み込むようにデータ変換ができますが、そのデータ数量がレコード数(行)にして20万件あります。エクセルの1つのシートでは65,500行位だと思いましたが、これを何とか複数のシート、もしくは、別のファイル名に分けてエクセルに全て取り込めるようにはできないものでしょうか?それを一度、エクセルで加工後にアクセスにインポートしたいのです。もしくは、テキストデータをいくつかのファイルに分割できるのでしょうか? よろしくお願い致します。