Top > 呼び出し元・先
呼び出し元・先
ハイパーリンクはエクセルの挿入のハイパーリンクをクリックするとアドレスを入力するダイアログがでますのでそこにホームページのURLと同じように呼び出したいファイルのパスとファイル名を入力します。
VPNを使って遠隔地のファイルを呼び出すときなど便利です。
営業部・技術部が別の場所にある場合
Workbooks.Open Filename:= パスとファイル名
で呼び出せます。
技術部はシート２にありますので、 Worksheets("技術部").Activateでシートを表示していきます。
Sub eigyou()
Workbooks.Open Filename:="D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
End Sub
Sub gijyutu()
Workbooks.Open Filename:="D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
Worksheets("技術部").Activate
End Sub
呼び出し先のブックが開いているか確認して開きます。
呼び出し元のフォルダー（PATH）を直接入力するのではなく、
MyFile = ActiveWorkbook.Path & "\呼び出し先.xlsm"
PATHで取得してファイル名を足しています。
Sub eigyou1()
'ブックが開いているか確認してから開く
Dim flag As Boolean
Dim wb As Workbook
Dim MyFile As String
MyFile = ActiveWorkbook.Path & "\呼び出し先.xlsm"
' MyFile = "D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
flag = False
For Each wb In Workbooks
If wb.FullName = MyFile Then
flag = True
MsgBox MyFile & "は既に開いています"
Exit For
End If
Next wb
If flag = False Then
MsgBox MyFile & "を開きます"
Workbooks.Open MyFile
End If
End Sub
