|
こんにちわ。初めて投稿させていただきます。
VBAを始めてまだ間もない初心者ですがどうぞ宜しくお願いいたします。
EXCEL97で
シート上にボタンを作成し、そのボタンが押されたら
フォルダ選択のダイアログを表示→フォルダ選択→選択したフォルダ名取得
といったことをしたいのですが、
過去ログで調べて実行してみたところ
Set Folder = CreateObject("Shell.Application"). _
のところで
【ActiveXコンポーネントはオブジェクトを作成できません】とメッセージ
が出てしまいます。
以下のプログラムで何かオブジェクトを参照する
必要があるのでしょうか?
どうぞご教授ください。お願いします。
=====================
Private Sub CommandButton1_Click()
Dim Folder As Object
Set Folder = CreateObject("Shell.Application"). _
BrowseForFolder(0, "フォルダを選択してください", 0)
If Not Folder Is Nothing Then
MsgBox Folder.Self.Path
End If
Set Folder = Nothing
End Sub
|
|