Dim objExcelApp,i Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Workbooks.Open "C:\Logs\dataok" i=1 While i<15 objExcelApp.Cells(i, 3).Value = SmartTags("val 1") i=i+1 Wend objExcelApp.ActiveWorkbook.Save objExcelApp.Workbooks.Close objExcelApp.Quit Set objExcelApp = Nothing
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)