フォルダ フォルダ内の別のブックを開く
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub FileOpen(TargetBookName As String, PathBookName As String) ''引数 TargetBookName ターゲットブック名 例 ？？？.xls ''引数 PathBookName パスを取得するブック名 例 ？？？.xls '’＊ブックを開く '’＊同じフォルダ内の別のブックを開く '’＊開いた後のセットは別途必要 ''Aiei LTD '’画面更新無効 Application.ScreenUpdating = False '’変数の定義 Dim TargetBook ''error発生の場合次へ・・ On Error Resume Next ''該当Ｂｏｏｋをセット Set TargetBook = Workbooks(TargetBookName) '’error発生の場合無効 On Error GoTo 0 '’既に開かれていた場合 If IsObject(TargetBook) Then '’保存なしにて閉じる Workbooks(TargetBookName).Close SaveChanges:=False End If '’セット終了 Set TargetBook = Nothing '’パスの定義 Dim PathBook As String '’パスの取得 PathBook = Workbooks(PathBookName).Path '’ターゲットブックを変更可にてオープン With Workbooks .Open Filename:=PathBook & "\" & TargetBookName, ReadOnly:=False End With End Sub |