Á~¸ê©î¤ÀÀɮ׫á¡A¦p¦ó¥[¤W¶}±Ò±K½X

jsc0518

¦U¦ì¥ý¶i¤j®a¦n¡A
§Ú¦bºô¸ô¤W¦³§ä¨ì¤@­Ó±NÁ~¸ê©î¤À¦¨¦U­ÓÀÉ®×
§Ú¬O·Q°Ý¬O§_¥i¥H¨Ì¾ÚÄæ¦ì(J)¡A§@¬°³]©w¨C­Ó©î¤À«áªºEXCELÀɮסA¤@¶}±Ò®É´N­n¿é¤J¥¦¥»¨­ªº±K½X
¬O§_¥i¥H½Ð¦U¦ì¥ý¶i¨ó§U¬Ý¤@¤U
Thanks!

¤U¸ü (33.82 KB)

2017-6-6 12:44

Excel_VBA-©î¤ÀÁ~¸ê.rar (13.36 KB)

¤U¸ü¦¸¼Æ: 8

2017-6-6 12:45

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

jsc0518

¦^´_ 2# eigen

·PÁ±zªº¦^ÂÐ
§Ú§âµ{¦¡½X§ï¦¨

'dst_book.SaveAs "d:\" & Cells(i, 2).Value & ".xlsx" '«O¦s¦bd:\¡A¤å¥ó¦W¬O³æ¤¸®æ(i,2)ªº¤º®e¡A°ÆÀɦW .xlsx
dst_book.SaveAs "d:\" & Cells(i, 2).Value & ".xlsx", _
        FileFormat:=xlNormal, Password:="abcd", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

dst_book.Close 'Á`ªí¤¤¨C¦æ²Ä2­Ó³æ¤¸®æ¼Æ¾Ú¬°¡u©m¦W¡v¡A¥H³o­Ó¤Hªº¡u©m¦W¡v¬°¾É¥X¤å¥ó¦W¡A¤ñ¦p¡u±i¤T.xlsx¡v

¦ý¥X²{¿ù»~°T®§ --> 400

jsc0518

¦^´_ 2# eigen

¥t¥~¡A§Ú¬O·Q»¡¦A¤À©îexcel¥t¦s·sªºÀÉ®×®É
excel VBA ¬O¥i¥HÀ°§Ú¶¶«K¥[¤W"JÄæ"¤ºªº±K½X
¦p : excel ¦s¦¨"®õÀA.xlsx"¡A·í§Ú¤@¶}±Ò"®õÀA.xlsx"®É¡A¥L·|¥s§Ú¿é¤J±K½X"123456789"





   

¤U¸ü (29.8 KB)

2017-6-6 19:50

macro0029

¦^´_ 1# jsc0518
¥i¥H°Ñ¦Ò¬Ý¬Ý¬O¤£¬O§A»Ý­nªº
http://download.ithome.com.tw/article/index/id/2187

Kubi

¦^´_ 4# jsc0518
½Ð°Ñ¦Ò¡C
Excel_VBA-©î¤ÀÁ~¸ê-1.rar (21.46 KB)

¤U¸ü¦¸¼Æ: 17

2017-6-22 14:29

jsc0518

¦^´_ 5# macro0029

Hi ·PÁ±zªº¦^´_§Y´£¨Ñªººô§}¡A§Ú¦b¸Õ¸Õ¬Ý

jsc0518

¦^´_ 6# Kubi

Hi §Aªº»yªk½T©w¥i¥H©î¤ÀÀɮפΥ[±K
¯uªº¤Ó´Î¤F¡AÁÂÁ§A!

jsc0518

¦^´_ 6# Kubi


Hi ·Q¸ò±z½Ð±Ð¡A¬O­þ¤@¬q»yªk¬O¥i¥H¥[¤W±K½Xªº?
·P®¦!

Kubi

¦^´_ 9# jsc0518
1.¥ý§â J Ä檺±K½X¦s¤J pw ÅܼƤ¤¡C
pw = Sheets("Sheet1").Cells(r, 10).Value

2.±N§@¥Î¤¤ªº¬¡­¶Ã¯¦sÀÉ¡A¦P®É§âpw±K½X©ñ¤J¨ì«á­±ªºPassword°Ñ¼Æ¤¤¡A¥H«á¶}±Ò¦¹¬¡­¶Ã¯¥²¶·­n¿é¤J±K½X¤~¯à¶}±Ò¡C
ActiveWorkbook.SaveAs mypath & myfilename & ".xlsx", Password:=pw