none
Excelマクロで他のブックのセルの値を参照する場合の指定の仕方 RRS feed

  • 質問

  • はじめまして。

    fujitakuと申します。

    Excelマクロについて質問があります。

    他のブックのセルの値を参照して、それを元のブックのセルに表示させるにはどのようにすればいいでしょうか。

    さらには、ループを使用して、他のブックのセルを移動しながらその値を表示させるようにしたいのです。

    ご回答をお願い致します。

    2008年6月27日 7:12

回答

  • fujitaku さん、こんにちは。

     

    Workbooks.Open メソッドでもう 1 方の Workbook を開けて直接参照する方法をお勧めします。

    見せたくないのであれば、別のプロセスとして開いてください。 Excel を起動後 Visible を True にしなければ良いです。

    2008年6月27日 12:00
  •  fujitaku さんからの引用

    他のブックのセルの値を参照して、それを元のブックのセルに表示させるにはどのようにすればいいでしょうか。

    さらには、ループを使用して、他のブックのセルを移動しながらその値を表示させるようにしたいのです。

     

    だいたい以下のような感じになります。

     

    Dim wb As Workbook 

    Dim ws As Worksheet 

    Dim i As Integer

     

    Set wb = Workbooks.Open("ブックのファイル名", ReadOnly:=True)
    Set ws = wb.Worksheets("シート名")

     

    For i = 0 To 100
         セルの値は、ws.Cells(i, カラム位置)で取れる。

    Next i

     

    wb.Close

     

    #ExcelのVBAに関する質問はここMSDNフォーラムではなく、他に専門の質問板などがありますので、そちらの方が適しているのではないかと思います。例えば、「Excel vba 質問」などで検索してみて下さい。

    2008年6月28日 1:13
    モデレータ

すべての返信

  • fujitaku さん、こんにちは。

     

    Workbooks.Open メソッドでもう 1 方の Workbook を開けて直接参照する方法をお勧めします。

    見せたくないのであれば、別のプロセスとして開いてください。 Excel を起動後 Visible を True にしなければ良いです。

    2008年6月27日 12:00
  •  fujitaku さんからの引用

    他のブックのセルの値を参照して、それを元のブックのセルに表示させるにはどのようにすればいいでしょうか。

    さらには、ループを使用して、他のブックのセルを移動しながらその値を表示させるようにしたいのです。

     

    だいたい以下のような感じになります。

     

    Dim wb As Workbook 

    Dim ws As Worksheet 

    Dim i As Integer

     

    Set wb = Workbooks.Open("ブックのファイル名", ReadOnly:=True)
    Set ws = wb.Worksheets("シート名")

     

    For i = 0 To 100
         セルの値は、ws.Cells(i, カラム位置)で取れる。

    Next i

     

    wb.Close

     

    #ExcelのVBAに関する質問はここMSDNフォーラムではなく、他に専門の質問板などがありますので、そちらの方が適しているのではないかと思います。例えば、「Excel vba 質問」などで検索してみて下さい。

    2008年6月28日 1:13
    モデレータ
  • じゃんぬねっとさん、trapemiyaさん、ご回答ありがとうございました。

    Excelマクロ初心者の私にとっては、目からうろこの情報でした。

    お二人の意見を参考に、がんばってみたいと思います。

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

     

    2008年6月30日 2:57
  • じゃんぬねっとさん、trapemiyaさん、おかげで問題が解決できました。

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

    2008年6月30日 5:36
  • こんにちは。中川俊輔 です。

     

    じゃんぬねっとさん、trapemiyaさん、回答ありがとうございます。

     

    fujitakuさん、フォーラムのご利用ありがとうございます。

    有用な情報と思われたため、

    じゃんぬねっとさん、trapemiyaさんの回答へ回答済みチェックをつけさせていただきました。

    回答済みチェックが付くことにより、有用な情報を探している方が情報を見つけやすくなります。
    有用な情報と思われる回答があった場合は、なるべく回答済みボタンを押してチェックを付けてください。

    fujitakuさんはチェックを解除することもできますので、ご確認ください。

     

    それでは!

     

    2008年7月14日 8:10