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

[µo°Ý] ¦p¦ó±NVBAªº¸ô®|§ï«ü©w¨ìEXCEL¤W¡A¦n¤è«KÅý¨Ï¥ÎªÌ§ó§ï¡C

[µo°Ý] ¦p¦ó±NVBAªº¸ô®|§ï«ü©w¨ìEXCEL¤W¡A¦n¤è«KÅý¨Ï¥ÎªÌ§ó§ï¡C

½Ð°Ý§Ú¼g¤@­Ó¦Û°Ê¶}±Ò¡A¦AÃö³¬«ü©wexcelÀɪºVBA(¦p¤U)¡A¦p¦óÅýVBA¤ºªº¸ô®|§ï¼g¦bEXCEL¤W (Åýuser¦Û¤v¯àÀH·N§ó§ï¸ô®| ¥Î)©O???
¥t¥~·Q°Ý¤@¤U¡A¹³³o¼Ë¦Û°Ê¶}±Ò¦AÃö³¬¡A¦ý§Ú«ü©wªºexcel¶}±Ò¥i¯à­n¶]­Ó30-60¬í¡A³o¼Ë¥LÃö³¬ªº¸Ü¡A¬O·|µ¥excel§¹¥þ¶}±Ò«á¦AÃö¡AÁÙ¬O¶}±Ò°¨¤W´N¤S±j¨îÃö¤F©O(§Ú©Èµ{§Ç¨S¶]§¹´N³Q±j¨îÃö¤F)

¥H¤W¦³³Ò¤j®v¨D¸Ñ¡AÁÂÁÂ!!

Private Sub Workbook_Open()
Workbooks.Open Filename:="D:\Users\AAA\Desktop\BBB.xls", UpdateLinks:=1
Workbooks("BBB.xls").Close SaveChanges:=False
Application.Quit
End Sub

¦^´_ 1# RCRG
¥H§A¥Ø«eµ{¦¡½X¬O¶}±ÒÀɮ׫á¦A¤£Àx¦s­×§ïÃö³¬ÀɮסA¨Ã¥BÃö³¬EXCEL
¨º»ò¶}Àɮɶ¡¤@ÂIÃö«Y¤]¨S¦³°Ú
­nÅý¨Ï¥ÎªÌ§ó§ï¶}±ÒÀɮ׸ô®|¤èªk¤£¥u¤@­Ó
³Ì²³æªº¥Î¶}±ÒÂÂÀɹï¸Ü¤è¶ô
  1. Sub ex()
  2. fs = Application.GetOpenFilename
  3. With Workbooks.Open(fs)
  4. '¦b¦¹°Ï¬q¼g¤J§A·Q¹ï³Q¶}±ÒÀÉ®×°õ¦æªº°Ê§@
  5. .Close 1 'Àx¦sÅܧó«áÃö³¬ÀÉ®×
  6. End With
  7. Application.Quit 'Â÷¶}EXCEL
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  RCRG
¥H§A¥Ø«eµ{¦¡½X¬O¶}±ÒÀɮ׫á¦A¤£Àx¦s­×§ïÃö³¬ÀɮסA¨Ã¥BÃö³¬EXCEL
¨º»ò¶}Àɮɶ¡¤@ÂIÃö«Y¤]¨S ...
Hsieh µoªí©ó 2019-1-30 16:22



§Ú¶}±ÒÁöµM¨S¦³¦sÀÉ¡A¦ý¬O·|¶]¤@¬q¥¨¶°¡A¶]§¹«áÃö³¬¡A§Ú¬O©ÈÃö¤Ó§Ö·|¼vÅT¥¨¶°¡A¦ý§Ú«á¨ÓÆ[¹î¦ü¥G¤£·|¡A¦ü¥G·|µ¥¨t²Î¶]§¹«á¤~·|Ãö³¬¡F

§Ú·Q§â¸ô®|¼g¦bvexcelÄæ¦ì¤º¡A¨Ã¥ÎVBA§ì¸ô®|¡A³o¼Ë¨Ï¥ÎªÌ¤~¤£·|¨C¦¸¶}Àɳ£­n¿ï¤@¦¸Äæ¦ì¡A¤£ª¾¯à§_À°¦£§ï¦¨¦p¦¹©O? ÁÂÁÂ

TOP

¦^´_  RCRG
¥H§A¥Ø«eµ{¦¡½X¬O¶}±ÒÀɮ׫á¦A¤£Àx¦s­×§ïÃö³¬ÀɮסA¨Ã¥BÃö³¬EXCEL
¨º»ò¶}Àɮɶ¡¤@ÂIÃö«Y¤]¨S ...
Hsieh µoªí©ó 2019-1-30 16:22


§ó¥¿¿ù¦r³s½g...XD
    §Ú¶}±ÒÁöµM¨S¦³¦sÀÉ¡A¦ý¬O·|¶]¤@¬q¥¨¶°¡A¶]§¹«áÃö³¬¡A§Ú¬O©ÈÃö¤Ó§Ö·|¼vÅT¥¨¶°¡A¦ý§Ú«á¨ÓÆ[¹î¦ü¥G¤£·|¡A¦ü¥G·|µ¥¨t²Î¶]§¹«á¤~·|Ãö³¬¡F

§Ú·Q§â¸ô®|¼g¦bexcelÄæ¦ì¤º¡A¨Ã¥ÎVBA§ì¸ô®|¡A³o¼Ë¨Ï¥ÎªÌ¤~¤£·|¨C¦¸¶}Àɳ£­n¿ï¤@¦¸¸ô®|¡A¤£ª¾¯à§_À°¦£§ï¦¨¦p¦¹©O? ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD