前提・実現したいこと
ここに質問の内容を詳しく書いてください。
(例)PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
VBAで、ZIPファイルを同じフォルダに解凍したいのですが、
ZIPファイル以外の全部のファイルがコピーされてしまいます。
エラーメッセージ
該当のソースコード
'ZIPファイル解凍
' Dim zipFile As Variant
Dim unzipFolder As Variant
Dim NewFile As Object
zipFile = "C:\■実績更新用" & filename7 'ZIPファイル
unzipFolder = "C:\■実績更新用" '解凍フォルダ
Set NewFile = CreateObject("Shell.Application")
NewFile.Namespace(unzipFolder).CopyHere NewFile.Namespace(zipFile).Items
'解凍後ファイル名
Dim filename8 As String
filename8 = Dir("C:\■実績更新用\日別データ_*.xlsm")
Debug.Print filename8
Range("B11") = filename8
ソースコード
試したこと
ここに問題に対して試したことを記載してください。
補足情報(FW/ツールのバージョンなど)
初心者です。
C:\■実績更新用 というフォルダに
すでにVBAで名前を取得しているfilename7(日別データYYYYMMDD.ZIP)のZIPファイル
を解凍してエクセルファイルにしたいです。
ここにより詳細な情報を記載してください。