能打开excel 但不能写入数据…… 求高手给分析一下
Dim objExcelApp
Dim tagjuli
Set tagjuli=HMIRuntime.Tags("juli")
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
objExcelApp.Workbooks.Open"D:\fj.xls"
objExcelApp.Worksheets(sheetname).Activate
tagjuli.Read
objExcelApp.Worksheets(sheetname).cells(4,2).value=tagjuli