ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD