eigen

¦^´_ 1# jsc0518


    ¦Û¤v¿ý¤@¤U¥¨¶°¡A¾Þ§@¤@¤U±K½X«OÅ@¡A´N·|¦³Ãþ¦ü

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' AMD945 ¦b 2017/6/6 ¿ý»sªº¥¨¶°
   
5. '
   
6. 
   
7. '
   
8.     ActiveWorkbook.Password = "abcd"
   
9.     ActiveWorkbook.RemovePersonalInformation = True
   
10.     ChDir "C:\Users\AMD945\Desktop"
    
11.     ActiveWorkbook.SaveAs Filename:="C:\Users\AMD945\Desktop\1111.xls", _
    
12.         FileFormat:=xlNormal, Password:="abcd", WriteResPassword:="", _
    
13.         ReadOnlyRecommended:=False, CreateBackup:=False
    
14. End Sub

½Æ»s¥N½X

ªºcode

±µ¤U¨Ó´N«Ü®e©ö§ï¤F

±N³o¦æ§ï¦¨³o¼Ë´N¥i¥H
dst_book.SaveAs "d:\" & Cells(i, 2).Value & ".xls", _
        FileFormat:=xlNormal, Password:="abcd", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

'«O¦s¦bd:\¡A¤å¥ó¦W¬O³æ¤¸®æ(i,2)ªº¤º®e¡A°ÆÀɦW .xlsx