【マクロ】ファイル開くダイアログ

Sub 個人日報フォルダ()

Dim strPath As String

strPath = "\\LANDISK06\disk1\CTI_TEMP\EXCEL日報"

With Application.FileDialog(msoFileDialogOpen)

.InitialFileName = strPath

.Show

If .SelectedItems.Count = 0 Then

'MsgBox "キャンセルされました。"

Exit Sub

End If

strPath = .SelectedItems(1)

End With

Workbooks.Open strPath

End Sub