打开一个工作簿．worksheet对象

添加引用Excel对象.然后操作.很方便.

给我两行代码看看，我在书上看了个例子不行！

Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Dim ExcelWork As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet

Set ExcelApp = New Excel.Application
Set ExcelWork = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelWork.ActiveSheet
ExcelApp.Visible = True

Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
ExcelSheet.Cells(i, j) = i + j
Next
Next
End Sub

好，先谢谢．
我试试

用你的代码，调试的时候总是出现错误，而且Ｅｘｃｅｌ后打点后没有提示，是不是这个对象不能用么

因为你没有引用Excel对象..我在2楼已经说了要添加引用Excel对象..我不想再说第二次.

大哥，我是菜鸟刚学ＶＢ，谢你帮忙．
搞定了！！

工程\引用\Microsoft Excel......

row = 2

Do
If excel_sheet.Cells(row, 1) = "" Then Exit Do

rs.AddNew
For col = 1 To n
If col > fldCount Then
Exit For
End If

If excel_sheet.Cells(row, col) = Null Then
Exit For
ElseIf excel_sheet.Cells(row, col) = "" Then
Exit For
End If
new_value = Strings.Trim(excel_sheet.Cells(row, col))

rs.Fields(col - 1).Value = new_value
Label3.Caption = "正在导入: " & new_value
Next col
' If row >= ProgressBar1.Max Then
' ProgressBar1.Max = row + 10
' End If

ProgressBar1.Value = row
row = row + 1
rs.Update

Loop

' ProgressBar1.Max = row
' ProgressBar1.Value = ProgressBar1.Max
Label3.Caption = "导入完成！"
excel_app.ActiveWorkbook.Close
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
rs.Close
Set rs = Nothing
Screen.MousePointer = vbDefault
MsgBox "恭喜您，成功导入数据" & CStr(row - 2) & "行！"
ProgressBar1.Visible = False
Label3.Visible = False
Text1.Text = ""
Command1.Enabled = True
Command3.Enabled = True
End If