½Ð°Ý¬°¦ó·|¥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¿ý
- 2024-12-13
|
½Ð°Ý¬°¦ó·|¥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¬Ù²¤================== |
|
|
|
|
|
|