別ファイルのシートを検索とデータの更新

質問

ＶＢＡの初心者です。ご教授よろしくお願いします。

仕事の予定表を管理しています。
年間の予定を月毎のシート（４月～３月）に入力しています。
各シートのＡ列にスタッフの名前，Ｂ～ＡＦ列が１～３１日として仕事の内容を入力しています。

今回，スタッフ一人づつ（約３０人）のエクセルファイルを作成して各自が１か月分の予定表を参照することになりました。
Ｂ３にコンボボックスを作成して月を選択すると，選択した月の予定表が表示されるようにしています。
困っているのは，参照先のファイルを開いていないとコンボボックスで月を選択してもデータが表示されないことです。

スタッフ一人づつのファイルは各自が仕事内容を確認するため，いつ開くかわかりません。
アクセスは導入されていないため，エクセルで何か良い方法を見つけたいと思っています。

良い方法がありましたら，アドバイスをください。
よろしくお願いいたします。

回答No.2

keithin · ベストアンサー

ある程度マクロを併用するなら，一人ずつのファイルを開く際に，邪魔にならないように年間予定表も自動で開かせてしまうのが多分一番簡易な対処です。

例：不可視で，読み取り専用で。
sub Auto_Open()
application.screenupdating = false
workbook.open filename:="c:\folder\年間予定表.xls", readonly:=true
activewindow.visible = false
application.screenupdating = true
end sub

sub Auto_Close()
workbooks("年間予定表.xls").close savechanges:=false
end sub

★別の手
INDIRECT関数を止めて直接参照の数式に変更します。
コンボボックスで参照データ(=参照元シート)を更新する都度，マクロで直接数式を書き換えます。

お礼

ありがとうございました！
思っていたものができました！早速活用します。

回答No.3

Nouble

ファイルを開く構文の箇所に問題があるものと思います
他の方々の投稿内容と被るかも知れませんが
開くファイルのファイル名指定の箇所を
c:ドライブにあるファイルならC:
D:ドライブにあるファイルならならD:と言うところから
フォルダー名を順に全て明確に(絶対参照形式で)記載しておけば
そこにファイルがありさえすればWindowsが従順に開いてくれるものと思います

如何でしょうか
御役に立てたなら幸いです

お礼

アドバイスありがとうございます！
構文エラーが生じ，確認したところ，ファイル名指定が上手く出来ていない部分を見つけることができました。

回答No.1

sykt1217

ＶＢＡで開いては駄目ですか？

Dim strInpFilePath As String '出力元ファイルパス
Dim strInpFlName As String '出力元ファイル名
Dim wk As Object 'ブック格納

'ファイル存在チェック
strFileCheck = strInpFilePath & strInpFlName
If Dir(strFileCheck) = "" Then 'ファイルが存在しない場合
MsgBox "該当するファイルが存在しません。"
Exit Sub
End If
'指定されたパスにある、指定されたファイル名のブックをオープン
Set wk = Workbooks.Open(strFileCheck)

予め定めたセルにパス・ファイル名などを入力しておき、その値をstrInpFilePath・strInpFlNameに格納、以後上記処理の通りに行えば、汎用性は持てると思います。

こういう話ではないですか？＾＾；

お礼

回答ありがとうございます。
勉強不足のためか，上手く活用できませんでした。もう少しVBAを勉強して回答内容を実践できるようにしたいと思います。