>なお、前回のzipfldr.dllは、圧縮ツール(expLzh)が邪魔をしていることが分かり、それをアンイントールして、もう一度やってみましたが、結局、圧縮フォルダの展開までで、その後の段階は手動になってしまうようです。お手数おかけして申し訳ありません。教えていただいたコードでも問題なく動きましたのでこれで大丈夫です。おかげさまで長年の課題が一つ解決しました。15:18こんにちは。>(System32フォルダにUnzip32.dllがありませんでした。7では、標準機能としてZIP形式やLZH形式のファイルを展開できます。http://oshiete.goo.ne.jp/qa/7244081.htmlやっとここで見つけました。辺りにあることが分かりました。検証しますから、少し、お待ちください。>1つずつzipファイルを右クリック→展開これは、まとめてUnzipするということでよいのですね。パスワードは同じですか?なお、>未インストールですが圧縮・解凍ソフトは唯一+Lhacaのみ認められているようです。私自身、+Lhacaは、使わざるを得ない場合にのみ使わされる、と言って過言ではありません。ない時は、私自身は、あまり初心者用の解凍ツールは使いません。それをインストールすることにより、それに関する「縛り」が強くなるからです。慣れてしまえば良いのですが。>+LhacaでもVBAでパス付きzipを解凍できませんでしょうか。http://okwave.jp/qa/q8199975.htmlここの内容は、正直なところ、VBAとしては、あまり興味の沸かないコードだと思います。ご質問者さんの、右クリックと差はありません。上記で書いたように、+Lhacaは初心者用のツールで、解凍ツール自体は統合されていたような気がしますから、あまりVBA/VB向きではないような気がします。やむを得ないというところでしょうか。このベストアンサーの方は、定評のあるよく知られた人物で、私が仮に作っても、結果的には大きな違いはないはずです。言うほどのことはありませんね。昔は、お金を払ってまで購入しましたし、私もその一人だったけれども、Lhaなどが出てきて、日本の圧縮事情の変わってしまいました。通報するこの回答へのお礼ご回答ありがとうございます。自信がなくて言えなかったんですが、やはりzipfldr.dllで圧縮・解凍処理をしてるんですね。合っていてよかったです。>これは、まとめてUnzipするということでよいのですね。パスワードは同じですか?はい。パスワードは同一になります。説明不足で恐縮なのですが、ひとつのフォルダにzipファイルが複数あるわけではなく、"MMDD"形式のフォルダが複数あり、その中にzipファイルが一つずつ入っている環境となっております。GetOpenFilenameメソッドを使用していただいているのですが、for文で繰り返すのは自分でやってみたいと思っていますので、ひとまず単一のパス付きzipファイルを解凍するコードをご教示いただければありがたいです。注文をつけるような形になり申し訳ありません。実はこの質問も僕なんです。+LhacaとVBAを取り巻く環境が変わったのかもしれないと淡い期待を持って今回+Lhacaでできるか聞いてみました。以前は(というか先月まで)XPを使用していたのですが、7に変わる変わるとずっと言われていたので、ベストアンサーの方へのお礼のコメントにあるように標準機能のみでパス付きzipの処理ができるか質問するのを待っていました(7に変わったあとまた同じ質問をしてしまうと回答者の方に申し訳ないと思ったので)会社に提案した後に気づいたのですがwinzipはシェアウェアなんですね。11:08#1の回答者です。検索し、訂正してください。ほとんど重要ではない部分ですが、残骸やエラーを発生させるものです。'コメントブロックにしておいてください。制作段階で監視するためだけです。'これはパスワードなしのものです。20:12こんばんは。>アプリケーションのインストールが禁止されており、>毎日複数のパスワード付zipファイルを手動で解凍して処理をしています。ライブラリはあるということでしょうね。以下は、複数のZIPファイルも選択して、それぞれを解凍することが可能です。"エラーがあり解凍できませんでした。"は正常に解凍しました。空白値(スペース)に関して、何度やっても、エラーが出る場合は、ほとんど、その部分です。後に空白値も、入れるようにしてください。通報するこの回答へのお礼ご回答ありがとうございます。こちらの書き方が悪かったのですが、>毎日複数のパスワード付zipファイルを手動で解凍して処理をしています。いうのは1つずつzipファイルを右クリック→展開で解凍処理をしています。ファイルが見つかりません:unzip32」エラーが出てしまいます。(System32フォルダにUnzip32.dllがありませんでした。Client"にUNZIP.DLLがあるのですが、これは使用できますか?また、情報が後出しになってしまい申し訳ないのですが、確認したところ、未インストールですが圧縮・解凍ソフトは唯一+Lhacaのみ認められているようです。+LhacaでもVBAでパス付きzipを解凍できませんでしょうか。解凍」に関するQ&A:栗の渋皮を簡単に剥く良い方法をご存知の方宜しくお願いします。zipファイルの作成その他(プログラミング・Web制作)4VBAで、なぜかSendkeyが効きません。zipファイルの作成その他(プログラミング・Web制作)4VBAで、なぜかSendkeyが効きません。回答数ランキングです。上の1.と3.は出来たのですが、2.の圧縮についてが、理解できずにおります。Shell関数などで指定し圧縮をする方法などは紹介されていたのですが、Windows7の標準機能のみZip圧縮を行う事は可能なのでしょうか?ご存知の方がいましたら、ご教授いただければ幸いです。Aベストアンサーこんにちは。ファイルは、拡張子が変わっただけで、本来は、Zipファイルなのです。Zipで圧縮する必要があるか分かりませんが、アーカイブに格納ということで、やってみました。sFolderItemで、ZIPフォルダが認識しないことでした。そこで、何度もやった結果、事前に参照設定することで解決しました。'レイトバインディングだと抜けがあります。Function'//こんにちは。ファイルは、拡張子が変わっただけで、本来は、Zipファイルなのです。Zipで圧縮する必要があるか分かりませんが、アーカイブに格納ということで、やってみました。sFolderItemで、ZIPフォルダが認識しないことでした。ver.14(2)やりたいこと3つのファイルのzipファイルを同じフォルダに作成したいC:\temp\a.txtC:\temp\b.txtC:\temp\c.txtからC:\temp\d.zipを作りたい。下記サイトを参照しましたが知識不足で正確にわからないのと、『本当にこんなに長いコードが必要なのか?』と疑問に思っています。参考1VBAでZIP圧縮する。http://scripting.cocolog-nifty.com/blog/2007/11/vbazip_a144.html参考2ファイル/フォルダをzipファイルに圧縮http://qiita.com/kou_tana77/items/72346c69107fabf99335定義、ループ、分岐など基本的なことは分かっています。APIやFSOなども詳しくはないですが、知っています。1の「fso.*******」、「Shell.*******」などの、*******が分かりません。余計なものは除いて必要最低限のコードだけにするとどのようになるかしりたいです。※エラー処理などに関しては使用環境にあわせて作成します。ver.14(2)やりたいこと3つのファイルのzipファイルを同じフォルダに作成したいC:\temp\a.txtC:\temp\b.txtC:\temp\c.txtからC:\temp\d.zipを作りたい。下記サイトを参照しましたが知識不足で正確にわからないのと、『本当にこんなに長いコードが必要なのか?』と疑問に思ってい...続きを読むAベストアンサーこんな感じでしょうか?・既に圧縮書庫ファイルが存在する場合は上書きされます。・指定した被圧縮ファイルが存在しなかった場合はハングアップします。(sfo.GetAbsolutePathName(CStr(file)))'このファイルのコピーが終わるまで待つ。Subこんな感じでしょうか?・既に圧縮書庫ファイルが存在する場合は上書きされます。・指定した被圧縮ファイルが存在しなかった場合はハングアップします。zip圧縮・解凍のコマンド同様の質問があったらすみません。標準でzipファイルの圧縮・解凍ができるようですが、この操作をcmd.exeを使って行いたいと考えています。質問(1)そのようなコマンドはありますか?質問(2)コマンドがあれば、教えてください。参照できるホームページ等教えていただけませんか?よろしくお願いいたします。コマンドがあれば、教えてください。Win7はzipfldr.dllで処理しています。パラメータはfilename.zipのサブフォルダにfilenameフォルダを作成して解凍ファイルを格納します。filenameにはzipファイル名を指定してください。VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。常にファイル名を取得出来るVBAをどなたか、教えて下さい。操作対象になっているブックの名前はActiveWorkbook.Nameですね。>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになりというような文脈からすると、ThisWorkbook.Nameの方ですかね。他の回答も見るQShell.ApplicationのNameSpaceを書き換えたいこんばんは、みなさん。前に以下の質問でプログラムを作っていただいたのですが、WindowsXPだとうまく動くのに、Windows2000だとうまく動作しません。p_colParams)】関数の以下の部分で、オブジェクト実行エラーで引数の指定が間違っているとか何かのエラーが表示されました。m_objShell.NameSpace(CStr(p_strZipName))XPではうまく動いているので、おそらくはVBScriptのインタプリタ側に何らかの違いがあるようです。この構文の代わりに有効なコードを書きたいと思います。Aベストアンサーどうも10500YEN(←よく見てね)です。m_objShell.NameSpace(CStr(p_strZipName))いいえ、ここがそのOSでZIPを扱えるかどうかの、一番の要です。WIN2000環境で(1)ZIPFLDR.DLLをレジストリ登録しましたか?(2)それによって、エクスプローラで書庫ファイルの一覧が表示できるようになりましたか?それができなければ、ネームスペースとしてのオブジェクトを取得は無理です。2000環境を潰したので、私のところでの実験はできません。今の段階では、まずは#5の発言で示した内容を行動してみてくださいとしか言えません。マクロで指定フォルダを開くエクセルにて指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。Aベストアンサーこんにちは。与えるパスを変更します。Sub他の回答も見るQEXCELファイルのカレントフォルダを取得するには?EXCELファイルのカレントフォルダを取得するには?C:\経理\予算.xlsD:\2005年度\予算.xlsEXCEL97ファイルがあります。VBAでカレントフォルダ名(C:\経理\,D:\2005年度\)を取得する事は可能でしょうか?CURDIRでは上手い方法が見つかりませんでした。Aベストアンサーこんばんは。以下で試してみてください。VBA】マクロでExcel自体を終了させたい環境:WindowsXP、Excel2003マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。ThisWorkbook.CloseExcObj.QuitApplication.Quitどこか悪いところはありますでしょうか?よろしくお願いします。普通に考えれば質問者のコードで上手くいきそうですがhana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますのでApplication.QuitをThisWorkBook.Closeの前にもってこないといけません。Application.Quitはそれがあるプロシージャのコードが全て終わるまでその実行を保留するちょと特別動作をします。SubここでDMNの値を四捨五入したいです。これとは別に切上げ、切捨ても教えていただけるとありがたいです。引数で、対象桁を変更できます。実行すると「上書き確認」のダイアログが表示されてしまいます。自動で上書きさせる方法を教えてください。&h10---------------------------------------------------「WScript」を使っているのは、コピーしている事が視覚的に分かりたいので、書類が飛んでいる表示をさせたいからです。AベストアンサーoFolder.CopyHereの第二引数にFOF_NOCONFIRMATION(0x0010)を指定します。特定の文字を入れる...20エクセル2016です。表を大きく、紙いっ...(Excel)あるセルに文字を入力...4Excelのグレーの部分を戻したい5エクセルで〇の数を数えたい6エクセルの計算結果が0になって...7EXCELでX軸が時間のグラフを作...8チェックボックスの箱のサイズ...9エクセルのセルにカレンダーを...10エクセルにおいて、シートの保...11改ページの2ページ目の作り方12エクセル関数/10進法から60進法...13DATファイルをEXCELで開きたい14excelからexcelへの差し込み印刷15エクセル2016です。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。