关于VB和EXCEL的问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 04:46:07
想实现下面的简单操作但不知道如何办
1、 建一个EXCEL文件，文件里有一组数据（比如说是100个）
2、在VB里建一个变量A，想把EXCEL里的数据逐一的输入到A中（我想可以用循环语句，往A里赋值，但不知道如何写代码），每次A的值都参与一些类似比较大小的程序，然后把符合条件的数据再写入另外一个EXCEL文件。
VB里的比较程序和循环我会，但是如何让VB读取EXCEL数据，并且逐一赋值给A，同时如何把一组数据写入一个新的EXCEL文件我不会，麻烦哪位老师知道的给我说一下，能把代码帮我写一下更好。谢谢！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
还想问一下，哪位老师有这方面的教材介绍一下好吗

'先在工程中引用Microsoft Excel 11.0 Object Library

Public Sub CreateExcel()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open("d:\1.xls") '临时创建Excel时使用：Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = False

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
之后是你要取得的数
比如：a=objSheet.Cells(1, 1) '取第一行第一列的单元格中的数赋给a
处理玩之后，释放对象：
’objWorkBook.Save
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing

将取得的数据 处理后，保存到一个新的Excel的方法如下：
Private Sub Command2_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWo