如何用VB6.0实现用对话框选择excel文件,并调用其中数据存成数组后进行拟合计算

急！！！VB如何调用excel内的数据，且每列数据赋值成数组再计算~

既然已经有代码，说下是怎么读取的。
读取 Excel 数据大致上有两种方法：1、引用Excel库然后创建相应的对象来直接访问 Excel 数据。
2、将Excel 当作数据源，用 ADO 来读取数据。这个对数据有格式要求

读写EXCEL表：
　　1、在工程中引用Microsoft Excel类型库：

　　从"工程"菜单中选择"引用"栏；选择Microsoft Excel 12.0 Object Library（EXCEL2007），然后选择"确定"。表示在工程中要引用EXCEL类型库。

　　2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

　　3、在程序中操作EXCEL表常用命令：

　　Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
Set xlBook = xlApp.Workbooks.Add("文件名") '创建新的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
for i=1 to 100
　for j=1 to 50
　　numArr(j,i)=xlSheet.Cells(j, i) '......................................
　next
next
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
张志晨

Dim a() As String, tem As String
Dim i As Integer
'运行前请"工程-引用" "Microsoft Excel 12.0 Object Library" 打钩
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim j As Integer
Private Sub Command1_Click()
'xlApp.NewWorkbook.Add ("E:\1.xls")
Set xlApp = CreateObject("Excel.Application") '创建EXCEL象
Set xlBook = xlApp.Workbooks.Open("E:\1.xls") '假设目标ExcelE盘
xlBook.Sheets("sheet1").Range("A1") = "间"
xlBook.Sheets("sheet1").Range("B1") = "直流电压"
xlBook.Sheets("sheet1").Range("C1") = "直流电流"
xlBook.Sheets("sheet1").Range("D1") = "侧电压"
xlBook.Sheets("sheet1").Range("E1") = "侧电流 "
Open "E:\1.txt" For Input As #1 '假设源数据文本E盘
k = 2
Do While Not EOF(1)
Line Input #1, tem

a() = Split(tem, " ")
For i = 0 To UBound(a)
a(i) = Trim(a(i))
If a(i) <> "" Then

xlBook.Sheets("sheet1").Range(Chr(Asc("A") + j) & k) = "'" & a(i)
j = j + 1
If j = 5 Then j = 0
End If
Next
k = k + 1
Loop
Close #1
xlBook.Save
xlBook.Close '关闭excel工作簿
Set xlApp = Nothing '释放excel程序
End Sub

---

如何用VB6.0实现用对话框选择excel文件,并调用其中数据存成数组后进行拟合计算视频