½Ð°Ý¬°¦ó·|¥X²{¥H¤U°T®§©O?
- ©«¤l
- 60
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- NT
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-9
- ³Ì«áµn¿ý
- 2022-1-10
|
½Ð°Ý¬°¦ó·|¥X²{¥H¤U°T®§©O?
¥Ø«e¤p§Ì¦b®Ñ¼gªì¶¥VBAµ{¦¡®É,¥Î¤F¤@¨Ç¿ý»sªº¥\¯à.
¼g¤F¤@Ó±NEXCEL¤ºªº¸ê®Æ, ¥t¦s¦¨¤å¦rÀɪº¥\¯à.
¦ý¬O·í§Ú±NVBAµ{¦¡¥[±K®É,«o¨q¥Xªþ¥ó¤§°T®§.
¦ý¬O¸Ñ±K®É«o¤S¥¿±` , ·Q°Ý¤@¤U¯uªº¬O¥[±K³y¦¨¶Ü?
Y¬Oªº¸Ü , ¦³¿ìªk¸Ñ¨M¶Ü?
=============¥H¤W¬Ù²¤============
Output
End Sub
___________¥H¤W¬°¥t¤@Ó¥¨¶°___________
Sub output()
OUTPUT_Folder2 = Sheet1.Range("F5")
PN2 = Sheet1.Range("F3")
Sheets("CO GERBER").Select
ActiveWorkbook.SaveAs Filename:=OUTPUT_Folder2 & PN2 & "-CO GERBER.prn", FileFormat _
:=xlTextPrinter, CreateBackup:=False
===============¥H¤U¬Ù²¤================== |
|
|
|
|
|
|
- ©«¤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
|
¬Ý¬Ý©ñÀɮתº¤å¥ó§¨¬O§_¦s¦b ©Î¿ù¦ì¸m |
|
|
|
|
|
|
- ©«¤l
- 102
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-16
- ³Ì«áµn¿ý
- 2020-9-2
|
¦^´_ 1# alex_wu
¤]¦³¥i¯à¬O¤w¸g¦³¦P¦W¤å¥ó¦s¦b
¦¹®É¤]·|µo¥Í¿ù»~~
¦pªG·QnÅý¦P¦W¤å¥ó¦s¦b®Éª½±µÂл\
¥i¥H¨Ï¥Î
on error resume next
¥t¥~¦pªG¤£·Qn¥L¤@ª½°Ý¬O§_Âл\
´N¦A¥[¤W application.displayalerts = false
¥H¤W§Æ±æ¹ï§A¦³À°§U! |
|
|
|
|
|
|