Sub Write_Hour()
Dim ExcelApp As Object
Dim DayRpt As Object
Dim Sheet1 As Object
DNAME = GetTagVal("DNAME")
fName$ = "D:\º¸°í¼\°øÅë\»ç¿ë·®º¸°í¼\" & DNAME & ".xlsx"
Set ExcelApp = CreateObject("Excel.Application")
Set DayRpt = ExcelApp.Workbooks.Open (fName$)
Set Sheet1 = DayRpt.Worksheets(1)
Sheet1.Range("A1").Value = A1#
DayRpt.Save
DayRpt.Close
ExcelApp.Quit
Set ExcelApp = Empty
End Sub
¸¶Áö¸· Set ExcelApp = Empty ¿¡¼ °è¼Ó ¿¡·¯°¡ ³³´Ï´Ù ¤Ì.¤Ì