乔山办公网我们一直在努力
您的位置：乔山办公网 > excel表格制作 > <em>vb</em>如何调用<em>excel函数</em>-Exce

<em>vb</em>如何调用<em>excel函数</em>-Exce

作者：乔山办公网日期：

返回目录：excel表格制作


在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
第e799bee5baa6e79fa5e98193e59b9ee7ad94339一层：Application对象，即Excel本身；
第二层：workbooks对象集，指Excel的工作簿文件；

第三层：worksheets对象集，表示的是Excel的一个工作表；

第四层：Cells和Range对象，指向Excel工作表中的单元格。

新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层：

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表

我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。

Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件
Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
''~~~当前工作簿的第一页,这里也可以换成“表名”

'下面就是简单的在一些单元格内写入数字
For i = 7 To 15
For j = 1 To 10

xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列
Next j
Next i

With xlsheet '设置边框为是实线
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
End With

'引用当前工作簿的第二页
Set xlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008 '在第二页的第7行第2列写入2008
xlsheet.SaveAs App.Path & "\test.xls" '按指定文件名存盘
'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close

Set xlapp = Nothing '释放xlApp对象

End Sub

这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：

1．创建Excel对象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．设置第3个工作表为激活工作表
eole.Worksheets(〃sheet3〃).Activate
4．打开指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5．显示Excel窗口
eole.visible=.t.
6．更改Excel标题栏
eole.Caption=〃VB应用程序调用Microsoft Excel〃
7．给单元格赋值
eole.cells(1,4).value=XM(XM为数据库字段名)
8．设置指定列的宽度(单位：字符个数)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．设置指定行的高度(单位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(设定行高为1厘米，1磅=0.035厘米)
10．在第18行之前插入分页符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11．在第4列之前删除分页符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定边框线宽度(Borders参数如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13．设置四个边框线条的类型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
14．设置页眉
eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃
15．设置页脚
eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃
16．设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．设置顶边距为2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．设置底边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．设置左边距为2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．设置右边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．设置页面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．设置页面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．设置页面纸张大小(1－窄行8

  1. 单元格地址，在VBA公式中，应该用：range("f1:f400")例：=sum(f1:f400)写成 =application.sum(range("f1:f400"))   worksheetfunction是可以省略的。

    初学时不省最好，因为有些函数在VBA中是不可用的，不省它，就会提示你有哪些函数可用。

    offset是表示区域的。

    在VBA写公式的时候，可以用resize来代替另：以上功能，建议不要用工作表公式来写。

  2. 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。

  3. 因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。 

    第一层：Application对象，即Excel本身； 

    第二层：workbooks对象集e69da5e6ba90e799bee5baa6e997aee7ad94332，指Excel的工作簿文件 

    第三层：worksheets对象集，表示的是Excel的一个工作表； 

    第四层：Cells和Range对象，指向Excel工作表中的单元格。 

    新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层： 

Dim xlapp As Excel.Application 'Excel对象 

Dim xlbook As Excel.Workbook '工作簿 

Dim xlsheet As Excel.Worksheet '工作表 

  4.   我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。 

Private Sub Excel_Out_Click() 

 Dim i, j As Integer 

 Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 

  'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件 

 Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件 

 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 

 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 

 xlapp.Visible = True '设置EXCEL对象可见（或不可见） 

 Set xlsheet = xlbook.Worksheets(1) '设置活动工作表'' 

                              ''~~~当前工作簿的第一页,这里也可以换成“表名” 

 

'下面就是简单的在一些单元格内写入数字 

 For i = 7 To 15  

   For j = 1 To 10  

     xlsheet.Cells(i, j) = j   '当前工作簿第一页的第I行第J列 

   Next j 

 Next i 

 With xlsheet      '设置边框为是实线 

    .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous 

 End With  

 '引用当前工作簿的第二页 

 Set xlsheet = xlapp.Application.Worksheets(2) 

     xlsheet.Cells(7, 2) = 2008   '在第二页的第7行第2列写入2008 

 xlsheet.SaveAs App.Path & "\test.xls"           '按指定文件名存盘 

 'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿 

 xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close 

 Set xlapp = Nothing '释放xlApp对象 

End Sub 

 5，   这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的： 

      1．创建Excel对象   

    eole=CREATEOBJECT(′Excel.application′)   

    2．添加新工作簿   

    eole.Workbooks.add   

    3．设置第3个工作表为激活工作表   

    eole.Worksheets(〃sheet3〃).Activate   

    4．打开指定工作簿   

    eole.Workbooks.Open(〃c:\temp\ll.xls〃)   

    5．显示Excel窗口   

    eole.visible=.t.   

    6．更改Excel标题栏   

    eole.Caption=〃VB应用程序调用Microsoft   Excel〃   

    7．给单元格赋值   

    eole.cells(1,4).value=XM(XM为数据库字段名)   

    8．设置指定列的宽度(单位：字符个数)   

    eole.ActiveSheet.Columns(1).ColumnWidth=5   

    9．设置指定行的高度(单位：磅)   

    eole.ActiveSheet.Rows(1).RowHeight=1/0.035   

    (设定行高为1厘米，1磅=0.035厘米)   

    10．在第18行之前插入分页符   

    eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1   

    11．在第4列之前删除分页符   

    eole.ActiveSheet.Columns(4).PageBreak=0   

    12．指定边框线宽度(Borders参数如下)   

    ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3   

    13．设置四个边框线条的类型   

    eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1   

    (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)   

    14．设置页眉   

    eole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃   

    15．设置页脚   

    eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃   

    16．设置页眉到顶端边距为2厘米   

    eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035   

    17．设置页脚到底边距为3厘米   

    eole.ActiveSheet.PageSetup.FooterMargin=3/0.035   

    18．设置顶边距为2厘米   

    eole.ActiveSheet.PageSetup.TopMargin=2/0.035   

    19．设置底边距为4厘米   

    eole.ActiveSheet.PageSetup.BottomMargin=4/0.035   

    20．设置左边距为2厘米   

    veole.ActiveSheet.PageSetup.LeftMargin=2/0.035   

    21．设置右边距为2厘米   

    eole.ActiveSheet.PageSetup.RightMargin=2/0.035   

    22．设置页面水平居中   

    eole.ActiveSheet.PageSetup.CenterHorizontally=.t.   

    23．设置页面垂直居中   

    eole.ActiveSheet.PageSetup.CenterVertically=.t.   

    24．设置页面纸张大小(1－窄行8?5?11   39－宽行14?11)   

    eole.ActiveSheet.PageSetup.PaperSize=1   

    25．打印单元格网线   

    eole.ActiveSheet.PageSetup.PrintGridlines=.t.   

    26．拷贝整个工作表   

    eole.ActiveSheet.UsedRange.Copy   

    27．拷贝指定区域   

    eole.ActiveSheet.Range(〃A1:E2〃).Copy   

    28．粘贴   

    eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial   

    29．在第2行之前插入一行   

    eole.ActiveSheet.Rows(2).Insert   

    30．在第2列之前插入一列   

    eole.ActiveSheet.Columns(2).Insert   

    31．设置字体   

    eole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃   

    32．设置字体大小   

    eole.ActiveSheet.Cells(1,1).Font.Size=25   

    33．设置字体为斜体   

    eole.ActiveSheet.Cells(1,1).Font.Italic=.t.   

    34．设置整列字体为粗体   

    eole.ActiveSheet.Columns(1).Font.Bold=.t.   

    35．清除单元格公式   

    eole.ActiveSheet.Cells(1,4).ClearContents   

    36．打印预览工作表   

    eole.ActiveSheet.PrintPreview   

    37．打印输出工作表   

    eole.ActiveSheet.PrintOut   

    38．工作表另存为   

    eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)   

    39．放弃存盘   

    eole.ActiveWorkbook.saved=.t.   

    40．关闭工作簿   

    eole.Workbooks.close   

    41．退出Excel   

    eole.quit


'工程需百要引用度库问Microsoft Excel 14.0 Object Library，或其他版答本内也可以。
Sub ExcelFunction()
    Dim xlApp As New Excel.Application
    '使用Excel求和函数容
    MsgBox xlApp.WorksheetFunction.Sum(1, 2)
    xlApp.Quit
    Set xlApp = Nothing
End Sub



'用 Application.WorksheetFunction.****，
'举个例子如下
'需要引用Microsoft Excel 12.0 Object Library，版本可能不同

Private Sub Command2_Click() 
Dim arr() As String
Dim b As Integer
Dim xlsApp As Excel.Application
Dim xlsWorkbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet 
Set xlsApp = CreateObject("Excel.Application")
Set xlsWorkbook = xlsApp.Workbooks.Open("D:\test.xlsx") '按路径打开对应e69da5e887aae79fa5e98193330excel
Set xlssheet = xlsWorkbook.Worksheets(1) 
b = Application.WorksheetFunction.CountA(Range("A:A")) '调用excel现有函数countA
Print "A列共有行数：" & b

Set xlssheet = Nothing 
Set xlsWorkbook = Nothing 
Set xlsApp = Nothing 
End Sub
本文标签：Excel函数 vb(1)vb int函数(1)

相关阅读

  • <em>vb</em>如何调用<em>excel函数</em>-Exce

  • 乔山办公网excel表格制作
  • 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的
关键词不能为空
极力推荐

热门文章

聚合标签

极速抠图软件 提交时间 office2010 32 密钥 凤凰古城 第一题 类似office有鬼的电影 四库全书荟要 office2003序列号 跌倒护理单 1.广告主头像 excel 输入 自动 掐架 技术分 丽人行 计算机二级office难吗 wps office流氓 资春兰 宣太后 全部替换 皮卡丘 mac喇叭破音修复方法 excel图表的纵坐标 电脑基础office win10下激活office2013 ETABS 浮水印 office2010 水印 学习者 office条件求和 excel把数字拆分 拜师礼 IBD word如何插入批注 吃虫草 management office中文意思 经销商 开门红 三维图形 少侠 excel快速选择工作表 万事胜意 word如何插入公式 excel怎么改成数字格式 word突然打不出字 单肩包 校园招聘 员工执行力培训PPT模板 飞凡卡 excel2016从入门到精通pdf 陈文奎 word表格文字上下居中不了 office2010 文字识别 迅捷PDF转换器绿色版 孵小鸡

ppt怎么做_excel表格制作_office365_word文档_365办公网