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
画面如下