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

½Ð°ÝÀɦW¦sÀÉ°ÝÃD

½Ð°ÝÀɦW¦sÀÉ°ÝÃD

¥»©«³Ì«á¥Ñ gglan9 ©ó 2011-8-12 12:24 ½s¿è

½Ð°ÝÀɦW¦sÀÉ°ÝÃD
¦p­n¥H¤u§@ªí¤¤ªº¸ê®Æ½Æ»s¨ì·sªº¤u§@Á¡«á
­n¥H­ì¤u§@ªí¤¤ªº¬Y­ÓÀx¦s®æ¸Ìªº¤å¦r¬°ÀɮצWºÙ¨Ã¦s¦¨°ÆÀɦW¬°prnÀÉ

¨Ò:sheet1  Àx¦s®æ¬°A1
¥Ø¿ý:c\
ÀɦW¬°A1
°ÆÀɦW¬°prn

ÁÂÁÂ

¤é«e¾Ç¤F¥Î¤U­±ªº¤èªk, ­ì¨Ó¦³§ó²³æªº»yªk, ªøª¾ÃѤF~~~

'Set MyBook = ThisWorkbook
'    Application.Workbooks.Add
'    Set NewBook = ActiveWorkbook
'    MyBook.Sheets(Ex).Copy Before:=NewBook.Sheets(1)
'    Application.DisplayAlerts = False
'    NewBook.SaveAs Filename:=fname3
'    NewBook.Close SaveChanges:=False

TOP

ÁÂÁ¨â¦ì ¸Ñ¨M¤F°ÝÃD

TOP

¦pªG¤º®e¬O¤å¦r®æ¦¡
ActiveWorkbook.SaveAs Filename:="C:\" & [a1] & ".prn", FileFormat:=xlText
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Sub yy()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\" & [a1] & ".prn"
ActiveWorkbook.Close True
End Sub

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD