フォルダ内の各Excelファイルを個別に圧縮します。

Question

は、私は現在、別途フォルダ内のすべてのファイルを圧縮しようとして立ち往生しています。私は、フォルダを圧縮したり、すべてのファイルを一緒に圧縮したりしたくありません。後でXMLフォルダを横断してOCRする予定の画像を抽出するためには、別々に圧縮する必要があります。私の試みは、VBAを使用して、単にファイルの拡張子を持つ変数、文字列「はnew_strFilename」「即時ウィンドウ」によると、ファイルの拡張子

Sub Create_Zip() 

Dim FSO As FileSystemObject 
Dim objFile As File 
Dim myFolder 
Dim strFilename As String 
Const zipDir As String = "\\...\Zip Test" 

Set FSO = New FileSystemObject 
Set myFolder = FSO.GetFolder(zipDir) 

For Each objFile In myFolder.Files 
    strFilename = objFile.Name 
    new_strFilename = Replace(strFilename, ".xlsx", ".zip") 
Next objFile 
End Sub 

を変更した「.zipファイル」けどフォルダの変更が表示されません。