怎么将EXCEL导入VB中并且处理里面的数据啊？
有高手会吗？就是把电子表格里的数据进行统计 --------------------编程问答-------------------- 你引用了EXCEL.Application后所有的操作都和vba里差不多
所以 建议你先在excel里记录下宏
分析一下宏代码 然后移植到vb中 --------------------编程问答-------------------- --------------------编程问答-------------------- 顶，EXCEL.Application --------------------编程问答-------------------- Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, db As ADODB.Connection)
On Error Resume Next
db.Execute ("<操作字符串>")
End Sub
Dbname.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & <excel路径及文件名> & ";Extended Properties=Excel 8.0;Persist Security Info=False"
Dbname.Open
Call ExportExcelSheetToAccess("<sheet表名称>", <excel路径>, Dbname)
--------------------编程问答-------------------- 首先在引用里面添加excel objiect library,然后参考下面的例子，
Private Sub Command1_Click()
Dim j As Long
Set xlApp = CreateObject("Excel.Application") ' 建立对象为Excel.Sheet
'Set xlbook = xlApp.Workbooks().Open(App.Path & "\产品设定\" & N_I & Text11.Text & ".xls")
Set xlbook = xlApp.Workbooks().Open(App.Path & "\产品设定\" & Text2.Text & ".xls")
Set xlSheet1 = xlbook.Worksheets("产品设定1")
xlApp.Visible = False 'Excel文件是不是显示
With xlSheet1
.Cells(2, 5).Value = Text8.Text '标准电压
.Cells(2, 6).Value = Text14.Text '测量起点电压
.Cells(2, 7).Value = Text5.Text '测量终点电压
.Cells(2, 8).Value = Text6.Text '测量起始角度
.Cells(2, 9).Value = Text7.Text '测量终点角度
.Cells(2, 11).Value = Text1.Text '偏差比
.Cells(2, 12).Value = Text16.Text '角度补偿
' .Cells(2, 13).Value = Text17.Text '测量员
End With
For j = 2 To 360 'Val(frmcpsd.Text5.Text)
Text19.Text = Format(Abs(Val(Text14.Text) - Val(xlApp.Cells(j, 4))), "0.000")
If Text18.Text > Text19.Text Then Text18.Text = Text19.Text: Text3.Text = Val(xlApp.Cells(j, 3))
Text21.Text = Format(Abs(Val(Text5.Text) - Val(xlApp.Cells(j, 4))), "0.000")
If Text20.Text > Text21.Text Then Text20.Text = Text21.Text: Text4.Text = Val(xlApp.Cells(j, 3))
Next j
xlApp.Visible = False '这样写，Excel的操作就不显示了。
xlbook.Save
xlbook.Close '必须文件关闭，不然Excel.exe的进程会一直驻留内存。
Set xlsheet = Nothing
Set xlbook = Nothing '清空
Set xlApp = Nothing
End Sub
补充：VB , 基础类
