vb6.0编写程序读取excel文件(在电脑没有装excel软件的情况下)

用ADO打开Excel的代码（关键在于连接字符串）：
Dim cnXL As New ADODB.Connection
Dim rsXL As New ADODB.Recordset
cnXL.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & varExcelFile & ";Extended Properties =Excel 8.0;"
cnXL.Open
If cnXL.State = 0 Then Exit Function
'打开Excel 的一个sheet
rsXL.Open "[报表数据导入$]", cnXL, adOpenStatic, adLockOptimistic, adCmdTable
If rsXL.EOF Then Exit Function
'读取单元格C1
a=rsXL(2)
'读取单元格D3
rsXL.MoveNext
rsXL.MoveNext
a=rsXL(3)
用上述方式打开Excel对表的数据有一定要求。第一行将作为字段名称而被忽略。每列的数据具有单一的数据类型。

ado只能连接access数据库，excel好像要有别的控件

Dim EXcel1 as New excel.appicetion
set EXcel1.Visible = False
.....
插入：
Insert (行数，列数），“内容”