VB中调用EXCEL

发布时间：2019-07-29 17:41:01

你好，

vb中调用 tempsheet.Range(Cells(29, 1), Cells(3 + i, 20)).Borders.LineStyle = 1

第一次调用没有问题，第二次调用就报错，关了EXCEL,再次调用，报对象CELLS的方法‘_global'失败

补充：我主要是为了单元格有实线，3+i 是行结果比如是70，就是从29，1 到70，20的区域单元格为实线

推荐回答

1、打开VB-》在form1上增加一个mand1按钮，双击mand1按钮，把以下代码放入窗体内；

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

以上问题属网友观点，不代表本站立场，仅供参考！