ファイルを開く

コード


Sub ファイルを開く()

Dim tgtFile As String
tgtFile = ファイル選択()
If tgtFile = "" Then Exit Sub

Dim wb As Workbook
Set wb = Workbooks.Open(Filename:=tgtFile, UpdateLinks:=False, _
    ReadOnly:=False, Password:="password", WriteResPassword:="password", IgnoreReadOnlyRecommended:=True)

'ReadOnly:Trueの場合は読み取り専用で開く
'IgnoreReadOnlyRecommended:Trueの場合は読み取り専用推奨を無視

End Sub

Function ファイル選択()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .AllowMultiSelect = False
        .Title = "ファイルの選択"
        If .Show = True Then
            ファイル選択 = .SelectedItems(1)
        Else
            MsgBox "選択されていません"
        End If
    End With
End Function

解説

ファイルダイアログを開き、ファイルを選択するとエクセルワークブックを開く。
開いたワークブックは使用しやすいように「wb」というオブジェクト変数に代入。

wb.activate

として使用可能。

ファイルを開く

コード

解説

参考サイト