ファイルを開く、保存する

ファイルを開く

Sub Sample()

Dim OpenFile As String

OpenFile = Application.GetOpenFilename("全てのファイル,*.*")

MsgBox OpenFile & " を開きます"

End Sub

ファイルを保存する

Sub Sample()

Dim SaveFile As String

SaveFile = Application.GetSaveAsFilename("全てのファイル,*.*")

MsgBox OpenFile & " を保存します"

End Sub

備忘録