½Ð°Ývba¨Ï¥Î¨t²Î¤º«Ø¨Ó¸ÑÀ£ÁYzip??
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
³æ¤@Àɮ׳æ¤@¸ô®|¸ÑÀ£¦¨¥\¡A¯d¤U¬ö¿ý°Ñ¦Ò°Ñ¦Ò¡I- Sub vba_unzip()
- Dim oApplicationlication As Object
- Dim fileName As Variant
- Dim folderFileName As Variant
- 'fileName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False)
- fileName = "E:\´Á¥æ©Ò\opdata\OptionsDaily_2018_02_21.zip"
- folderFileName = "e:\test\"
- 'MkDir folderFileName
- Set oApplication = CreateObject("Shell.Application")
- oApplication.Namespace(folderFileName).CopyHere oApplication.Namespace(fileName).items
- DoEvents
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|