外部ブック上のセル参照
下記の場合()内にvlを記入すればcallで戻り値の取得が可

Sub get_from_another_book()

'ファイルを開くダイアログ
tmp = Application.GetOpenFilename("エクセルブック(*.xls),*.xls")
If tmp = False Then End

'targetfileに開いたファイルをセット
Set targetfile = Application.Workbooks.Open(tmp)

'ここに処理内容を記述(下行はサンプル)
vl = targetfile.Worksheets(1).Cells(1, 1).Value

'アラートを出さずに開いたファイルを閉じる
targetfile.Close SaveChanges:=False

End Sub

Hino 00:32 2007.11.04 Sun
 署名 
 内容 
      
新しい記事
 題名 
 署名   File
 本文