[[20190826093509]]　『パスワード付ZIPファイルを解凍するVBA』（初心者A）　ページの最後に飛ぶ

『パスワード付ZIPファイルを解凍するVBA』（初心者A）

パスワード付ZIPファイルを解凍するVBAをネットで調べて作ってみたんですが
「実行時エラー438；このオブジェクトは、プロパティまたはメソッドをサポートしていません」とエラーメッセージが発生します。どこに問題があるのか教えていただけないでしょうか。
Sub unzip()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim fileobj As Object
Dim shellobj As Object
Set shellobj = CreateObject("Shell.Application")
Dim zipobj As Object
Dim ret As Long
Dim strpass As String
strpass = "1111"

For Each fileobj In fso.GetFolder("C:\Users\pocoagio\Desktop\新しいフォルダー").Files

    If fso.getextentionname(fileobj) = "zip" Then
    Set zipobj = shellobj.Namespace(fileobj.Path).Items
    Application.SendKeys strpass & "{enter}"
    ret = shellobj.Namespace("C:\Users\pocoagio\Desktop\新しいフォルダー").copyhere(zipobj)
    End If
Next fileobj

Set fso = Nothing
Set shellobj = Nothing
Set fileobj = Nothing
Set zipobj = Nothing

End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

 fso.getextentionname
 は
 fso.getextensionname
 のミスか？
（ねむねむ） 2019/08/26(月) 09:52

ありがとうございます。ですが今度は「実行時エラー429;ActiveXコンポーネントはオブジェクトを作成できません」とエラーが発生します。こちらも解決方法を教えてください。
（初心者A） 2019/08/26(月) 10:06

 そのエラーはどの行で出ているのだろうか？
（ねむねむ） 2019/08/26(月) 10:31

すみません。実行時エラー429は解決したんですが今度はコンパイルエラーsubまたはfunctionが定義されていませんと表示されます。ret = shellobj.Namespace("C:\Users\pocoagio\Desktop\新しいフォルダー").copyhere(zipobj)の部分です。エラーばかりで申し訳ありません。
（初心者A） 2019/08/26(月) 10:59

解決しました。ありがとうございました。
（初心者A） 2019/08/26(月) 13:05

コメント返信：

[ 一覧(最新更新順) ]

[[20190826093509]] 『パスワード付ZIPファイルを解凍するVBA』（初心者A） ページの最後に飛ぶ

[[20190826093509]]　『パスワード付ZIPファイルを解凍するVBA』（初心者A）　ページの最後に飛ぶ