Originally posted by moon345 at 2011-04-27 09:47:48:
我想通过vb把某一个excel表格的某两列的数据读取出来，存放在数组中，对读取的数据绘制曲线，然后再把数据存于另外一个excel，如何操作啊，毕设用到，我是菜鸟，不会，有高手给个例子或者教教我啊！！！

dim   n   as   long
Dim   oConn   As   New   ADODB.Connection
Dim   oRS   As   New   ADODB.Recordset
oConn.Open   "Provider=Microsoft.Jet.OLEDB.4.0; "   &   _
                      "Data   Source=C:\Book1.xls; "   &   _
                      "Extended   Properties= " "Excel   8.0; " " "
oRS.Open   "Select   *   from   [Sheet1$] ",   oConn,   adOpenStatic
n   =   1
do   until   oRS.EOF
msgbox   "第 "   &   n   &   "   条记录，第一列： "   &   oRS.fields(1)   &   _
        "；第二列： "   &   oRS.fields(2)
n   =   n   +   1
oRS.Movenext
Loop
oRS.Close
oConn.Close

1、定义Excel操作变量

Dim objExcelFile As Excel.Application

Dim objWorkBook As Excel.Workbook

Dim objImportSheet As Excel.Worksheet

2、打开Excel进程，并打开目标Excel文件
Set objExcelFile = New Excel.Application
objExcelFile.DisplayAlerts = False
Set objWorkBook = objExcelFile.Workbooks.Open(strFileName)

Set objImportSheet = objWorkBook.Sheets(1)

3、获取Excel有效区域的行和列数
intLastColNum = objImportSheet.UsedRange.Columns.Count

intLastRowNum = objImportSheet.UsedRange.Rows.Count

4、逐行读取Excel中数据

由于前两行为Header部分，所以需要从第三行读取

如果第1到第10个单元格的值均为空或空格，则视为空行

For intCountI = 3 To intLastRowNum

''Check if Empty Data Row

blnNullRow = True

For intI = 1 To 10

If Trim$(objImportSheet.Cells(intCountI, intI).Value) <> "" Then

blnNullRow = False

End If

Next intI

若不是空行，则进行读取动作，否则继续向后遍历Excel中的行

If blnNullRow = False Then

获取单元格中的数据，做有效性Check，并将合法数据创建为实体存入对象数组中

objImportSheet.Cells(intCountI, 1).Value

……

End If
Next intCountI

5、退出Excel进程，并关闭Excel相关操作对象
objExcelFile.Quit
Set objWorkBook = Nothing
Set objImportSheet = Nothing

Set objExcelFile = Nothing