エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150310184832]]: #score: 9211; @digest: fb481aa2496954587b03c9802f86eb58; @id: 67466; @mdate: 2015-03-11T06:20:54Z; @size: 5406; @type: text/plain; #keywords: ダ[ (20894), 凍フ (17497), dstfol (14319), program (13269), ドプ (13069), copyhere (12488), ル場 (12197), extract (11222), zip (10482), 解凍 (9532), リ- (9447), ス> (9230), プト (6956), ル[ (6246), filecopy (5987), ム- (5822), ダパ (5502), セサ (4857), files (4153), ーウ (3828), コマ (3665), サリ (3555), デイ (3538), ォル (3173), ロン (3128), マン (3093), ルダ (2717), ス" (2689), work (2642), ファ (2288), ス( (2235), フォ (2226); 『zipファイルになっているフォルダの中にあるtxtのみコピーしたい』（あや）
zipファイルになっているフォルダの中にあるtxtのみコピーしたい教えてください AZ0000000000.zip の中に -フォルダ [aaa] -フォルダ [bbb]-ファイル[234.pdf] -フォルダ [ccc]-フォルダ[999]-ファイル[123.exe] -ファイル[114.pdf] -ファイル[135.txt] zipフォルダの中に複数のフォルダがあり、階層を降りて行くと拡張子がtxtのものがありますこの.txtのもののみ、別のフォルダにコピーをしたいのですちなみに、 .txtはzipファイルの中に必ず一つです zipフォルダ名、ファイル名はバラバラですバラバラですが、フォルダ名は同じなので.txtがある場所は固定ですそして、zipファイルは100個以上あります（重くなるようでしたら、10個ずつとかでも問題ない）なけなしの知識で、調べたのですが Filecopyとワイルドカードを使うとできるようで試してみたのですが zipはできないのかな? 一回解凍してから、なのかな? 教えてください＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- VBA のFileCopy は ZIP に限らず圧縮ファイルには対応していません。マクロに限らず、ZIP をコマンドベースから実行するのは意外と難しそうですが、フリーウェアなどを使うのは不可でしょうか。例えば、こんなのを使えば、 http://sevenzip.sourceforge.jp/ コマンウィンドウでこの程度で取り出せるのですが。 C:¥>CD /D "D:¥コピーしたいフォルダパス" D:¥コピーしたいフォルダパス>C:¥Program Files¥7-Zip¥7z.exe x D:¥Data¥*.zip *.txt （Mook） 2015/03/10(火) 20:25 ---- Mookさんありがとうございますフリーウェアはちょうど使っておりましたので教えていただいた方法で進めたいと思っており C:¥>CD /D "D:¥コピーしたいフォルダパス" D:¥コピーしたいフォルダパス>C:¥Program Files¥7-Zip¥7z.exe x D:¥Data¥*.zip *.txt をコマンドプロンプトに入力しようとしているのですがツール-プログラム-アクセサリ-コマンドプロンプトで、間違っていませんか（コマンドプロンプトの使い方があまり詳しくないため教えてください） c:¥>cd /d "c:¥users¥●●●¥downloads"としてEnterを押すとその階層に移動するのですが c:¥users¥●●●¥dounloads>となった続きに D:¥コピーしたいフォルダパス>C:¥Program Files¥7-Zip¥7z.exe x D:¥Data¥*.zip *.txt を入力するのでしょうか? なんか違うような感じはするのですが、どうすればよいかがわからずにいます教えてください（あや） 2015/03/11(水) 09:37 ---- まず (1)プログラムのパス (2)ZIP ファイルのあるデータパス (3)解凍ファイルを保存したいパスを明確にしてください。先に提示した例では、それぞれ (1)C:¥Program Files¥7-Zip¥7z.exe (2)D:¥Data (3)D:¥コピーしたいフォルダパスとしてのサンプルです。実際に自分の環境に合わせて変更してください。コマンドの使用方法は、 >C:¥Program Files¥7-Zip¥7z.exe -? とすれば、表示されるのオプション等は適宜追加してください。・・・> までの部分はコマンドプロンプトなので、入力文字ではありません。「>」より後ろ（>は含まない）の部分を入力してください。 （Mook） 2015/03/11(水) 10:15 ---- Mook様のやり方が正しいのですが、FileCopyではできませんが、CreateObject("Shell.Application")を使えば不可能ではありません。以下を参考に作成します。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12136913357 Option Explicit Sub file() Dim sh As Object, fol1 As Object, fol2 As Object Set sh = CreateObject("Shell.Application") Set fol1 = sh.Namespace("zipファイル場所") 'zipファイル場所 Set fol2 = sh.Namespace("解凍ファイル場所") '解凍ファイル場所 extract sh, fol1, fol2 End Sub Private Sub extract(sh As Object, zipfol As Object, dstfol As Object) Dim f As Variant For Each f In zipfol.Items If (f.IsFolder = True) Then extract sh, f.GetFolder, dstfol ElseIf Right(f, 3) = "txt" Then 'txtファイルだけ解凍 dstfol.CopyHere f End If Next End Sub ただの参考としてください（デイト） 2015/03/11(水) 10:39 ---- そうですね。簡単ではないですが、VBA(VBS)でもできますね。（MS は CopyHere は保証しないといってはいますが、できているようです。） http://support.microsoft.com/kb/2679832/ja 「CopyHere メソッドから Zip ファイルを処理することはできません」なので、VBA でやりたい場合はデイトさんのを参照してください。検索すれば、いろいろとサンプルコードは見つかると思います。 PowerShell の V5 では ZIP 用のコマンドレットがサポートされたようなので、これが使えれそちらを紹介したかったのですが、 Windows7 の標準は V2.x 〜 V4.x なので、コマンド案を提案しました。以下補足です。 >ツール-プログラム-アクセサリ-コマンドプロンプトで、間違っていませんかで正しいです。 7z をインストールした状態でしょうか（C:¥Program Files¥7-Zip¥7z.exe ファイルがありますか?）もしあるのであれば、下記のようにしてみてください。 1) C ドライブの直下に Work というフォルダを作成します。 2) 処理したいZIP ファイルを Work の下にコピーします。 3) コマンドプロンプトを開き、下記を順番に入力します。「>」より後ろのみ C:¥Users¥Aya>CD /D "C:¥Program Files¥7-Zip" C:¥Program Files¥7-Zip>SET PATH=%PATH%;%CD% C:¥Program Files¥7-Zip>CD /D C:¥Work C:¥Work>7z.exe x -r *.zip *.txt これで Work の下に、txt 拡張子を持ったファイルが解凍されるかと思います。（フォルダ aaa,bbb,ccc 等も再現されます。） （Mook） 2015/03/11(水) 10:59 ---- Mookさんわたしがコマンドプロンプトの使い方が慣れていないのもありデイトさんの記述をお借りし、必要な結果が得られるようになりましたいつも幅広い知識教えてくださり頭が下がりますお二人ともありがとうございました（あや） 2015/03/11(水) 15:20 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150310184832.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ