½Ð°Ývba¨Ï¥Î¨t²Î¤º«Ø¨Ó¸ÑÀ£ÁYzip??

lshsien

±z¦n!
½Ð±Ð¦U¦ì«e½ú
¥Ø«e¤p§Ì·Q¨Ï¥Î¥H¤U¨Ó¸ÑÀ£ÁY
Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False)
FileNameFolder = ThisWorkbook.Path & "\" & folder_name & "\"
Worksheets("¤u§@ªí1").Range("F2") = FileNameFolder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items
¥Ø«e´ú¸Õ¦¨¥\¡A
¦ý¨Ï¥Î³o¤è¦¡¡AÁٻݿï¾Ü©Ò»Ý­n¸ÑÁYªºÀɮסA
½Ð°Ý¬O§_¥i¥H¤£»Ý¿ï¾Ü¦Ó¦Û¦æ¸ÑÀ£ÁY
ps.ÀɮצWºÙ»P¸ê®Æ§¨¦WºÙÂ^¨ú¦ÛWorksheets("¤u§@ªí1").Range("F2")

¸ü·Ð½Ð¦U¦ì«e½ú«ü¾É
ÁÂÁÂ

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

»k¥ú°j¯T

¦^´_ 7# stillfish00


    ÁÂÁ stillfish00 ¤j¤jªº¦^µª¡A¥i¥H¥¿±`°õ¦æ¤F¡A¸U¤À·PÁ¡ã

stillfish00

¦^´_ 6# »k¥ú°j¯T
­Y¬O¤@­ÓÀɮפ@­Ó¸ê®Æ§¨:

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim gb As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
4.     Dim fd As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
5.     With Target(1)
   
6.         If .Address = "$B$1" Then
   
7.             Set gb = Excel.Application.FileDialog(msoFileDialogFilePicker)  '³]©w¿ï¨úÀÉ®×¥\¯à
   
8.             If gb.Show Then .Cells = gb.SelectedItems(1) 'ÂI¿ï­þ­ÓÄæ¦ìÀx¦s®æ,Àɮ׸ô®|¨q¦b¨º­ÓÄæ¦ì
   
9.         ElseIf .Address = "$B$2" Then
   
10.             Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '³]©w¿ï¨ú¸ê®Æ§¨¥\¯à
    
11.             If fd.Show Then .Cells = fd.SelectedItems(1) 'ÂI¿ï­þ­ÓÄæ¦ìÀx¦s®æ,Àɮ׸ô®|¨q¦b¨º­ÓÄæ¦ì
    
12.         End If
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

»k¥ú°j¯T

¦^´_ 3# stillfish00


stillfish00 ¤j¤j¡G

¡@½Ð°Ý¥H¤Uµ{¦¡­n«ç»ò§ï¡A¤~¯à¨â­Ó±ø¥ó³£¦¨¥ß¡A¨Ã¥¿±`°õ¦æµ{¦¡?

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim gb As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
4.     'Dim fd As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
5.     Set gb = Excel.Application.FileDialog(msoFileDialogFilePicker)  '³]©w¿ï¨úÀÉ®×¥\¯à
   
6.     'Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '³]©w¿ï¨ú¸ê®Æ§¨¥\¯à
   
7.     With Target(1)
   
8.         If .Address = "$B$1" Then If gb.Show Then .Cells = gb.SelectedItems(1) 'ÂI¿ï­þ­ÓÄæ¦ìÀx¦s®æ,Àɮ׸ô®|¨q¦b¨º­ÓÄæ¦ì
   
9.         'If .Address = "$B$2" Then If fd.Show Then .Cells = fd.SelectedItems(1) 'ÂI¿ï­þ­ÓÄæ¦ìÀx¦s®æ,Àɮ׸ô®|¨q¦b¨º­ÓÄæ¦ì
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

»k¥ú°j¯T

¦^´_ 4# lshsien


§A¥Î¸Õ¦¨¥\ªº¤èªk¬O
¡@¥i§_¤À¨É¤@¤U¡A¤¬¬Û¾Ç²ß

lshsien

·PÁ»k¥ú°j¯T¤j¤j
¤w¸g¸ÕÅ禨¥\¤F

·PÁÂstillfish00§ó¥¿

stillfish00

¦^´_ 1# lshsien
§A¼g¤Ï¤F§a
Fname = Worksheets("¤u§@ªí1").Range("F2").value          '±qF2¨ú±ozipÀɸô®|
FileNameFolder = ThisWorkbook.Path & "\" & folder_name & "\"        '¸ÑÀ£ÁY¦ì¸m
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

»k¥ú°j¯T

¦^´_ 1# lshsien

¸Õ¸Õ¬Ý¡A¬O¤£¬O³o¼Ë?

1.     Sub ¸ÑÀ£ÁY¤å¥ó()
   
2.         Dim Rarexe As String  'WINRAR°õ¦æ¤å¥óªº¦ì¸m
   
3.         Dim FileString As String 'Shell«ü¥O¤¤ªº¦r²Å¦ê
   
4.         Dim Result As Long
   
5.         Rarexe = "C:\program files\winrar\winrar"  'WINRAR°õ¦æ¤å¥óªº¦ì¸m
   
6.         '[B1]Äæ¦ì ¸ÑÀ£ÁY«eªº­ì©l¤å¥ó
   
7.         '[B2]Äæ¦ì ¸ÑÀ£ÁY«áªº¥Ø¦a¤å¥ó
   
8.         FileString = Rarexe & " x " & "-Y " & [B1] & " " & [B2]  '«ü©w-Y ¶}Ãö¡A¡§¬O¡¨¬°Àq»{­È¡A¨Ã¦Û°Ê¦^À³¥þ³¡ªº¸ß°Ý¡C
   
9.         Result = Shell(FileString, vbHide)
   
10.     End Sub

½Æ»s¥N½X

ÁÙ¦³¥t¤@­Ó§ó«K§Qªº¤èªk¡A¦ý§Ú¥\¤O¤£°÷²`«p¡A­n½Ð°ª¤â¨ÓÀ°¦£¤F¡ã
µ{¦¡½X¦p¤U¡A»Ý¥t¥~¶K¦b¤W­±µ{¦¡ªº³Ì¤W¤è
³o¤èªk¬Oª½±µÂIÄæ¦ì¡A´N·|¦Û°Ê±a¥X¸ô®|

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. 
   
4.     Dim gb As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
5.     'Dim fd As FileDialog    '«Å§i¤@­ÓÀÉ®×¹ï¸Ü®Ø
   
6. 
   
7.     Set gb = Excel.Application.FileDialog(msoFileDialogFilePicker)  '³]©w¿ï¨úÀÉ®×¥\¯à
   
8.     'Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '³]©w¿ï¨ú¸ê®Æ§¨¥\¯à
   
9.    
   
10.     With Target(1)
    
11.         If .Address = "$B$1" Then If gb.Show Then .Cells = gb.SelectedItems(1) 'ÂI¿ï­þ­ÓÄæ¦ìÀx¦s®æ,Àɮ׸ô®|¨q¦b¨º­ÓÄæ¦ì
    
12.         'If .Address = "$B$2" Then If fd.Show Then .Cells = fd.SelectedItems(1) 'ÂI¿ï­þ­ÓÄæ¦ìÀx¦s®æ,Àɮ׸ô®|¨q¦b¨º­ÓÄæ¦ì
    
13.     End With
    
14. 
    
15. End Sub

½Æ»s¥N½X