iFIX-VBA读写Excel文件

iFIX VBA读写Excel文件

具体实现代码如下:

Private Sub CommandButton1_Click()

Dim App, Book, Sheet

Set App = CreateObject(“excel.application”) ‘创建Excel进程

Set Book = App.Workbooks.Open(“C:\Users\xudajun\Desktop\cs\Report.xlsx”) ‘指定要打开的文件路径

Set Sheet = Book.Sheets(“Sheet1”) ‘设置活动的工作表

Sheet.Cells(1, 1) = Fix32.Fix.MAINA.F_CV ‘将fix实时数据库内的变量值写到Excel的A1单元格内

CommandButton1.Caption = Sheet.Cells(1, 1) ‘将A1单元格内的数值写到按钮上

Book.Close (True) ‘关闭工作簿

App.Quit ‘结束Excel进程

Set App = Nothing ‘释放对象

End Sub

画面如下

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注