- 締切済み
csvのデーターファイルから任意の行をエクセルファイルへ入力するエクセ
csvのデーターファイルから任意の行をエクセルファイルへ入力するエクセルVBA が上手くできません。 6列2000行のcsvデーターのテキストファイルの作成は、色々な参考書があり成功しました。次に このcsvのデーターファイルから任意の複数行をシート4などの任意のワークシートの任意の場所に60行程度をインポートして、この60行の数値データーを加工しようとしていますが、入力が上手くできません。数値データーの加工のプログラムは一応できているため、その様式にあわせて、所定の場所にデーターを入れる必要が有ります。 1列目には日付（シリアルの数値にしています）、その他はすべて数値(LONG型）です。エクセルは2003を使用しています。 VBAの初心者です。宜しくお願いいたします。
- utyuzinzin
- お礼率75% (3/4)
- その他（プログラミング・開発）
- 回答数2
- ありがとう数8
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- nagare
- ベストアンサー率33% (280/831)
>何故だか分かりませんが、X（1）とsaisyuubiを直接比較しますと、動きませんでした。 おそらくお互いの変数の型が違うためと思います Dim X(1 To 5) As Variant saisyuubiはInteger? X(1)を一旦saisyuubiと同じ型の変数の入れて比較すればいけると思います
- nagare
- ベストアンサー率33% (280/831)
1行目から1行単位で読み込み、該当行をシートに出力 となります (指定行の読み込みはできません) このサンプルソースの"変数 lngREC"で制御すればできます http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_020.html
関連するQ&A
- excel vbaで複数のｃｓｖファイルの読み込み
100シート分のcsvファイルのデーターを一つずつ読み込んでexcelにコピーして使用してますが莫大な時間がかかって困ってます。 vbaを使用して作業を簡素化出来る事は出来ないでしょうか？ ------------------------------------------ ※ csvの概要 excelで1枚のcsvファイルを開くとA列の11行目から65536行まで数値データがあります。 ※ vbaできたらよいなと思う仕様 そこで、複数のcsvファイルを選択して読み込むとCSV_データと言うSeetのA列の10行目から1枚目のcsvファイル、B列の10行目から2枚目のcsvファイルと言う風に選択した分のcsvを列に続けて数値データを貼り付けしてくれるvbaをご教授していただけると大変助かります。 不躾で申し訳ございませんが宜しくお願い致します。 excel2003 ------------------------------------------
- ベストアンサー
- オフィス系ソフト
- EXCELでCSVファイルの読込み
VBA超初心者でとても困っています。 仕事でEXCELのVBAを使って 現在開いているシートの中に 1つのCSVファイルからデータを読み込むのですが CSVデータの２行目をEXCELのC2へ。 ４～１０行目までを、EXCELのB5～B14へ マクロを使い、ボタン一つで自動入力させたいのです・・・。 Line Input も、やり方が悪いのかうまくいきません。 ヒントとなるやり方があればぜひ教えてください。
- ベストアンサー
- その他（プログラミング・開発）
- csvファイルにある20万行のデータをエクセルで
メモ帳でcsvファイルとしてある20万行近いデータをエクセルに落としたいと考えています。 エクセルの1シートは65000行ほどのデータしか反映できませんが、同じエクセルファイルにシートをいくつか分けて順番にデータを反映することはできますでしょうか？（例：1シート目・1～65000行 2シート目：65001行～130000のような形式で） よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- CSVファイルの取り込みについて
CSV取り込み方法について 教えていただきたくお願いいたします。 エクセルのマクロ・VBAの組み方について デスクトップ上の000という名前のCSVファイルを、作業しているエクセルファイルのLoadという名前のシートに貼り付けたいと思っています。 CSVファイルはエクセルで開くと1行に11列の項目が展開されています。 貼り付ける項目はこのようになります。 （CSV） →（エクセルのLoadシート） 1列目（A行）→B行へ ２列目 →C行へ 3列目 →D行へ 4列目 →E行へ 5列目 →F行へ 9列目 →G行へ 10列目 →H行へ 11列目 →I行へ （６．７．８列目は使いません） 最後にLoadのシートのA行に”＝B&E”とい式を入力したいと思っています。 まだ初心者なので勉強中なのですが、仕事上急遽必要になりましたのでお願いいたします。
- 締切済み
- オフィス系ソフト
- Excelシートを分割してcsvに出力するVBA
すいませんが、ご教示願います。 パソコンExcelのVBAです。 Excelファイルシートの24,000行あるデータを、 任意に選択した範囲（例えば2行目から3,000行目）をcsvデータに出力する VBA構文が知りたいです。 どなたかおわかりになりますでしょうか。
- 締切済み
- Visual Basic
- エクセルVBAでCSVを読み込んで別ファイルにまとめたいです。
エクセルVBA初心者の者です。 マクロの記録でできたコードをいじって、 なんとか動くものができるレベルです。 Aというフォルダに20～40行程度の内容のCSVファイルが 数百個あります。開けてみないと何行あるのかわかりません。 そのAフォルダのCSVの内容をエクセルで開いて、別のエクセルファイルの一枚のシートにまとめたいのです。 最初にCSVファイル名を一枚のシートのA列に書き出すところ まではやれたのですが、それを順番に読み込んでコピペの 流れができません。 CSVファイル名読み込み 読み込んだファイル1つめCSV開く CSVの20～40行をコピー 別のエクセルファイルのシートに貼り付け 1つめCSV閉じる ↓ 読み込んだファイル2つめCSV開く 繰り返し こういうやり方じゃない方がいいのかもわかりません。 もしかして考え方も違うのでしょうか？ サンプルコード教えていただけるとありがたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数のcsvファイルを1つのEXCELファイルにマージするVBAを教えてください
csvファイル数は700～1000個程度でひとつのフォルダに格納されています。 このファイルをEXCEL形式で開くと、1行目にフィールド名(A～Z列で固定)、2行目以降にデータが入っています。行数はファイルにより１～100行程度で変動します。 このファイルを1つのエクセルファイルの同一シートに結合(マージ)するVBAがほしいです。 ここで、(できればですが)EXCELにマージするにあたり、1行目のみフィールドの値、2行目以降にそれぞれのcsvの2行目以降データの値を入れていくようにしたいです。つまり、フィールド名の行が何行も出てくるのを避けたいです。 申し訳ございませんが、ご指導いただけたら幸いです。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- CSVファイルのデータ型について
初めて質問します。よろしくお願いします。 拡張子「.xls」のファイルを「.csv」に変えるときに、データの形が変わってしまいます。 （エクセルでは「001」（文字列）のものが、CSVで保存すると「1」（数値）となってしまう） これを解決するために エクセルから文字列のデータを持ってきて貼り付け・保存しようとしましたが、 何度やってもデータは数値になってしまいます。 データ量が多いので、手ではとても直せません。。。 どなたか、よい方法がありましたらご教授ください。
- 締切済み
- その他(ソフトウェア)
- ５行目からのCSVデータを作りたい
いつもお世話になります。 とあるシステムにデータを入力して、CSVファイルを作成して別システムにインポートしているのですが、そのファイルフォーマットがデータが5行目から始まる形のものなのです。とある事情からそれをエクセルで作成しなければならず、CSVで保存したものを開くと空白行を無視して１行目から始まってしまいます。 １から４行目までを空白にしてCSVを作成する方法をご教授ください。
- ベストアンサー
- Visual Basic
- 複数CSVファイルをExcel形式１つにまとめたい
ＶＢＡ初心者です。 似たような質問・回答がありますが、どうも私の意図するところと異なるので、 新たに質問させていただきます。 どうぞお願いします。 仕事場で、基本１日１ファイル取得している複数のCSVファイルを、 1週間に一度Excelファイルに一週間分のデータを追加し、 最終的には１か月毎に１つのExceファイル（１シート）に集計してます。 全ファイルとも内容は同じで、１シートで作成されており、 タイトル行は１行目、２行目以降データ（行：データ数はファイル毎に異なる）、 列数はA-IV列といった構成になります。 新しい１つのファイルにまとめる際には、 B列とG列のみ抽出し、一行目にタイトル行、２行目からデータ、 最終行に次のファイルのデータと、いうように複数のファイルのデータをつなげて １つのファイルにしたいのです。 ちなみに出来上がったExcelファイルとしては、 A列に元CSVファイルのB列データ、C列に元CSVファイルのG列データ、 B列に各データがどのCSVファイルの物か分かるように、 各ファイル名の日付にあたる後ろ部分を表示させたいのです。 ファイル名から日付を拾えない場合は、 ファイルをまとめる前に、列を挿入し、 C列にデータ日付の項目を作り、そこに日付を入力し、 まとめる際に、B・C列＋G列を抽出、といった形で、まとめられたらと思ってます。 ＊各Exceファイルのタイトルの後部分がデータの日付を表す （タイトル例：0803abcde2013_08_03.xls) B列２行目以降に、それぞれ抽出したデータのファイル名から、 日付にあたる部分を書き出し(8月3日と言ったように)表示させたい。 場合によっては、前部分を抽出するパターンもあるので、そちらもお願いします。 ＊今後、他の何種類かの複数CSVファイルでもファイル毎に （こちらも全ファイルとも内容は同じ)同様に１カ月毎にまとめたいので、 違う条件でも抽出できるように、応用できたらと、考えております。 （抽出する列がB列とI列のみ、A～C列＋F列など) VBAで作業したいと考えてます。色々とお手数ですが、よろしくお願いします。 また、他にお勧めのサイトや、参考になる質問がありましたら、 合わせて、教えていただけると幸いです。
- ベストアンサー
- Visual Basic
お礼
早速の返信有難う御座います。 次のように書いて無事プログラムが始動しました。 GYO = 2 ' ファイルのEOF(End of File)まで繰り返す Do Until EOF(intFF) ' レコードを読み込む Input #intFF, X(1), X(2), X(3), X(4), X(5), X(6) ' 行を加算しA～F列にレコード内容を表示(先頭は2行目) Range(Cells(GYO, 1), Cells(GYO, 6)).Value = X ' 配列渡し If Cells(GYO, 1) >= saisyuubi Then GYO = GYO + 1 If GYO > 56 Then Exit Do End If Loop ' 指定ファイルをCLOSE Close #intFF 何故だか分かりませんが、X（1）とsaisyuubiを直接比較しますと、動きませんでした。それで 一度エクセルシートに書き出して、それを比較する事で動き出しました。 X(1)の状態で比較できたりすると書き出す手間が省けて良いのですが、それは無理なのでしょう。 有難う御座いました。