{{item.C_Name}}

问题

写值到excel

精

奖

官

2188 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

Sub X6309X94AE4X0000T_OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim g_excelfilename
Dim excel

g_excelfilename ="E:\Excel.xls"
Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Open g_excelfilename
objexcelapp.ActiveWorkBook.worksheets("sheet1").cells(4,3).value.Value=HMIRuntime.Tags("temprature").Read
excel.ActiveWorkbook.Save
objexcelapp.workbooks.close
objexcelapp.quit
Set objexcelapp=Nothing
End Sub
用脚本调试器调试时发现在点击按钮后：
能打开excel表格,但执行到objexcelapp时出现，变量未定义：'objexcelapp' 请问是什么原因？
后来我有在程序头定义了objexcelapp 出现缺少该对象，哪里除了问题，往指教

问题补充：

扫码小程序：

一键登录查看全部问答

0度学长

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

Set excel = CreateObject("Excel.Application")
这个语句中的“EXCEL”变量才是你定义的EXCEL对象
而你定义了EXCEL对象后，后面却使用了OBJEXCELAPP这个对象名，和上面已经定义的那个变量名根本没有关系，因此出错的这句应该改为EXCEL.ACTIVEWORKBOOK.worksheets("sheet1").cells
另外一个问题，就是1楼提到的，ceLL.value.value怎么写了两个VALUE.

Dim g_excelfilename as string
Dim WinccExcel As Excel.Application
Set WinccExcel=CreateObject("Excel.Application")

g_excelfilename ="E:\Excel.xls"

winccexcel.Visible = True

winccexcel.Workbooks.Open g_excelfilename

winccexcel.ActiveWorkBook.worksheets("sheet1").cells(4,3).value=HMIRuntime.Tags("temprature").Read

winccexcel.ActiveWorkbook.Save

winccexcel.workbooks.close

winccexcel.quit

Set winccexcel=Nothing