¬°¤°»òµ{¦¡¶]¨ì¤@¥b³£·|°±¦í¤£Ä~Äò¤F?
- ©«¤l
- 49
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 154
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-16
- ³Ì«áµn¿ý
- 2024-8-5
|
¬°¤°»òµ{¦¡¶]¨ì¤@¥b³£·|°±¦í¤£Ä~Äò¤F?
³Ìªñ§Q¥Î¤@Óexcel¬¡¶Ã¯¥h¾Þ§@¨ä¥LÓ¬¡¶Ã¯
¬yµ{¬O³o¼Ë:
¶}±Ò¬¡¶Ã¯(¥Dnªºµ{¦¡) --> ÂÇ¥ÑVBA¥h¶}±Ò¥t¥~¤@Ó¬¡¶Ã¯(¦¸nªº) --> ¦b¦¸nªº¬¡¶Ã¯¤W¶i¦æ¤u§@ --> ¤u§@µ²§ô«á¦A¸õ¦^¥Dnªº¬¡¶Ã¯,¨Ã±N¦¸nªº¬¡¶Ã¯¦sÀÉÃö³¬
µ{¦¡¦³®ÉÔ·|¶]¨ì¤@¥b´N°±¦í¤F,±q¥D¬¡¶Ã¯¸õ¨ì¦¸¬¡¶Ã¯´N¬ðµM°±¦í¤£Ä~Äò¤u§@¤F,±q·s°õ¦æ«á¤S¦^´_¥¿±`,ÁöµM¤£¬O±`µo¥Í,¦ý·Q½Ð°Ý¤j®a³o¬O¤°»òì¦]©O?
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-9-9
|
¦^´_ 1# sasho
¦Cµ{¦¡½Xµ¹¤j¹Ù¬ã¨s¬Ý¬Ý.. |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 154
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-16
- ³Ì«áµn¿ý
- 2024-8-5
|
¥»©«³Ì«á¥Ñ sasho ©ó 2010-7-31 00:43 ½s¿è
Workbooks.Open Filename:="C:\DATA\" & date & ".xls"
Workbooks(code & ".xls").Activate
¦b¥Dnªº¬¡¶Ã¯(book1.xls)°õ¦æ¤W¤èªºµ{¦¡½X
¤W±¨â¦æ¬O§Ú±q쥻ªº¬¡¶Ã¯(book1.xls)¸õ¨ì±Mªù¦bÀx¦s¸ê®Æªº¬¡¶Ã¯(code,xls)©Ò¤Uªº«ü¥O
«á±±µÄòªº¬O¤@¨Ç³B²zªºµ{§Ç
µ{¦¡±`±`·|¶]¨ì³oÃä´N°±¦í¤£·|©¹¤U¶]¤F,,¥i¥H½Ð°Ý¬O¤°»òì¦]³y¦¨ªº¶Ü?
·PÁÂ |
|
|
|
|
|
|
- ©«¤l
- 287
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 357
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- OFFIC 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-6-4
- ³Ì«áµn¿ý
- 2015-8-19
|
¥»©«³Ì«á¥Ñ basarasy ©ó 2010-7-31 08:46 ½s¿è
¦^´_ 3# sasho
¸Õ¸Õ¦bcode.xls ªºA1¤J =SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")
´N·|¦³code.xls ªºLINK
eg. C:\code.xls
Workbooks.Open Filename:="C:\code.xls"
MyCodeName= ActiveWorkbook.Name
Workbooks(MyCodeName).Activate |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¦^´_ 3# sasho
Workbooks.Open Filename:="C:\DATA\" & date & ".xls"
Workbooks(code & ".xls").Activate
ÀɦW¬O ¤é´Á+".xls" ÁÙ¬O code +".xls"
¦ôp§Anªº¬O- Workbooks.Open Filename:="C:\DATA\" & code & ".xls"
- Workbooks(code & ".xls").Activate
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 154
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-16
- ³Ì«áµn¿ý
- 2024-8-5
|
¤£¦n·N«ä ¥´¿ù¤F
À³¸Ó¬O:
Workbooks.Open Filename:="C:\DATA\" & code & ".xls"
Workbooks(code & ".xls").Activate
¨ä¤¤code¬OÅܼÆ,¾ãÓµ{¦¡°õ¦æ¨Ã¤£·|¦³°ÝÃD,¦]¬°¾ãÓ¶]¤U¨Ó¨Ã¨S¦³¿ù»~µo¥Í
¥u¬O¦³®ÉÔµ{¦¡°õ¦æ«á§Ú´N§âexcel¥á¦b®ÇÃäÅý¥L¦Û¤v¶],
µM«á¥h²áMSN
¦ý¦³¥i¯à²á¤@²á´Nµo²{µ{¦¡°±¦í¤F¨S¦³Ä~Äò¶]
¦pªG¬Oµ{¦¡°õ¦æ«á´N¨S¦³°µ¨ä¥L¨Æ±¡ªº¸Ü¨º´N¤£·|µo¥Í¥H¤Wªº°ÝÃD
©Ò¥H·Q»¡,¬O¤£¬O§Q¥ÎVBA°µ¦hÓ¬¡¶Ã¯±±¨îªº®ÉÔ,·|¦³³o¼Ëªº¤pbug²£¥Í? |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¦^´_ 6# sasho
³oÓ¦³«Ü¦h¥i¯à©Ê... §A½T©w¬O³o¥y¥X°ÝÃD¶Ü? ¥i§_µo¤@¤U§¹¾ã¥N½X? |
|
|
|
|
|
|
- ©«¤l
- 49
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 154
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-16
- ³Ì«áµn¿ý
- 2024-8-5
|
·PÁ¦U¦ì«e½úªº¸Ñµª..
¤£¹L§Ú·Q¤j®a¥i¯à»~·|§Úªº·N«ä¤F,§Ú¦A»¡©ú¤@¤U¦n¤F
§Ú¥Ø«e§Q¥Î¤@Óexcel·í§@¥Dµ{¦¡¥h±±¨î¨ä¥L(700¦hÓ)excel¤u§@ï
±N©Ò¦³ªºµ{¦¡½X³q³q¼g¦b¥Dµ{¦¡·í¤¤,¨ä¥Lªº¬¡¶Ã¯´N¥u¬O·í§@¸ê®Æ®w§@Àx¦s¦Ó¤w
³oÓµ{¦¡¶]°_¨Óªº®ÉÔ,¦pªG¨S¦³¥h¨Ï¥ÎMSNªº¸Ü,¬O¨S¦³°ÝÃDªº
°ÝÃD¬O,·í§Ú§âµ{¦¡¶}±Ò«á,¥á¦b®ÇÃä°õ¦æ¦Óµøµ¡«h©Ô¨ìMSN²á¤Ñªº¸Ü
¨ºµ{¦¡´N·|¶]¨ì¤@¥b´N°±¦í(°±¦í¦Ó¤w,¨Ã¨S¦³¥X²{¿ù»~°T®§)
¦Ó°±¦íªº¦a¤è´N¬O¦bÃö³¬¤W¤@Ó·í§@¸ê®Æ®wªº¬¡¶Ã¯,¶}±Ò·sªº¸ê®Æ®w¬¡¶Ã¯¤§«á
¶}±Ò¤§«á´N°±¦í¤F,¥»¨ÓÀ³¸Ó·|¦³«áÄòªº¾Þ§@,¦ý¦b³oºØ±¡ªp®É,µ{¦¡´N¤£·|Ä~Äò¶]¤F
©Ò¥H§Ú·Q,À³¸Ó¤£¬O¦Û¤v¼gªºµ{¦¡½X¦³¤°»ò°ÝÃD(¦]¬°¦pªG¤£¨Ï¥ÎMSN¥i¥H«Ü¶¶§Q¶]§¹)
¥i¥H½Ð±Ð¤j®a¬O¤°»òì¦]¶Ü?
ÁÂÁÂ
P.s Á`¦@¦³±Nªñ700MªºÀÉ®×,©Ò¥H¤£¤è«K¤W¶Ç,sorry |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
´N¦phsieh¤j©Ò»¡,
§A¥i¥H¥ý¸Õ¸Õ¥Î°»¿ù¼Ò¦¡¨Ó¶],
µo²{µ{¦¡°±¤F, ¥i¥H«öctrl+break§âµ{¦¡°±¤@¤U, ¬Ý¬Ý°±¦b¨º¸Ì.
§A¤]¥i¥H¥uµo¤@¤U¥N½X¤W¨Ó¬Ý¬Ýªº~ |
|
|
|
|
|
|