实验室信息系统vb+ACCESS

Dim oleExcel As Object
dim s As String
Private Sub Command3_Click() '存xls
Dim i, j As Integer
Set oleExcel = CreateObject("Excel.Application")
oleExcel.Visible = False 'falseEXCEL窗体隐藏
oleExcel.WindowState = 1
' 打开文件

oleExcel.Workbooks.Open FileName:=App.Path & "\readonly.xls" 'readonly为数据库名称,将文件放在同一文件夹中

' 从xls文件中读内容
s = oleExcel.Worksheets("sheet1").Cells(i, j) 'i是行，j是列，sheet1是表名称，s储存数据

oleExcel.Worksheets("sheet1").Cells(i, j)= s
'写数据
oleExcel.ActiveWorkbook.Close
oleExcel.Quit

End Sub