彰化一整天的論壇

 找回密碼
 立即註冊
查看: 504|回復: 0

【轉貼】請問vba使用系統內建來解壓縮zip??

[複製鏈接]
發表於 2018-2-22 09:13:45 | 顯示全部樓層 |閱讀模式
  1. Sub vba_unzip()
  2.     Dim oApplicationlication As Object
  3.     Dim fileName As Variant
  4.     Dim folderFileName As Variant
  5.     'fileName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False)
  6.     fileName = "E:\期交所\opdata\OptionsDaily_2018_02_21.zip"
  7.     folderFileName = "e:\test\"
  8.     'MkDir folderFileName
  9.     Set oApplication = CreateObject("Shell.Application")
  10.     oApplication.Namespace(folderFileName).CopyHere oApplication.Namespace(fileName).items
  11.     DoEvents

  12. End Sub
複製代碼
文章出處: http://forum.twbts.com/viewthread.php?tid=12700
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-21 10:30 , Processed in 0.117471 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表