Dim coldold Set coldold=HmiRuntime.SmartTags("数据块_1_A3") coldold.Value = ObjExcelApp.Worksheets ("sheet1").Cells(1, 1).value
时间: 2024-06-07 09:07:53 浏览: 10
这段代码的作用是将 Excel 表格中第 1 行第 1 列的数据赋值给 WinCC OA(HMI)中名为“数据块_1_A3”的智能标记(SmartTag)。具体来说,这段代码使用了 WinCC OA 中的 HmiRuntime 对象和 SmartTags 方法,通过传入智能标记的名称来获取该智能标记对象,并将 Excel 表格中的数据赋值给该智能标记对象的 Value 属性。最后,将赋值后的智能标记对象保存到了 coldold 变量中。
相关问题
ObjExcelApp.Worksheets("sheet1").Cells(i,j).VAlue=HmiRuntime.SmartTags("数据块_1_A2")
这段代码是使用 VBA 语言编写的,它的作用是将 HmiRuntime.SmartTags("数据块_1_A2") 中的值赋给 Excel 表格中的第 i 行 j 列的单元格。其中,HmiRuntime.SmartTags("数据块_1_A2") 是从一个名为“数据块_1_A2”的 SmartTag 中获取数据。SmartTag 是用于在 VBScript 和 VBA 中访问 HMI(人机界面)运行时值的对象。
ObjExcelApp.ActiveWorkbook.Save
这是一个 VBA 语言中的命令,用于保存当前活动的工作簿(即当前打开的 Excel 文件)。它会将工作簿保存到当前的文件路径,如果是新建的文件则会弹出保存对话框让用户指定文件路径和文件名。如果你想将工作簿保存到指定路径,可以使用类似下面的代码:
```
ObjExcelApp.ActiveWorkbook.SaveAs "C:\MyFolder\MyFile.xlsx"
```
其中,`C:\MyFolder\MyFile.xlsx` 是你想要保存的文件路径和文件名。注意,如果指定的路径不存在,代码会报错,所以需要确保路径是存在的。