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

[µo°Ý] ¦p¦ó¥ÎBAT¶}±Ò xlsmÀÉ

ª½±µ¨Ï¥Îvbs§Y¥i, ¥¦´N¬OWindowsª©ªºBat.
Thanks ~


==============================================
set sh=WScript.CreateObject("WScript.Shell")  

Dim objExcel                                                                                    '«Å§iExcelÀ³¥Îµ{¦¡ÅܼÆ
Dim objWorkbook                                                                                 '«Å§i¤u§@磌¥óÅܼÆ
Dim strSFLPath
Dim strSFFile

strSFLPath= "D:\"                                                                               'Excel¸ô®|©w¸q                                                        
strSFFile ="ABC.xlsm"                                                                           'ExcelÀɦW

Set objExcel = CreateObject("Excel.Application")
objExcel.visible = True                                                                        '°õ¦æApp®É, ¬O§_»Ý­nÅã¥Ü¸ÓApp.
Set objWorkbook = objExcel.Workbooks.Open (strSFLPath & strSFFile )                            '¶}±ÒExcelÀÉ®×.

objWorkbook.Application.Run "DailyMailSending"                                                 '°õ¦æ¥¨¶°

objWorkbook.Saved = True                                                                       '¤£­nÀx¦s¤u§@ï
objWorkbook.Close                                                                              'Ãö³¬¤u§@ï
Set objWorkbook  = Nothing                                                                     'ÄÀ©ñ¤u§@磌¥ó
objExcel.Quit                                                                                  'Ãö³¬Excel
Set objExcel= Nothing                                                                          'ÄÀ©ñExcelª«¥ó

objFile.Close

WScript.Quit
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD