ボタンを適用してExcelで別のブックを開くにはどうすればよいですか？

ワークシートにハイパーリンクを挿入して別のブックをリンクできるため、すばやく簡単に開くことができます。 しかし、アクティブなブックを介して別のブックを開くためのボタンを作成しようとしたことがありますか？

ボタンを適用して、VBAコードを含む別のブックを開きます

ボタンを適用して、VBAコードを含む別のブックを開きます

Excelでは、図形ボタンを挿入して、それにコードをリンクできます。 このジョブは、次の手順で解決できます。

1に設定します。 OK をクリックします。 インセット > 形状 > 長方形、スクリーンショットを参照してください：

2。 次に、マウスをドラッグしてシェイプボタンを描画し、必要に応じてフォーマットします。スクリーンショットを参照してください。

3。 そして、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

4に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：特定のブックを開きます。

Sub Openworkbook_Click()
'Updateby Extendoffice
    Dim xWb As Workbook
    Dim wbName As String
    On Error Resume Next
    Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
    wbName = xWb.Name
    If Err.Number <> 0 Then
        MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
        Err.Clear
    Else
        MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
    End If
End Sub

Note：上記のコードでは、ファイルのパスと名前を変更する必要があります C：\ Users \ DT168 \ Desktop \ test \ Book2.xlsx リンクするブックの実際のパスに移動します。

5。 次に、このコードウィンドウを保存して閉じ、作成したシェイプボタンを右クリックして、を選択します。 マクロの割り当て コンテキストメニューから、ポップアウトで マクロの割り当て ダイアログボックスで、マクロ名をクリックします ワークブックを開く_クリック 挿入したばかりで、 OK ボタン、スクリーンショットを参照してください：

6。 ここで、シェイプボタンをクリックすると、次のようになります。

（1.）ブックが存在しない場合は、次のプロンプトボックスが表示されます。

（2.）ブックが存在する場合は、すぐに開かれ、次のことを通知するプロンプトボックスも表示されます。