[[20140919140958]]　『他エクセルファイルを開く際のマクロ実行について』（BARYUN）　ページの最後に飛ぶ

『他エクセルファイルを開く際のマクロ実行について』（BARYUN）

どなたか教えてください。
マクロを実行させて
他エクセルファイルを開きシートをそのままｺﾋﾟｰしているのですが、
今回他部署からのアクセスをする必要がでてきまして、
その他部署からアクセスすると、個々のPCで設定されてある外部フォルダの番地(mapping)の割り当てが違う為にマクロのバグが発生してしまいます。
これを解消するマクロの方法はありますでしょうか？
通常は"F"と設定
Workbooks.Open Filename:="F:
今回新たに使用する者が
Workbooks.Open Filename:="N:
とか"T"とかになります。
まず"F"がダメなら"N"
"N"がダメなら"T"
というようにバグがでないようにしたいです。
宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 バグといえばバグですが、マクロの仕様変更かな？

 自由に選択するなどの方法も検討してみてはどうかと思いますが、
 とりあえず、幾つかファイルパスを列挙しておき、最初に見つかったものを開く例です。

 Sub Sample()
     Dim wb As Workbook
     Set wb = myOpen(Array("F:\Test.xls", "N:\Test.xls", "T:\Test.xls"))
     If wb Is Nothing Then MsgBox "ファイルが開けませんでした"
 End Sub

 Function myOpen(flist)
     Set myOpen = Nothing
     Dim f
     For Each f In flist
         If Dir(f) <> "" Then
             Set myOpen = Workbooks.Open(f)
             Exit Function
         End If
     Next
 End Function
（Mook） 2014/09/19(金) 14:35

Mook様
早速ご回答頂きありがとうございました。
早速トライしてみます。

（BARYUN） 2014/09/19(金) 14:54

コメント返信：

[ 一覧(最新更新順) ]

[[20140919140958]] 『他エクセルファイルを開く際のマクロ実行について』（BARYUN） ページの最後に飛ぶ

[[20140919140958]]　『他エクセルファイルを開く際のマクロ実行について』（BARYUN）　ページの最後に飛ぶ