joey0415

³æ¤@Àɮ׳æ¤@¸ô®|¸ÑÀ£¦¨¥\¡A¯d¤U¬ö¿ý°Ñ¦Ò°Ñ¦Ò¡I

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. 
    
13. End Sub

½Æ»s¥N½X