我想用VB调用EXCEL里面的数据

(EXCEL里面有6行6列数据),并把这些数据存入到一个数组中,请问如何编程,具体步骤是怎么样的?如果程序能运行的话,再追加50分,本人说话算数!!... (EXCEL里面有6行6列数据),并把这些数据存入到一个数组中,请问如何编程,具体步骤是怎么样的? 如果程序能运行的话,再追加50分,本人说话算数!! 展开
 我来答
檀桖鲆0gLc97
推荐于2017-11-29 · TA获得超过3190个赞
知道大有可为答主
回答量:952
采纳率:0%
帮助的人:1702万
展开全部
1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内;
2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行;
3、代码如下:
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet
Dim arr(6, 6) As Integer '定义一个二维数组,数据类型为整数
ExApp.Workbooks.Open "c:\book1.xls" '打开EXEL文件,路径和文件名自己根据实际修改
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets("Sheet1")
For i = 1 To 6 '假设是读取A1:F6的6X6区域数据
For j = 1 To 6
arr(i, j) = Exsh.Cells(i, j)
Next j
Next i
'把自己需要对数组数据进一步处理的部分加进去...
ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
刀成朝1
2009-04-22 · TA获得超过1334个赞
知道大有可为答主
回答量:763
采纳率:0%
帮助的人:694万
展开全部
首先引用Microsoft Excel Object Library,然后:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim OpenExecl As Long
Dim ExcelPath As String

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path + "\abc.xls") '打开存在的execl文件
xlApp.Visible = true '设置EXCEL对象可见(或不可见)
'Set xlBook = xlApp.Workbooks.Add() '打开新建立的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表

ExcelPath = xlApp.Path 'execl.exe的路径

然后,xlSheet.Cells(1, 1)就是指代左上角的单元格了.可以对它读写了.xlSheet.Cells(2, 1) ....可以指定相应的单元格.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式