Subject: セルを指定してブックを開くには
========================================
From: ｂｅｎ
Date: 2000/09/05(火) 14:30:24

　こんにちは、どうすれはよいのか分からないので教えてください。
　例えば、Ｃ:\www　という場所に　佐藤.xls　鈴木.xls　山田.xls
　というブックがあるとします。
　そこで、現在開いているシート上のセルＡ１に佐藤、Ａ２に鈴木、Ａ３に山田
　と入力されいて、Ａ１のセルを指定してボタンを押したら佐藤.xlsが開き、
　Ａ２のセルを指定してボタンを押したら鈴木.xlsが開くといったように
　あるセルを指定してセルに入力されている名前のブックが開くことが
　できるようにするにはどうすればよいのでしょうか。
　宜しくお願いします。
　
　
　
　
　
　
========================================
From: ケイン
Date: 2000/09/05(火) 15:32:58

こんにちは
選択したセルの値を変数に取り込めば良いと思います。テストした例です↓

Sub ブック開く()
"    ChDir ""C:\EXCEL5\XLSTART\"""
    MyF$ = ActiveCell.Value
    Workbooks.Open Filename:=MyF$
"　　ChDir ""C:\EXCEL5\MYFILES\"""
End Sub

カレントフォルダ(エクセル立ち上げ時の通常使用するフォルダ)以外の場所にあるときは、
ChDir を使いましょう。でも、エクセルブックはなるべくEXCELフォルダの下に置いておく
方が良いと思います。元へ戻すコードも必要になるしね。
では。
========================================
From: ｂｅｎ
Date: 2000/09/06(水) 07:53:00
Solved: on

ケインさん　ありがとうございました
========================================
From: きいろいまふらあ
Date: 2000/09/07(木) 12:19:30

解決済みとのこと、余計なお世話とも思いますが、

Sub test()
"    MyF$ = ""c:\www\"" & ActiveCell.Value & "".xls"""
"    if dir(MyF$) <> """" then Workbooks.Open Filename:=MyF$"
End Sub

などとすればカレントフォルダを移動しなくても済みます。
ついでにほんとにそのファイルが存在するときだけ開くようにしてます。

ついでのついでに、

&gt;エクセルブックはなるべくEXCELフォルダの下に置いておく
&gt;方が良いと思います。

別にけちをつけるわけではないのですが、
データのバックアップとか、アプリケーション（あるいはＯＳ）の再インストール、
バージョンアップ等を考えると、アプリケーションとデータの格納場所は変な
関連を持たせない方がいいと思っています。
私は可能な限りアプリケーションのインストール先とデータの保存先は別ドライブに
するようにしてます。最近は１ドライブがデフォルトになってるプレインストール
マシンも多いようですが……。

個人の趣味と言われるとそれまでなのですが。(^^;