作者:乔山办公网日期:
返回目录:excel表格制作
1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内; 2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行; 3、代码如下:e799bee5baa6e997aee7ad94e58685e5aeb9335 Dim ExApp As New Excel.Application Dim Exb As Excel.Workbook Dim Exsh As Excel.Worksheet Dim arr(6, 6) As Integer '定义一... 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 全部
在来VB中:
引用源Excel类型百库
Sub vv()
Dim xls As Excel.Application
With xls.Workbooks.Open("H:\2011数据度\2011SSC.xls")
a = .Sheets("Sheet1").[a1]
End With
xls.ActiveWorkbook.Close False
Set xls = Nothing
MsgBox a
End Sub
Set xlApp = CreateObject("Excel.Application") '创建来excel应用程序,打开excel2003
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已自经存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("表名") '设置活动工百作表
for n=1 to 行数
for m=1 to 例数
msgbox xlSheet.Cells.Item(n, m)
'注意:我只是告诉你一个循环把你度要知的内容都读出来,你要拿我的程序去运道行会弹死你的
next
next