- 締切済み
セルの参照エラー
VBA初心者です。 よろしくお願いします。 excelのVBAで複数のcsvファイルを読み込み１つのブックにまとめるツールを作成しています。 csvの１つは各ｃｓｖからデータ参照する作りになっています。 例） aaa.csv =bbb!R1C1,=ccc!R1C1 bbb.csv 11 ccc.csv 12 上記３つのcsvファイルを１ブックにまとめた場合 aaaシートは11 １２と表示されることを期待していますが 結果は参照エラーとなってしまいます。 よい対処方法ががあれば教えて下さい。 処理内容は以下の通りです。 ・csv.csvを読みこみ「まとめ.xls」として保存 ・bbb.csvを読みこみ「まとめシート」に移動 ・aaa.csvを読みこみ「まとめシート」に移動
- toshi_k_2
- お礼率0% (0/1)
- オフィス系ソフト
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
（１）(1)CSVファイル（文字列）とＣｓｖファイルをテキスト状態で結合も出来ますよ。 （２）質問は、初心者であれば、マクロの記録を取れば、コードの概略はわかるのにそれをしてないようだ。そのとき２番目のシートを貼り付ける右上の基点は、第一シートのデータの最下行の直下に置き換えれば済む話です。 最終行の捉え方は、 Sub test01() d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row MsgBox d End Sub を実行して考えてみること。
関連するQ&A
- 参照先をセルに入力して、他のブックのセルを参照する方法
Excelで、他のブックのセルを参照したいです。 たとえば、あるExcel（test.xls）上から、別のフォルダにある複数のブック C:\AAA.xls D:\BBB.xls の値を参照する場合ですが（AAA.xlsとBBB.xlsは、値の内容は違うが、同じシート名の同じセルに値が入っている）、 test.xlsのSheet1のA1に「C:\」、A2に「AAA.xls」を入力すると、test.xlsのSheet2にはAAA.xlsの値を表示し、 test.xlsのSheet1のA1に「D:\」、A2に「BBB.xls」を入力すると、test.xlsのSheet2にはBBB.xlsの値を表示するような方法です。 参照先が固定であれば、='C:\[AAA.xls]Sheet名'!D5・・・のような指定ができるのですが、参照するファイル名とパス名が都度変わるので、入力したセルの値で参照先を変えたいのです。 ちなみに、INDIRECTを使うやり方も考えましたが、参照先のブックを開いていないと値が表示されないようなので、却下されました。 （参照先のブックは開かなくても値を参照させたいです） どなたかご存知の方がいらっしゃったら、教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 大量のＣＳＶデータを１つのエクセルデータにまとめる方法について
今仕事で、ＣＳＶファイルが４００ファイル程あり、これを一つの エクセルファイルにまとめなくて加工しなければならないのですが うまいことＶＢＡを活用して効率的にできないか思案中なのですが うまい具合に行きません。 データの持ち方として ○ＣＳＶファイル１ １．ＡＡＡ ２．ＢＢＢ ○ＣＳＶファイル２ ３．ＣＣＣ ４．ＤＤＤ となっており、これを１つのエクセルファイル上で １．ＡＡＡ ２．ＢＢＢ ３．ＣＣＣ ４．ＤＤＤ としたいのですがなにかいい方法はないでしょうか？ １つのブックで外部データの取り込みでＣＳＶを次々に選択して いくＶＢＡなんてあれば教えていただけないでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 他のブックファイルのセルの参照が上手く行きません
こんにちはよろしくお願いいたします。 エクセルのブックファイル（Book1.xlsx）に，他のブックファイル（Book2.xls）のセルの値を参照しようと思い”=”を入力し参照するブックファイルのセルをクリックし，「 =[Book2]Sheet1!$A$1 」のような参照を行いました。こうしてきちんと表示されました。 しかし，この参照の式を「 =[Book3]Sheet1!$A$1 」のように，他のブックファイル（Book3.xls）のセルに変更したところ，参照できなくなりました。ブックファイル（Book1.xlsx）には，「 =[Book3]Sheet1!$A$1 」という式そのものが表示された状態となっています。式は，キーボードを使って変更しました。もちろん，（Book3.xls）は，（Book2.xls）と同様のシート形式をもち，データも入力されています。 このような状態になると，先に挙げたように，”=”を入力して参照するブックファイル（Book3.xls）のセルをクリックしても，ブックファイル（Book1.xlsx）には，「 =[Book3]Sheet1!$A$1 」という式そのものが表示された状態となったままで，（Book3.xls）のデータは表示されません。 （Book2.xls）と（Book3.xls）のセルのデータは，文字列です。 気になるのは，（Book1.xlsx）はoffice2010で作成されたファイルであること，（Book2.xls）と（Book3.xls）は，互換モードと表示されるファイルであること，また表示されているファイルを見ると，フルパスで参照している点です。「 ='C:\aaa\bbb\・・・・・[Book3]Sheet1'!$A$1 」という参照式になっています。３つのファイルはすべて同一ファイルに入っています。 何が，参照を阻んでいるのでしょうか？教えてください。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルでブック間のシートの合体？教えてください。
エクセルの作業で困っちゃいました。 同じホルダー内に 0210A.xls、sから0309A.xlsの１２種類 0210B.xls、sから0309B.xlsの１２種類 0210C.xls、sから0309C.xlsの１２種類 0210D.xls、sから0309D.xlsの１２種類 の４８のブックがあります。（0210は2002年10月の意味です。） 各ブックは複数のシートを持っており、各ブックに共通してあるのは「AAA」、「BBB」、「CCC」の３種類で、それ以外のシートもあります。シートの順番は各ブックによりまちまちです。 これらのブックの共通する３種類のシートだけを合体して 0210AB.xlsから0309AB.xlsの１２種類、（AとBの合体） 0210CD.xlsから0309CD.xlsの１２種類、（CとDの合体） の２４種類のブックを作りたいのです。 各ブックは「AAA」、「BBB」、「CCC」の３シートを持ちます。中身はオリジナルの各「AAA」、「BBB」、「CCC」の単純な寄せ集めです。 データは各シートとも１行目に項目、2行目以降にデータで、列はAF列まで使用しています。データの個数はまちまちで、オートフィルターを使用しています。 たとえば、0210A.xlsのシートAAAが200行であれば0210BのシートAAAのデータの一行目の項目は不要ですので2行目から最終行までコピーして201行以降に貼り付けるという感じです。同様にシートBBB、シートCCCも処理します。各シート１行目はオリジナルと同じ項目名とします。 手作業でやろうと思いましたが、誤りの発生もこわいのでVBAなどでうまくできる方法はないでしょうか？わたしのVBAの知識はマクロ自動記録ができるくらいなので助けてほしいのです。 Windows２０００でエクセルも２０００です。 よろしくお願いしま～す。
- ベストアンサー
- オフィス系ソフト
- エクセルで他シートの同名セルと比較して条件付き書式設定
初心者で式はあっているような気がするのですがどうしても色がついてくれません。助けてください。 Book1のsheet1 1 aaa 2 bbb 3 ccc Book2のsheet1 A B 1 aaa ちなみにaaaとbbbはBook1のsheet1をVLOOK UPで読ませています 2 bbb 3 eee Book2のsheet1のaaaとbbbを条件付き書式設定で色をつけたいのですが うまくつきません。 式は=VLOOKUP(A1,INDIRECT("[Book1.xls]Sheet1!$A$1:$B$5"),2,FALSE) と入れました。助けてください。
- ベストアンサー
- オフィス系ソフト
- VBA の Application.Run でエラー発生
独学で勉強したVBAなのですが、とても困っています。 AAA.xls BBB.xls CCC.xls というファイルがあるとします。 AAAを起動すると、BBBを起動して、 Application.Run "'BBB.xls'!TEST" で、BBBのTESTを実行するようにしています。 TESTを実行すると、 Workbooks.Open filename:=ActiveWorkbook.Path & "\CCC.xls", Password:="XXX", WriteResPassword:="XXX", ReadOnly:=True でCCCを起動して、CCCのシートの値をBBBにコピーしてくるようにしています。この一連の処理において、 「実行時エラー'2147352567(80020009)' 'Run'メソッドは失敗しました:'_Application'オブジェクト」 が発生します。 これらは共有サーバー上で動作させているのですが、 困ったことに、エラーが発生する人と、そうでない人がいます。 理由が全くわからず、非常に困っています。 教えていただけたらとても助かります。 何卒よろしくお願いいたします。
- 締切済み
- Visual Basic
- エクセルＶＢＡ、他のファイルからのコピー
ＢＢＡ初心者です aaa.xlsのマクロで aaa.xls にbbb.csvのデータを貼り付けたいのですが Sub () Windows("bbb.csv").Activate…ここのbbbってところをセル参照にしたいのです ActiveCell.Range("A1:A10").Select Selection.Copy Windows("aaa.xls").Activate ActiveSheet.Paste End Sub １つ上のセルにbbbと入力されていればbbb.csvのデータを １つ上のセルにcccと入力されていればccc.csvのデータを 貼り付けれるようなマクロはどう書けばいいのでしょうか よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- 他ブックのセル参照するのに名前をセルで指定して参照させたい。
他ブックのセル参照するのに名前をセルで指定して参照させたい。 題名が適当でないかもしれませんが、よろしくお願いします。 オフィス２０００もしくは２００２です。 200604.xls、200605.xlsという日付を基にした名称の規則的なブックがあります。 ファイル自体はネットワークの共通ドライブにあります。 それぞれsheet1に同様の形式で値のデータ（文字）が入っています。 その中のA1、B1、C1～・・・の値を 別ブック（仮にtest.xls）のA1に2006、A2に５と入力させることによって test.xlsの3行目に200605.xlsのA1、B1、C1～・・・の値を表示させたいです。 ブック名 test.xls A列 B列 C列 ・・・・・・ 1行 2006 2行 5 3行 200605.xlsのA1、B1、C1～の値を表示させたいです。 4行 フォルダー名\[200605.xls]sheet1'!A1、次B1、次C1、と都度埋め込んでいけば値自体は出るのですが、 ブック名が手軽に変えられなくて困っています。 test.xlsのセルに埋め込んだ ='フォルダー名\[200605.xls]sheet1'!A1の ［カッコ内］の文字をA1,A2セルに入れた値で参照させたいのですが、、、。 （A2は5ですが、参照したいのは2006の05というのも少々ミソです） 結果が同じなら手段はそんなには問いません。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excelで他のブックのセルを参照したいのですが
コンボボックスにセットする値を、 VBAで他のブックを参照してセットしたいと思っています。 ブックAのシート1にコンボボックスを作り、 ブックBのシート1から取得しようと考えています。 ブックBのシート1には、あらかじめ「範囲A」の名前を定義して この範囲の値を参照するつもりです。 ただ同じフォルダ内にブックBを置いていれば参照できるのですが、 他のフォルダにブックBを置くと参照されません。 ＜同じフォルダにブックBを置いた場合＞○参照できた ComboBox1.ListFillRange = "[ブックB.xls]シート1!範囲A" ＜他のフォルダにブックBを置いた場合＞×参照されない ComboBox1.ListFillRange = "C:\[ブックB.xls]シート1!範囲A" 記述の仕方がおかしいのでしょうか？ 宜しければご教授お願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで、別ファイルの数値を参照する方法
現在aaa.xlsというファイルを開いていて、 そのセルA1には20070621という数値が入っています。 別にbbb_20070621.xlsというファイルがあって、 そのファイルのsheet1内の、B1の値を参照したいと思います。 bbb_20070621.xlsのようなファイルが無数にあるので、 ファイルを開かなければいけないINDIRECT関数は使いたくありません。 =INDIRECT("[bbb_"&A1&".xls]Sheet1!B1") ファイルを開かず参照できるように、 できればマクロ（VBA）で組みたいと思っています。 RangeやCellでいろいろ試してみたのですが、 どうもうまくいかず、 分厚いマニュアルにも書いてありませんでした。。 初歩的な質問ですいませんが、 どなたかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
imogasiさん、回答ありがとうございます。 最終行の求めかたは勉強になりました。 質問の件ですが処理の説明が間違っていました。 すみません。 各csvファイルは１シートにする必要があります。 ccc.csvを読み「まとめ.xls」として保存 bbb.csvを読み「まとめ.xls」ファイルの２シート目に移動 aaa.csvを読み「まとめ.xls」ファイルの１シート目に移動 （シート名はcsvファイル名（aaaとかbbbとかccc）になります） よろしくお願いします。