Excel2000 VBA エクスプローラを起動する 実験

Excel2000 VBA  エクスプローラを起動する　実験

Sub フォルダを開く()
'
'
Dim myFolder As String
'フォルダの設定
    'myFolder = ThisWorkbook.Path
    myFolder = "D:\bk\office\Excelバックアップ"
'エクスプローラの起動（Windows2000 C:\WINNT WindowsXP C:\Windows)
    Shell "C:\WINNT\Explorer.exe " & myFolder, vbNormalFocus
   
End Sub

タグ：Excel2000 VBA