MP4ファイルのプロパティ値を取得するプログラムでエラーが発生してしまいます ★の箇所で「'NameSpace'メソッドは失敗しました:'IShellDispatch6'オブジェクト」のダイアログが出ます 参照設定Microsoft Shell Controls and automaitonを追加してもだめでした 解決方法がわかれば教えてください
Private Sub CommandButton1_Click() Dim Shell, Folder Set Shell = CreateObject("Shell.Application") Set Folder = Shell.Namespace(range("A1").Value) ←←←★