VBAを使ってファイルを圧縮したい

Question

こんばんは。

他の方の質問ですが
http://oshiete1.goo.ne.jp/qa2405614.html
を参考にＶＢＡでエクセルファイルの圧縮に挑戦しています。

しかしうまくいきません。
なのでご教授お願いします。

エクセルの標準モジュールに
下記のコードを載せました。

////////////////////////////////////////////////////////////////////////
'Option Explicit
Private Declare Function Zip Lib "Zip32j" (ByVal hWnd As Integer, ByVal szCmdLine As String, ByVal szOutPut As String, ByVal dwsize As Integer) As Integer
Private Declare Function FindWindow Lib "USER32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub testZip()
'Zip32 による圧縮
  Dim Filename As String
  Dim strArchiveName As String
  Dim strCommand As String
  Dim RC As Long
  Dim hWnd As Long
  Dim strOutPut As String * 512
  Dim lngSize As Long

  'ハンドル取得
  hWnd = FindWindow("XLMANI", Application.Caption)
 
  'ファイル名取得
  Filename = myDeskTopPath & "\Book1.xls"
 
  If Filename = "False" Then Exit Sub
  Filename = Mid$(Filename, InStrRev(Filename, "\") + 1)
  strArchiveName = Mid$(Filename, InStrRev(Filename, "\") + 1, InStrRev(Filename, ".") - InStrRev(Filename, "\") - 1) & ".zip"
  strCommand = "-u " & strArchiveName & " " & Filename
  lngSize = Len(strOutPut)
  RC = Zip(hWnd, strCommand, strOutPut, lngSize)
  'Debug.Print strOutPut
End Sub


Function myDeskTopPath()
    ' 実行時の デスクトップパス取得
    Dim MyWSH  As Object
    Set MyWSH = CreateObject("WScript.Shell")
    myDeskTopPath = MyWSH.SpecialFolders("Desktop")
    Set MyWSH = Nothing
End Function
////////////////////////////////////////////////////////////////////////

そして「Zip32j 」がないので
http://www.vector.co.jp/soft/win95/util/se062163.html
からダウンロードしました。

しかし、
「 RC = Zip(hWnd, strCommand, strOutPut, lngSize)」
の部分で、
「ファイルが見つかりません。 (Error 53)」
になります。

ダウンロードした「zip3j037」はフォルダごとデスクトップに置いています。
ただこれをダウンロードしただけではダメなのでしょうか？
エラーの原因がわかりません。

よろしくお願いします。

Wendy02 · Accepted Answer

こんばんは。
そのコードの作者です。すでに、もうご指摘がありますが、

>ダウンロードした「zip3j037」はフォルダごとデスクトップに置いています。

まず、以下に二つのファイルがなくてはなりません。

C:\WINDOWS\system32\ZIP32J.DLL　<---　今回、ダウンロードしたファイル
C:\WINDOWS\system32\zip32.dll　<----　Zip解凍用の本体

ここをお読みください。
http://www.csdinc.co.jp/archiver/lib/zip32j.html
Common Archiver Library: ZIP32J.DLL

'-------------------------------------------
'ファイル名取得
Filename = myDeskTopPath & "\Book1.xls"

別に決まった内容なら、特に、問題はありませんが、

Filename = Application.GetOpenFilename("テキストファイル*.txt(*.txt),*.txt")
If Filename = "False" Then Exit Sub

この二行でセットになります。
後は、問題はないはずです。

mitarashi · Answer

Zip32jを使った事は無いので、一般論ですが、
1.Declare <中略> Lib "Zip32j"のところで、デスクトップの絶対パスを指定するか、
Lib "C:\Documents and Settings\?????\デスクトップ\?????.dll"
2.DLLをシステムフォルダーに放り込むか、
3.環境変数PATHを設定してやる
必要があると思います。

mitarashi · Answer

#1です。Zip32jのマニュアルをみると、
【インストール】
このZIP32J.DLLをWINDOWSのSYSTEMフォルダ(C:\WINDOWS\SYSTEMなど)にコピーしてください。
必要に応じて次のファイルもWINDOWSのSYSTEMフォルダにコピーしてください。
1.ZIP32.DLL(Ver2.3以降)  - 絶対に必要
（後略）とあります。
乗りかかった船で、ZIA32.DLLと、ZIP32J.DLLを、今使っているPCはWindows2000なので、System32フォルダーにコピーして実行してみると、何も起こらず終了するので、
Debug.Print strOutPut
のコメントアウトを外してみると、
zip warning: name not matched: Book1.xls
zip warning: Book1.zip not found or empty
が表示されました。
ハンドル取得が、XLMANIになっているのに気付き、"XLMAIN"に直してみると、（これは、http://oshiete1.goo.ne.jp/qa2405614.htmlからそうなっています）
RC = Zip(hWnd, strCommand, strOutPut, lngSize)
のところでオーバーフローのエラーが発生しました。
元の質問への回答に、ショートファイルネーム云々の記述があったので、"C:\Book1.xls"で試験してみましたが、同様でした。
あとは、元の質問への回答者である、Wendy02さんのご出馬をお待ち下さい。

VBAを使ってファイルを圧縮したい

Zip32jを使った事は無いので、一般論ですが、

#1です。

こんばんは。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング