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

¦p¦ó±N·s¶}ªºÀÉ®×¥t¦s·sÀÉ

¦p¦ó±N·s¶}ªºÀÉ®×¥t¦s·sÀÉ

½Ð°ÝÀ³¦p¦ó§ì¨ì­è·s¼W (©|¥¼¦sÀÉ)ªºWorkbookªº¦WºÙ¡A¨Ó«ü©w¥¦°µ°Ê§@
¡@¡@©Î¬O¦³¨ä¥L§óºë·Çªº¥t¦s·sÀɧ@ªk
=============
§Q¥Î¥¨¶°±o¨ìcode¨Ã²¤Æ«á±o¨ìµ²ªG¦p¤U¡G

Sub NewFile()
'
' ¶}·sÀÉ®× & then ±N¨ä¦sÀÉ
'
    Workbooks.Add
    Windows("Book1").Activate
    ActiveWorkbook.SaveAs Filename:="C:\Desktop\LALA.xlsx"

End Sub

¥Ø«e¹J¨ìªº°ÝÃD¬O¡G
¡@¡@­Y¨Ï¥ÎªÌ¶}µÛExcel & «e­±¤w¸g°µ¹L·s¼WÀɮתº°Ê§@¡A
·s¼WªºWorkbook´N·|Åܦ¨"Book2"
¨º´N¨S¿ìªk¥Î³oºØ¤èªk«ü©w­n·s¦sªºÀɮ׬°­è­è·s¼Wªº¨º­Ó
¦Ò¼{¨ì¤]³\¨Ï¥ÎªÌ¦P®É¤]¦b¨Ï¥Î¨ä¥LExcelÀɮסA§Ú¤]¤£´±¥ÎWorkbooks(2)³oºØ¥Îªk

³Â·Ð¦U¦ì¤F

¥[¤Wset ´N¥i¥H¤F
set wbnew = Workbooks.Add
wbnew.SaveAs Filename:="C:\Desktop\LALA.xlsx"
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 2# kimbal

    ·PÁ±z!

¡@¨º·Q¦A½Ð±Ð
¡@½Ð°Ý·Q¹ï¦¹Workbook½s¿è«á¦A°µ¦sÀÉ
¡@¨Ò¦p¡G
1. ¶}·sÀÉ®×
2. ¦bSheet1, Cells(1, 1)¤¤¼g¤J"test"
3. SaveAs Filename:="D:\LALA.xlsx"

¡@½Ð°Ý¤S¸Ó¦p¦ó¾Þ§@¡H

¡@©Î¬O¡A«Øij¥ý¦sÀÉ«á¦A¶}©l°Ê§@
¡@§¹¦¨½s¿è¦A§@Àx¦s¬°¨Î¡H

¡@¡@ÁÂÁ¡I

TOP

¦^´_ 3# thps51134
  1. Option Explicit
  2. Sub Ex()
  3.     With Workbooks.Add
  4.         .Sheets(1).Cells(1, 1) = "test"
  5.         .SaveAs "d:\test"
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD