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

[µo°Ý] ¤£¥´¶}excelÀɮסA·j´M²Å¦X¸ê®Æªºªí®æ¤º®e¡A¥þ³¡¦C¦L¥X¨Ó

[µo°Ý] ¤£¥´¶}excelÀɮסA·j´M²Å¦X¸ê®Æªºªí®æ¤º®e¡A¥þ³¡¦C¦L¥X¨Ó

¥»©«³Ì«á¥Ñ 0939875756 ©ó 2010-12-3 14:16 ½s¿è

½Ð°Ýexcel¦³¿ìªk°µ¡A¤£¥´¶}excelÀɮסA¨Ï¥Îvbaªº¤è¦¡¥h·j´M¡A²Å¦Xªº¤º®e¡A¨Ã¦C¦L¥X¨Ó¶Ü??
¨Ò¡G§Ú²{¦b¦³7­ÓÀɮסA¥i¥H¨Ì·Ó¤U¹Ï©Ò®Ø°_¨Óªº¸ê®Æ¡A¥h·j´M²Å¦X¸ê®Æªºªí®æ¡AµM«á¦C¦L¥X¨Ó¶Ü???


§Ñ¤F¤W¶Ç§ÚªºÀÉ®×
10¤ë.rar (52.19 KB)
­n³o»ò°µ¬O¦]¬°¡K¤§«e¦Lµ¹«È¤áªº³ø§i³£§Ë¤£¨£¤F(¤§«e¦³¹J¹L¸É¦L¶W¹L¤W¦Ê¥÷)¡A©Ò¥H¤~·Q½Ð°Ý¦U¦ì¤j¤j¡Avba¦³³o­Ó¥\¯à¶Ü???

¥»©«³Ì«á¥Ñ ¨F©Ôªo ©ó 2010-12-3 14:30 ½s¿è

§A¥i¥H°µ¨ìÅý¨Ï¥ÎªÌµLªk¹îı¦³Àɮ׳Q¶}±Ò
¦ý¬O¤£¶}±ÒÀÉ®×´N¬OµLªkŪ¨úÀɮפºªº¸ê®Æ

¬¡­¶Ã¯ªº window ª«¥óªº visible Äݩʳ] false ´N¤£·|Åã¥Ü
application ªº ScreenUpdating ³] false ¥i¥Hªý¤îÅã¥Ü¤lµøµ¡ªº¤Á´«°Ê§@
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

­Y¯à¸Ñ¨M³o­Ó°ÝÃD¡A¤U¤@¨B¨Ó¸Ñ¨M¤£¥´¶}«OÀI½c®³¸Ì­±ªº¿ú¤F¡C

TOP

¦^´_ 2# ¨F©Ôªo


    §Ú³o»ò§@¬O¬°¤F±`¦³»Ý­n¸É¦L«È¤áªº³ø§i,¦³®É­Ô¤T¤­¤Q¥÷¤]«Ü±`¨£.....

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-3 16:44 ½s¿è

¦^´_ 4# 0939875756
­×§ï§A´£°Ý http://forum.twbts.com/thread-2036-1-3.html
Hsiehª©¥Dµ¹ªº
  1. Sub Ex()
  2.     Dim fd$, fs$
  3.     fd = "D:\10¤ë\" '§ó§ï¦¨§Aªº10¤ë¸ê®Æ§¨¥Ø¿ý
  4.     fs = Dir(fd & "*.xls")
  5.     Application.ScreenUpdating = False
  6.     Do Until fs = ""
  7.         With Workbooks.Open(fd & fs)
  8.             .Sheets("¼Ò»s").PrintOut
  9.             .Close 0
  10.         End With
  11.         fs = Dir
  12.     Loop
  13.     Application.ScreenUpdating = True
  14. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD