搬家第25天-citectv7.4CitectVBA读取已经存在的Excel文件数据
假设c盘根目录下有一个text.xlsx文件,希望得到R1C1的数值,那么在cicode编辑器写以下CitectVBA代码:
Sub getdatafromexcel()
Dim xlApp As Application
Dim objwb As Object
Dim objst As Object
Dim r1c1 As string
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
Set objwb = xlapp.WorkBooks.Open("c:\test.xlsx")
Set objst=objwb.sheets("sheet1")
objwb.Worksheets("Sheet1").Activate
r1c1=objst.cells(1,1).value
msgbox r1c1
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
Set objwb=nothing
Set objst=nothing
End Sub
在画面的按钮的鼠标点击事件中加入civba call getdatafromexcel()
保存编译运行,点击按钮就能够读取已存在的excel文件内容,并且把数据显示出来。