ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦h±i¤u§@ªí¥t¦s¬¡­¶Ã¯¤Î§ì¦í¹w³]±K½X

¦^´_ 10# Hsieh

¨ä¹ê§Ú·Q¤W¶ÇRAR©ÎZIPÀɰݦh¤@ÂI, ¦ý¨C¦¸ÂI¿ïÀɮ׫á, «ö"¤W¶Ç"Áä³£¨S¦³¤ÏÀ³, ¬O¬Æ»ò­ì¦]©O?

«Ü­W´o:dizzy:

TOP

¦^´_ 11# missbb


    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# c_c_lai

±z¦n, ²{¦b¤~¦³®É¶¡´ú¸Õ.  ¬O¥i¥H¥t¦s·sÀÉ®×, ¦ý­ì¦³µ{¦¡¥¼¯à¥H­ÈÅã¥Ü, ¥þ³¡¬O#VALUE ?

½Ð°Ý Dim f$, fd$, fs$, ...·í¤¤f ¬O«ü©w½XÁÙ¬O¥ô¦ó­^¤å¦r¤]¥i¥N´À?
¥t¦pSHEET :PASSWORD ¡@¤ºªº¢Ï¢°¢±¢²¢Þ¢Ï¢á¢á¢å¢Ý¢à¢Ò¡@¥Ñ²Ä¤G¢à¢Ý¢å°_¡A¡@µ{¦¡½X¦³¨S¦³§ïÅÜ¡H¡]§Ú¸Õ¹L±N²Ä¢°¢à¢Ý¢å¥[¤W¢Ö¢Ó¢Ï¢Ò¢×¢Ü¢Õ¡A¡@¦³ÂI°ÝÃD¡^

¦³³Ò¤j¤j¡C

¥t¥~§Ú¤£ª¾¦ó¸Ñ¡A¡@§Ú©l²×¤£¯à¤W¸üÀɮסA¡@§Úªºµe­±»P¤j¤jªºÅã¥Ü¦³¤£¦P¡C

TOP

¦^´_ 13# missbb
§Ú¥Î¹Ïªí»¡©ú¡A©p«K·|©úÁA¤F¡C
­º¥ý©p¥ý·s¼W¤@­Ó¤u§@ªí³æ¡A°²³]¦WºÙ¬° "¦h±i¤u§@ªí¥t¦s¬¡­¶Ã¯¤Î§ì¦í¹w³]±K½X"
©Î¥ô¤@¦WºÙ¡B©ÎªÌ¬° "Test"¡C
µM«á¦pªþ¥ó¹Ïªí¤@¼Ë¡A«Ø¥ß¤T­Ó¤u§@ªí³æ¡GPASSWORD¡BA123¡BB456¡C
±µµÛ¦A§â 9# ªºµ{¦¡½X½Æ»s©ó ThisWorkbook ¤º (¦p¹Ï¥Ü)¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-12-29 20:58 ½s¿è

¦^´_ 13# missbb


©p¥i¥H±q HSIEH¡BGBKEE ¨â¦ìª©¤jªºµ{¦¡½X¤¤ÁA¸Ñ
¥¦¬O¦p¦ó°õ¦æªº¡Aªp¥B§Ú¤]¦bµ{¦¡½X¥[¤W¤FµùÄÀ¡C

TOP

¦^´_ 13# missbb
§Ñ¤F»¡©ú¡A Ex() ©Ò²£¥Íªº A123¡BB456 ¨â­ÓÀɦW¤§ Extension Name ¬° .xlsx¡F
Ex2() ©Ò²£¥Íªº A123¡BB456 ¨â­ÓÀɦW¤§ Extension Name ¬° .xls¡C
¦¹¬O¬°¤F­nÅý©p¤F¸Ñ¦p¦ó²£¥Í .xlsx ©ÎªÌ .xls¡A¦b»yªk¤W¦p¦óÀ³¥Î¦Ó¤w¡C
°O±o¡B¥DÀɤ§ Extension Name À³Àx¦s¬° .xls (2003) ¡B©ÎÀx¦s¬° .xlsm (2007¡B2010)¡C

TOP

¦^´_ 16# c_c_lai

±z¦n, §Ú¥Î¤F¤U­zµ{§Ç³£¿W¥ßÀx¦sA123, B456¬O¨S¦³°ÝÃDªº.
¦ý¦]¬°§Ú¦bPASSWORD SHEET¤º¥[¤F¨Ç¸ê®Æ, ÅýA123, B456¥HVLOOKUP¨ú¸ê®Æ, ¤£ª¾¬O§_³o­ì¦], ·s¶}ªºA123ÀɮפÎB456Àɮפº, VLOOKUPªº¸ê®Æ³£Åܦ¨¤Fµ²#VALUE. ¦³¤èªk¸Ñ¨M¶Ü?

  Sub Ex2()            '  Hsieh & GBKEE
    Dim f$, fd$, fs$, A As Range, Wb As Workbook
   
    Set Wb = ThisWorkbook             '  ¬¡­¶Ã¯ :µ{¦¡½X©Ò¦bªº
    fd = Wb.Path & "\"                       '  ¦sÀɪº¸ô®|
    With Wb.Sheets("PASSWORD")
        For Each A In .Range(.[A2], .[A2].End(xlDown))
            '  A                                   : "A123" : Range/Range
            '  A                                   : "B456" : Range/Range
            '  Sheets("PASSWORD").[A1]             : "A123" : Variant/Object/Range
            '  Sheets("PASSWORD").[A1].End(xlDown) : "B456" : Variant/Object/Range
            f = CStr(A)
            fs = fd & f & ".xls"
            Wb.Sheets(f).Copy      '  «ü©w¬O­þ¤@­Ó¬¡­¶Ã¯ªº¤u§@ªí­n½Æ»s
            '  Sheets(f).Copy °õ¦æ¹L«á¡A½Æ»s¤F¤@¬¡­¶Ã¯¡A¤º¦³¤@¦W¬° "A123" ¤§¤u§@ªí³æ¡C
            '  ActiveWorkbook.Name           : "¬¡­¶Ã¯1" : String
            '  ActiveWorkbook.Sheets(1).Name : "A123"    : Variant/String
            '  Sheets(f).Copy °õ¦æ¹L«á¡A½Æ»s¤F¤@¬¡­¶Ã¯¡A¤º¦³¤@¦W¬° "B456" ¤§¤u§@ªí³æ¡C
            '  ActiveWorkbook.Name           : "¬¡­¶Ã¯2" : String
            '  ActiveWorkbook.Sheets(1).Name : "B456"    : Variant/String
            With ActiveWorkbook
                .ActiveSheet.UsedRange = .ActiveSheet.UsedRange.Value
                '  FileFormat:=xlExcel8   Excel 2003ª©¥» 56; xlExcel12  version 12, or 14, or 15 = Excel 2007, or 2010, or 2013.
                .SaveAs Filename:=fs, Password:=CStr(A.Offset(, 1)), WriteResPassword:="", FileFormat:=xlExcel8
                .Close 0       '  Ãö³¬ "D:\A123.xls" ¬¡­¶Ã¯¡B"D:\B456.xls" ¬¡­¶Ã¯¡C
            End With           '  ¥¿¦¡µ²§ô (Ãö³¬)¡C
        Next
    End With
End Sub

TOP

¦^´_ 17# missbb
©p±N§AªºÀÉ®×À£ÁY¦¨  .zip (WinZip.exe) ¡B ©Î .rar (WinRar.exe) ªºÀÉ®×
¨Ï¥Î IE ¤W¶Ç¡A§_«hÃø¥Hª¾±x©pªº°ÝÃD¡C

TOP

¦^´_ 18# c_c_lai
¦nªº, ©ú¥Õ¤W¯Z¸Õ¤W¶Ç, ¦]§Ú®a¸Ìªº¹q¸£°µ¤£¨ì.

³Â·Ð±z.

TOP

RE: ¦h±i¤u§@ªí¥t¦s¬¡­¶Ã¯¤Î§ì¦í¹w³]±K½X

¦^´_ 19# missbb

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD