【エクセルVBA】他のフォルダ内のデータを選択し取り込む方法

前へ 次へ
このQ&Aのポイント
  • エクセルVBAを使用して他のフォルダ内にある複数のデータからひとつを選択し取り込む方法について教えてください。
  • 具体的には、メインプログラムからファイルを参照し、選択したデータの一部をメインプログラムに転記する方法が知りたいです。
  • マクロの記録では、選択したデータが固定されてしまうため、複数のデータに対応する方法が分かりません。
回答を見る
  • ベストアンサー

【エクセルＶＢＡ】ファイル参照後にデータ取り込み

はじめまして。マクロ素人＆勉強中です。 現在、メインプログラム(エクセルVBA)から、他のフォルダ内にある 複数の読み込み用データ（EXCEL）からひとつを選択し、データの取り込み作業をマクロ化したいと考えております。 例えば、読み込み用データ１のEXCELのRange("A2:A3")を メインプログラムのRange("C5:C6")に値を転記させるようなイメージです。 動作としましては (1)メインプログラムの「ファイル参照ボタン」より、読み込み用データをひとつ選び開く 　※ここまでは、msoFileDialogOpenで作成しました。 (2)メインプログラムの「取り込みボタン」にて、開いた読み込み用データの値をメインに転記 　※マクロの記録にて実施したため、読み込み用データ２や３・・・には適応できず困っております。 何か良いアドバイスがございましたら、何卒よろしくお願い申し上げます。

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

  • ベストアンサー
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.1

ブックを開けば、開いたブックがアクティブになるので、アクティブなブック、シートから値を転記でいいのでは？ ThisWorkbook.Sheets(1).Range("C5:C6").Value = ActiveSheet.Range("A2:A3").Value

otsukare3desu
質問者

お礼

ありがとうございました。うまくできました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. OS（技術者向け）
  4. Windows系OS

関連するQ&A

  • EXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

    メインプログラム(EXCEL VBA)より、 他のフォルダーにあるEXCELの項目の内容を取り込みたいです。 たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。 ・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(？)は、表示はできてます。 ・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。 ・となると次はOPEN,INPUTですか？ テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。 よろしくお願いします！

  • Excel VBAで…。

    データーシート(1)のデータをレイアウトシート(2)に転記するのに 例えば sheets(1).range("A1").value=sheets(2).range("C5").value sheets(1).range("B1").value=sheets(2).range("C6").value sheets(1).range("C1").value=sheets(2).range("C7").value と言うように配置しているのですが もし、シート(1)セルB1の値が空白ならば シート(1)セルC1の値はシート(2)のセルC6に配置・・・ と言うように データがない場合は、転記後の配置は詰めて配置したいのです。 どうすればよろしいでしょうか？

  • Excelで外部ファイルの取り込み（データの更新）をマクロ化したい

    C:\data　のdataフォルダの中に「20060709.dat」「20060710.dat」「20060711.dat」・・・というようにファイル名に日付が入ったファイルがあります。 例えば、（データ）→（外部データの取り込み）で"sheet2"に「20060709.dat」を読み込んでいるとしします。 この時に"sheet1”のセルA1に「20060710」と入力してマクロボタンをクリックすると"sheet2"に「20060710.dat」を（データ）→（データの更新）で読み込むというような作業をマクロで自動化することは可能なのでしょうか？ 可能であれば教えて頂きたいのですが。どうぞよろしくお願いします。 ちなみにマクロに関しては（自動記録）で作ったマクロを少しいじる程度の知識しかありません。Excel2000を使用しています。 以上、どうぞよろしくお願い致します。

  • エクセル マクロでのエクセルファイル取込について

    エクセルで別のエクセルファイルをマクロで取込み、取込したデータを自動で任意の場所にデータが入力されるようなものを作りたいと考えています。 csvデータの取込は作ることが出来たのですが、エクセルファイルをcsvデータのように取込することは出来ないでしょうか？ 出来ないとしたら、取込したいエクセルファイルを一度csvで保存してからcsvとして取込するというやり方で対応するしかないでしょうか？ 出来れば、取込したいエクセルファイルのシートが複数にわかれていて、全シートの情報を取込したいと考えているので、エクセルのままで全シート取り込めれば・・と思います。 何か上記の方法でなくとも、最善の方法（一番工数が少なく済む方法）があれば教えていただきたいです。 よろしくお願いします。

  • エクセルのＶＢＡで教えてください

    エクセルのＶＢＡで教えてください、セルＡ１の値をマクロボタンを押すたびに、セルＣ１から順番にＣ２・Ｃ３・Ｃ４・・・・と下に自動的に入力するＶＢＡを教えてください。

  • VBA　別ブックへのデータ転記

    別ブックへのデータの転記についてご教示お願いいたします。 以下、やりたいことです。 Bookの構成4種類 1.抽出用 （csvデータをコピーして、転記用Bookに移す為の加工をしており、A列に〇がついたものでO列の値（1～3）別にそれぞれのBookへ転記しようと考えています。 2.転記O列1用 3.転記Ｏ列2用 4.転記O列3用 現在のコードは以下の通りで、わからない点は大まかに2点あります。 1点目は、O列の値（1～3）の値を見てBookを開く（現在は指定のBookを開くコードになっています） 2点目は、転記用への転記の方法 例えば、抽出用のA2とA4に〇がついてO列が共に1だとすると、転記O列1用のBookを開いて、 A2のデータを以下のように。 抽出用　　　転記O列1用 P列の値　→　A7へ C列の値　→　A8へ H列の値　→　A9へ I列の値　→　A10へ F列の値　→　E5へ L列の値　→　D6へ M列の値　→　D7へ K列の値　→　F9へ J列の値　→　D8へ A4のデータを以下のように。 抽出用　　転記O列1用 P列の値　→　A12へ C列の値　→　A13へ H列の値　→　A14へ I列の値　→　A15へ F列の値　→　E10へ L列の値　→　D11へ M列の値　→　D12へ K列の値　→　F14へ J列の値　→　D13へ 以上のような事がしたいのですが、 現在、勉強中の初心者で…参考書を見ながら以下のコードまでしか出来ませんでした。 このコードもめちゃくちゃなのかもしれないのでお恥ずかしいのですが… なんとかこのデータを仕上げたいと思っています。 ご教示よろしくお願いいたします。 Sub ボタン2_Click() Dim myCnc1 As String Dim myCnc2 As String Dim myFileName As String Dim sheet1 As Worksheet myFileName = "受注.csv" Set sheet1 = Worksheets(2) sheet1.Activate myCnc1 = "TEXT;" myCnc2 = ThisWorkbook.Path & "\" & myFileName With ActiveSheet.QueryTables.Add( _ Connection:=myCnc1 & myCnc2, _ Destination:=Range("A1")) .TextFilePlatform = 932 .TextFileCommaDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1) .Refresh End With Columns("A:A").Insert Columns("B:B").Select Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _ FieldInfo:=Array(1, 5) Columns("G:G").Select Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _ FieldInfo:=Array(1, 5) Columns("O:O").Select Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _ FieldInfo:=Array(1, 5) Dim r As Long r = Range("E" & Rows.Count).End(xlUp).Row Columns("E:E").Insert Range("E2:E" & r).FormulaR1C1 = "=LEFT(RC[-1],10)" Range("E2:E" & r).Value = Range("E2:E" & r).Value Range("D1").Copy Range("E1") Columns("D:D").Delete Columns("H:H").NumberFormatLocal = "0_ " Columns("O:O").Insert Range("O2:O" & r).FormulaR1C1 = "=Right(RC[-1],3)" Range("O2:O" & r).Value = Range("O2:O" & r).Value Range("N1").Copy Range("O1") Range("O1") = Range("N1") + "2" Range("A1").Select Dim myRng1 As Range Dim myRng2 As Range Dim mySht As Worksheet Set myRng1 = _ ActiveSheet.Range("c1").CurrentRegion With myRng1 .AutoFilter Field:=3, Criteria1:="=J*" Set myRng2 = .SpecialCells(xlCellTypeVisible) .AutoFilter myRng2.EntireRow.Hidden = True On Error Resume Next .SpecialCells(xlCellTypeVisible).EntireRow.Delete On Error GoTo 0 myRng2.EntireRow.Hidden = False End With Set myRng1 = Nothing Set myRng2 = Nothing myFileName = ThisWorkbook.Path & "\転記O列1用.xlsm" Workbooks.Open Filename:=myFileName End Sub

  • 外部データの取り込みをマクロで実行したい

    MAGICというプログラムソフトでできたデータを「外部データの取り込み」でExcelに取り込むことはできます。（これはプログラム開発者に設定してもらいました。）しかし、この取り込む作業をマクロに登録して、いざ実行したくてもマクロ名が空白で実行できません。どなたか、宜しくお願いします。

  • excel vba DATAの日集計

    excel vba DATAの日集計 いつもお世話になっています。 "DATA"シートのセル"D2"の日付を変えると表の数値が変わるようにしています。 その日毎のデータを"集計"シートの日別の表に飛ぶようにしているのですが、 １日分の転記するセル数が多く、Select Caseで３１日分のコードを書くと、あまりにも プロシージャーが大きくなります。（Case1からCase31・・・結果分割してますが） FOR NEXT なのかな～、もっと効率のいい書き方がありましたらよろしくお願いします。 例："集計"シート１日分は、9行となります。それぞれ"DATA"シートからの転記です。"DATA"シートのF5+F10,G5+G10~AC5+AC10までそれぞれの値を"集計"シートのG5からAD5まで、F6+F12,G6+G12~AC6+AC12までそれぞれの値を"集計"シートのG13からAD13までといった具合です （日の9行はそれぞれ決まったある行とある行の加算です、これが３１日分の行があります） Sub macro() Dim myrng As Range Dim c As Range Set myrng = Sheets("DATA").Range("D2") For Each c In myrng Select Case c.Value Case 1 '１行目 Sheets("集計").Range("G5").Value = Sheets("DATA").Range("F5") + Sheets("DATA").Range("F10") | | Sheets("集計").Range("AD5").Value = Sheets("DATA").Range("AC5") + Sheets("DATA").Range("AC10") | | '９行目Sheets("集計").Range("G13").Value = Sheets("DATA").Range("F6") + Sheets("DATA").Range("F12") | | Sheets("集計").Range("AD13").Value = Sheets("DATA").Range("AC6") + Sheets("DATA").Range("AC12")

  • エクセルマクロ、別ブック参照データ取り込み

    エクセルマクロ使って以下を実現したいです。 マクロに詳しい方、ご教示ください。 ブック1→ブック2にデータを取り込み ブック2最後尾に追加したい。 ※ブック1(毎回別ファイルとなるファイル選択ができる仕様にしたいと考えています。） ブック1 A1 C1 F1 ◯ △ □ ↓↓↓↓ ブック2 A1 B1 C1 △ □ ◯ 環境 excel for mac 2011

    • 締切済み
    • Mac
  • EXCEL VBA 複数ファイル値を集計

    yakkunnと申します。 お世話になっております。 下記処理を実現するためのEXCEL VBAコードをご教授いただけないでしょうか。 ■やりたい事 デスクトップに「実績集計.xlsx」というファイルがあります。 このファイルにボタンを配置し、このボタンをクリックしましたら、C3セルに記述されているファイルパス配下を見てその配下ファイルを全て開き、各ファイルの値を「実績集計.xlsx」に全て転記するVBAコードをご教授いただきたく思います。 ■転記内容 例えばA.xlsx～C.xlsxという3つのファイルがあるとします。この3つのファイルを開いて・・ 左が「A.xlsx」、右が[実績集計.xlsx」とします 処理付を転記・・B4セル⇒B7へ転記 コードを転記・・B7セル⇒C7へ転記 商品名を転記・・C7セル⇒D7へ転記 数量を転記・・　D7セル⇒E7へ転記 金額を転記・・　E7セル⇒F7へ転記 これをA.xls～C.xlsまで繰り返し、実績集計.xlsxに値をどんどん転記したいです。 金額のF列の最後に合計金額が出力されれば最高です。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する