アプリ版:「スタンプのみでお礼する」機能のリリースについて

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

A 回答 (2件)

こんにちは。



こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub
    • good
    • 58
この回答へのお礼

そのとうりです。非常に助かりました。勉強になりました。ありがとうございました。

お礼日時:2009/06/07 21:13

 こういうことですか?



Sub Test()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "D:\hoge\"
If .Show = True Then
MsgBox .SelectedItems(1)
End If
End With
End Sub
    • good
    • 18
この回答へのお礼

そのとうりです。非常に助かりました。ありがとうございました。

お礼日時:2009/06/07 21:12

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています