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

[µo°Ý] EXCEL 2007 VBA ¦bEXCEL 2010 °õ¦æ¥X°ÝÃD

[µo°Ý] EXCEL 2007 VBA ¦bEXCEL 2010 °õ¦æ¥X°ÝÃD

½Ð°Ý¦U¦ì¤j¤j

³ÌªñÀ°­Ó«È¤á§Ë¤F¤@­Ó¥¨¶°µ{¦¡

§Ú¥»¨­§@·~¬O¥Î2007ª©EXCEL¼¶¼g¡AÀx¦s¦¨2003¥i°õ¦æªºª©¥»

¦ý¨ì«È¤áºÝ¡Aµo²{¬O2010ª©ªºEXCEL

°ò¥»¤W§Úı±o»yªkÀ³¸Ó¨S¨Ï¥Î¨ì2010¤£¯à¨Ï¥Î¨ìªº³¡¤À(¦]¬°³£ÆZ³æ¯Âªº)

¥D­n¼g¨ìªº¥\¯à
1. ¶}±Ò­n³B²zªº¨Ó·½ÀÉ®×
2. §R°£¨Ó·½Àɤ¤¤£¥²­nªºÀx¦s®æ
3. §ïÅܨӷ½ÀÉ¹Ïªíªº®æ¦¡
(­ì¥»¨Ó·½ÀÉ´N¦³Chart¤F¡A¥u¬O§Ú§R¤F¤£¥²­nªºÀx¦s®æ¡A©Ò¥H¹Ïªí·|¦³ÂIÁY´î¡F¥B¶·­×§ï³¡¤À®æ¦¡¡A¹³¬O½u¼e¡B¼Ð°Oªº¼Ë¦¡µ¥µ¥)
4. ³Ì«á¸õ¥X³B²z§¹¦¨ªº°T®§µøµ¡


«È¤áºÝ¶}±Ò¨Ó·½ÀÉ«á¡A¥u¸õ¥X³Ì«á³B²z§¹ªº°T®§µøµ¡¡C

«e¥b¬qªº§R°£³¡¤À¤Î¹Ïªí³¡¤À³£¨S°õ¦æ¨ì@@

¤]¨S¦³¿ù»~°T®§


«á¨Ó§Ú¹ê»Ú¥Î¤F2010ª©ªºEXCEL°õ¦æ¡A§¹¥þ¸ò¥Î2007°õ¦æ¤@¼Ë¡Aµ²ªG¥¿±`

¤£ª¾¬O¤£¬O«È¤á¤½¥q¨º³]©w¤F¤°»ò???  


·Q½Ð°Ý¦U¦ì¤j¤j¡A³o¤èªk¦³¨S¦³¤°»ò³B²z¤è¦¡? ÁÙ¬O¥i¯à»Ý­n°µ¤°»ò³]©w???

P.S. «È¤á¬O¥Î­^¤åª©ªº2010


·Ð½ÐÀ°¦£  ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¤p§Ìªþ­ÓÀÉÅý¤j®a¸Õ¸Õ

³Â·ÐÀ°§Ú§ì­Ó°ÝÃD@@

µ{¦¡¬O0424¡A¥t¤@­ÓÀɮ׬O»Ý­n¶×¤JªºÀÉ®×

§Ú¥uªþ¤F²Ä¤@­Ó«ö¶s­n¶}±ÒªºÀÉ®×

²Ä¤G±i¹Ï¬O¶]§¹«áÀ³¸Ó¥X²{ªºµe­±

TKS~
forum.rar (156.42 KB)
p1.jpg
2014-4-24 20:32
p2.jpg
2014-4-24 20:33
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 3# GBKEE

ª©¤j §A»¡ªº°»¿ù³B²z

§Ú«á¨Ó¦³·Q¨ì  «¢«¢

©Ò¥H³£§â¥LÃö±¼

ª½±µÅý¿ù»~Åã¥Ü¥X¨Ó

¥H¤U¬O¸g«È¤á¦A¦¸´ú¸Õªºµ²ªG¡A³Â·ÐÀ°§Ú¬Ý¬Ý¡A°ÝÃDÂI³£¤@¼Ë@@
¦n¹³CHARTªº³B²z¦³°ÝÃD
image-20140425-074953.png
2014-4-25 07:54
image-20140425-074957.png
2014-4-25 07:54
image-20140425-075000.png
2014-4-25 07:54



¤£¹L¶}Àɮרº­Ó¦n¹³¨S¦³°ÝÃD ¡A¦]¬°§ÚÀÉ®×ÁÙ¬O¥i¥H¶}±Ò°õ¦æ­C¡A¥u¬O¹Ïªí¸òÀx¦s®æ³B²z¦³°ÝÃD

¦Ó¥B§Ú¤@ª½¤£¸Ñªº¬O¡A§Ú§ä¤F¤T­Ó¤@¼Ë¥Î2010ªºªB¤ÍÀ°§Ú´ú¸Õ
³£¤@¼Ë¥¿½TOK


¤£ª¾¹D¬O¤£¬O­^¤åª©ªº¦³®t²§ ÁÙ¬O»Ý­n°µ¤°»ò³]©w@@


·Ð½ÐÀ°§Ú´ú¸Õ¬Ý¬Ý  ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 5# GBKEE


ÁÂÁª©¤j

Âà´«¦¨³o¼Ëªº¼gªk§Ú¦Û¤v´ú¸Õ¤]OK

¤£¹L´«¨ì¹ï¤è¨ºÃäÁÙ¬O¤@¼Ë¤£¦æ@@

¥B¦pªGWith Workbooksªº¤è¦¡Åܦ¨¦³°ÆÀɦW´N¤£¦æ¤F= =

¥i¬O§Ú¦Û¤v¹q¸£´ú¸Õ¦³°ÆÀɦW ¨S°ÆÀɦW³£¥i¥H

¤]¤Ó©_©Ç¤F
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¥»©«³Ì«á¥Ñ li_hsien ©ó 2014-4-25 14:43 ½s¿è

¦^´_ 7# GBKEE

§ÚÀô¹Ò¬O2007ªº¡A¦³µL°ÆÀɦW³£¥i¥H

¤£¹L§Úµ¹«È¤á(2010­^¤åª©)¡A¦³¥[°ÆÀɦW¦n¹³·|¿ù»~


²{¦b¯u¤£ª¾¬°¤°»ò«È¤á¨ºÃä2010­^¤åª©ªº¬°¤°»ò¤£¯à°õ¦æ@@

©ú©ú§Ú¥Î¦Û®a§O¥x¹q¸£(¤]¬O2010)´N¥i¥H¶]¥X¹Ïªí

µ¹¨ä¥LªB¤Í´ú¸Õ¤]³£¥i¥H

¤£ª¾¹D¬O­þ¬qµ{¦¡©Î¬O³]©w¥X¤F°ÝÃD@@
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 9# GBKEE


ª©¤j ¨SÃö«Y

ÁÂÁ§A!!!

¥­®É¤w¸gÀ°¦£¸Ñ¨M¤F¤£¤Ö°ÝÃD

§Ú¤]¾Ç¨ì¤F¤£¤ÖªF¦è!!!

TKS~
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 9# GBKEE


ª©¤j§ÚÁÙ¦³¤@°Ý·Q½Ð±Ð¡A¤£ª¾¯à§_À°¦£
  1. Sub w_report_Click()

  2.     '-----¶}±ÒWªí³æ-----
  3.    
  4.     Dim program_file As String, filename As String, w_file As String
  5.    
  6.     program_file = Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
  7.     filename = Application.GetOpenFilename
  8.    
  9. '    On Error Resume Next
  10. '    On Error GoTo HandleErr

  11.     Workbooks.Open filename

  12.     w_file = Dir(filename)
  13.     Debug.Print w_file

  14.     A w_file
  15.     A_chart w_file
  16.     F w_file
  17.    
  18.     Workbooks(program_file).Worksheets(1).w_file = ""
  19.     MsgBox "DONE !!!"
  20.    
  21. '    Exit Sub
  22. '
  23. 'HandleErr:
  24. '        MsgBox "½Ð¶}±ÒWªí³æ¡C"
  25.         
  26. End Sub
½Æ»s¥N½X
«È¤á°õ¦æ®Éµo²{¥X¿ù¦b³o¦æ
w_file = Dir(filename)
¥D­n¬O¥Î¨Ó§ì¶}±ÒªºÀɮצWºÙ

«á¨Ó§Ú¥Î­ÓÀx¦s®æ©ñÀɦWÅý¥L´ú¸Õ
EX:
w_file = range("A1")   ->Àx¦s®æA1¨Ó©ñÀɦW
³o¼Ë´N¥i¥H¤F

¤£ª¾¬O¤£¬ODir¤£¯à¨Ï¥Î

½Ð°Ý¦³¤°»ò¥t¥~¥i¥H§ì¨ìÀɦWªº¤èªk¶Ü???


®@~¦Ó¥B³Ì«á½T»{
«È¤á¥ÎEXCEL2010­^¤åª©ªº¡A¤@¼Ë­n¹³ª©¤j»¡ªº¥[¤W°ÆÀɦW¤~¦æ

·PÁÂ!!!!
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 12# GBKEE

ÁÂÁª©¤j

µ²ªG«È¤á¨ºÃäÁÙ¬O¤£¦æ

¦n¹³¬ODir³£¤£ºÞ¥Î@@

µ²ªG§Ú·Q¨ì¤ñ¸ûª½Æ[ªº¤èªk

Workbooks.Open filename
w_file = ActiveWorkbook.Name

Åý¨Ó·½Àɶ}°_¨Óªº®É­Ô
¦A±µ¤@¦¸ActiveWorkbook.Name

ÁöµM¦n¹³²Â¤FÂI

¦ý¬O¥i¦æ  «¢«¢
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD