VB调用excel表格
- 格式:doc
- 大小:32.50 KB
- 文档页数:4
excel,用vba调用别的表格篇一:在Excel中,怎样直接引用另一个表格的数据?在Excel中怎样直接引用另一个表格的数据?在Excel中经需要一个表格直接引用另一个表格的数据,进行复制粘贴没有对应的生成功能(也就是若是复制的数据,原数据变化了,复制的数据不会变化),若采用以下的步骤操作可以解决这个烦恼:1.同时打开两个表格,在其中一个表格(表1如:《年级前100名》)的某空白单元输入“=” ;2.在另一个表格(表2如:《八年级成绩册、分析表配套模板设计》)点一下所需要引用的数据;3.然后回车(必须按回车,这一点很重要!);4.返回表1就可以看到刚才输入“=”的单元格的引用的表2数据;5.再次单击该单元格,就可以在公式栏看到“=八年级成绩册、分析表配套模板设计!D4” ;或“=八年级成绩册、分析表配套模板设计!$D$4”;6.若公式里的序号中生成插入了“$’(在同一工作薄中电子表格之间的相互引用则序号不会生成“$”,在不同工作薄中电子表格的相互引用则有“$”),则将“$”符号删除掉;7.将鼠标指向该单元格的右下角,呈黑“+”字型,双击或拖移“复制”出其它数据.值得注意的是:①.可以向下、向左或整体拖移出其它引用表(如上列中表2)相对应的数据;...②.引用表2的数据(表2的相应的数据)发生变化,则表1的数据也要发生相应的变化;③.若关闭或删除或恢复表2,则打开表1会有“更新”还是“不更新”的提示. “更新”就是要随现有的数据的变化而变化,不更新”就是保留原引用的数据;④.引用时要注意是否有合并和拆分单元格的情况.引用只能引用数据,不能引用文本格式,“输入”数据的单元格是是什么文本格式,引入的数据就是什么文本格式.⑤.在同一表格中要“引用”也是和上面的操作是一样的.即单元格输入“=”→选定要引用的单元格→回车.若采用复制只能“复制” 数值或含公式的数值,数值没有对应的生成功能,而公式计算范围的序列号会平行上下左右等距离的位移.郑宗平2015/5/17篇二:VBA代码中引用Excel工作表中单元格区域的方式小结在VBA代码中引用Excel工作表中单元格区域的方式小结问题一:在VBA代码中,如何引用当前工作表中的单个单元格(例如引用单元格C3)?回答:可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。
用VB操作Excel的方法VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。
一、 VB读写EXCEL表:VB本身提自动化功能可以读写EXCEL表,其方法如下:1、在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。
表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象:Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令:Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见(或不可见)Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。
]Visual Basic调用Excel之技巧Visual Basic(以下简称VB)是一套可视化、面向对象、事件驱动方式的结构化程序设计语言,已经成为许多程序设计者甚至专业程序员用来开发WINDOWS应用程序的首选开发工具。
但用过VB的程序设计人员都知道,要想用VB输出复杂的表格来,是十分困难的。
能不能用VB调用EXCEL呢?Active 技术标准为我们解决了这个问题。
最近笔者为单位开发“土工试验数据整理”的某个模块时,涉及到复杂数据表格的输出问题,经过笔者的摸索,用VB调用EXCEL,取得了很好的效果。
本文从编程实践的角度对使用VB控制EXCEL的技术作简要说明。
1 EXCEL的对象模型如果一个应用程序支持自动化技术,那么其它的应用就可以通过其暴露的对象,对它进行控制,控制程序称为客户机,而被控制的一方就称为服务器,被控制的对象就是Active对象。
VB正是通过EXCEL显露的各级对象来控制EXCEL工作的。
每个对象都有各自的方法和属性,通过方法可以实现对对象的控制,而属性则可以改变对象的各种状态。
理解EXCEL的对象模型是对其编程的基础。
EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素,这些对象元素就是VB可以操纵的。
在EXCEL对象的层次结构中,最顶层是Application对象,是Excel本身。
从该对象开始往下依次是:.workbooks对象集,是Application对象的下层,其指的是Excel的工作簿文件。
.worksheets对象集,是Workbooks对象集的下层,它表示的是Excel的一个工作表。
.Cells和Range对象,它们是worksheets对象的下层,它则指向Excel工作表中的一个或多个单元格。
以上介绍的四个对象是Excel中最重要也是用得最多的对象,而且从上面的介绍中也不难看出,要控制Excel中的某个具体对象,如某个工作簿中某一表格中的单元格,就必须从Excel层次结构对象的最上层即Application对象开始遍历。
excel中vb函数运算调用单元格Excel是一款功能强大的电子表格软件,广泛用于数据处理和计算。
其中,VB函数是Excel中的一种特殊计算函数,可以通过调用单元格来进行运算。
本文将详细介绍Excel中VB函数的运算调用单元格的使用方法,并提供逐步的操作指南。
第一步:了解VB函数的基本概念VB函数是Visual Basic for Applications(VBA)编程语言中的一种函数,可以在Excel的宏中使用。
它们可以执行各种计算和操作,例如数学运算、逻辑判断和字符串处理等。
使用VB函数可以使Excel的计算更加灵活和高效。
第二步:开启开发者选项并插入宏要使用VB函数,首先需要开启Excel的开发者选项。
打开Excel,点击顶部菜单中的“文件”,然后选择“选项”。
在弹出的选项窗口中,点击左侧菜单中的“自定义功能区”,勾选“开发者”,然后点击“确定”。
此时,顶部菜单中将出现“开发者”选项。
点击“开发者”选项,然后选择“Visual Basic”按钮。
弹出的Visual Basic for Applications窗口中,可以插入和编辑宏。
第三步:插入VB函数的代码在Visual Basic for Applications窗口中,可以编写VB函数的代码。
首先,在窗口中右键点击左侧的“VBAProject(个人.xls)”,然后选择“插入”菜单中的“模块”。
这将在窗口中插入一个新模块。
接下来,在新模块中插入VB函数的代码。
例如,我们编写一个用于求和的VB函数代码:Function SumNumbers(ByVal rng As Range) As Double Dim result As Doubleresult = Application.Sum(rng)SumNumbers = resultEnd Function以上代码定义了一个名为SumNumbers的函数,接受一个表示要求和的单元格范围的参数rng,并返回求和结果。
VB打开EXCEL的方法在Visual Basic中,可以使用多种方法打开Excel文件。
以下是其中一些常用的方法。
1. 使用Excel对象库:使用Excel对象库可以直接在VB中打开Excel文件,并获取其内容。
首先,需要在VB项目中引用Excel对象库。
打开VB项目,在树状视图中选择"项目",然后选择"引用"。
在"可用组件"中找到"Microsoft Excel x.x Object Library"(其中 x.x 是Excel的版本号),勾选并点击"确定"。
接下来,可以使用以下代码打开Excel文件:```vbImports Excel = Microsoft.Office.Interop.ExcelDim xlApp As Excel.ApplicationDim xlWorkbook As Excel.WorkbookDim xlWorksheet As Excel.Worksheet' 创建Excel应用程序对象xlApp = New Excel.ApplicationxlApp.Visible = True' 打开Excel文件xlWorkbook =xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx") xlWorksheet = xlWorkbook.Worksheets(1) ' 打开第一个工作表```通过以上代码,将打开Excel文件并将第一个工作表赋值给xlWorksheet 变量。
2. 使用OleDb连接:除了使用Excel对象库,还可以使用OleDb连接字符串来打开Excel 文件。
这种方法不需要引用Excel对象库,并且适用于各种版本的Excel 文件。
```vbImports System.Data.OleDbDim connectionString As String ="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\path\to\your\excel\file.xlsx;Extended Properties=Excel 12.0"Dim connection As OleDbConnection = NewOleDbConnection(connectionString)Dim adapter As OleDbDataAdapterDim dataSet As DataSet'打开连接connection.Open' 读取Excel数据dataSet = New DataSetadapter.Fill(dataSet)' 将数据加载到DataGridView控件DataGridView1.DataSource = dataSet.Tables(0)'关闭连接connection.Close```以上代码使用OleDb连接字符串连接到Excel文件,并将数据加载到DataSet中。
简介:VB调⽤Excel简化表格处理---- VB程序中直接调⽤Excel的格式如下:Private Sub menudy_Click(Index As Integer)//这是⼀个打印菜单Select Case IndexCase 0On Error GoTo kungaaa = Shell(“D:/Program Files/MicrosoftOffice/Office/EXCEL.EXE c:/cngl/cngl.xls", 1)Case 1On Error GoTo kong //作为空表处理aaa = Shell(“D:/Program Files/MicrosoftOffice/Office/EXCEL.EXE c:/cngl/cngly.xls", 1)Case 3Case 4Case 5End SelectExit Subkung:aaa = Shell(“EXCEL.EXE c:/cngl/cngl.xls", 1)Exit Subkong:aaa = Shell(“EXCEL.EXE c:/cngl/cngly.xls", 1)End Sub----由于Word97和Excel97等⾼版本的Office组件都有和VB 的接⼝:VB 编辑器,所以我们可以直接利⽤ VB 编辑器编写我们需要的程序。
步骤如下:进⼊Excel97后,⽤⿏标点击菜单栏中的“⼯具”按钮,选择“宏”,再选择“VB 编辑器”。
----“VB编辑器”的编辑界⾯⾮常类似于“Visual Basic"的界⾯。
我们可以从它的控件“⼯程资源管理器”中插⼊需要的“添加⽤户窗体、添加模块、添加类模块”,并且从“属性窗⼝”中加⼊属性。
----例如,我们可以制定⼀个打印窗体,通过程序来实现数据定位和循环调⽤打印过程。
Public panduan As BooleanPrivate Sub CommandButton1_Click()changeIf panduan ThenUnload MeElseTextBox1.Text = “"End IfEnd SubSub change()If Not judgeday(TextBox1.Text) Then GoTo errorpanduan = TrueDim sql As StringDim db As DatabaseDim rs As Recordsetsql = “SELECT * From 数据表"sql = sql + “ WHERE (((数据表.⽇期)=#" + TextBox1.Text + “#))"Setdb =OpenDatabase(Application.ThisWorkbook.Path+“/cngl.mdb")Set rs = db.OpenRecordset(sql, dbOpenDynaset)If rs.EOF ThenMsgBox (“此⽇期⽆数据") Exit SubEnd Ifdaima1 = rs.Fields(“代码")Sheet1.Range(“e5").Value = rs.Fields(“⽇期")Sheet1.Range(“f7").Value = rs.Fields(“数据表记录")Sheet1.Range(“d13").Value = rs.Fields(“整数100")Sheet1.Range(“d15").Value = rs.Fields(“整数50")Sheet1.Range(“d17").Value = rs.Fields(“整数10")Sheet1.Range(“d19").Value = rs.Fields(“整数5")Sheet1.Range(“d21").Value = rs.Fields(“整数2")Sheet1.Range(“d23").Value = rs.Fields(“整数1")Sheet1.Range(“h13").Value = rs.Fields(“其他100")Sheet1.Range(“h15").Value = rs.Fields(“其他50")Sheet1.Range(“h17").Value = rs.Fields(“其他10")Sheet1.Range(“h19").Value = rs.Fields(“其他5")Sheet1.Range(“h21").Value = rs.Fields(“其他2")Sheet1.Range(“h23").Value = rs.Fields(“其他1")Sheet1.Range(“d37").Value = Sheet1.Range(“d13").Value * 100 + Sheet1.Range(“d15").Value * 50 + Sheet1.Range(“d17").Value * 10 +Sheet1.Range(“d19").Value * 5 + Sheet1.Range(“d21").Value * 2 + Sheet1.Range(“d23").ValueSheet1.Range(“h37").Value = Sheet1.Range(“h13").Value * 100 + Sheet1.Range(“h15").Value * 50 + Sheet1.Range(“h17").Value * 10 +Sheet1.Range(“h19").Value * 5 + Sheet1.Range(“h21").Value * 2 + Sheet1.Range(“h23").ValueDim sql1 As StringDim db1 As DatabaseDim rs1 As Recordsetsql1 = “SELECT * From 代码字典"sql1 = sql1 + “WHERE (((代码字典.代码)=" & daima1 & “))"Setdb1 =OpenDatabase(Application.ThisWorkbook.Path+ “/cngl.mdb")Set rs1 = db1.OpenRecordset(sql1, dbOpenDynaset)Sheet1.Range(“h41").Value = rs1.Fields(“代码字典名称")Exit Suberror:MsgBox (“⽇期输⼊错误")panduan = FalseEnd SubPrivate Sub TextBox1_Change()End SubPrivate Sub UserForm_Activate()dyxjkc.Top = 30dyxjkc.Left = 230End Sub----具体的表格画线可以由Excel⾃动完成,因此简化了VB 编程的步骤,并且节约调试程序和画线定位的时间。
用VB操作Excel详解一、VB读写EXCEL表:VB本身提自动化功能可以读写EXCEL表,其方法如下:1、在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。
表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象:Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令:Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见(或不可见)Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表xlSheet.Cells(row, col) =值'给单元格(row,col)赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。
vb6 引用excel在VB6中引用Excel,可以通过以下步骤实现:1. 首先,确保你的计算机上已经安装了Excel软件,这样你才能在VB6中成功引用Excel对象库。
2. 打开你的VB6项目,然后点击菜单栏上的 "项目" -> "引用"。
3. 在 "可用引用" 列表中找到 "Microsoft Excel xx.x Object Library"(xx.x代表Excel的版本号),勾选它。
4. 点击 "确定" 按钮,这样就成功在你的VB6项目中引用了Excel对象库。
一旦你成功引用了Excel对象库,你就可以在VB6中使用Excel对象来操作Excel文件。
例如,你可以使用下面的代码来创建一个Excel应用程序对象并打开一个工作簿:vb.Dim xlApp As Excel.Application.Dim xlBook As Excel.Workbook.Set xlApp = New Excel.Application.Set xlBook =xlApp.Workbooks.Open("C:\YourExcelFile.xlsx")。
' 现在你可以对xlBook进行操作,比如读写数据,设置格式等。
' 操作完成后记得释放对象。
xlBook.Close.xlApp.Quit.Set xlBook = Nothing.Set xlApp = Nothing.通过上述步骤和代码,你就可以在VB6中成功引用并操作Excel了。
当然,在实际应用中,你可能还需要处理异常、错误处理等,以确保程序的稳定性和健壮性。
希望这些信息能够帮助到你。
vb调用excel方法大全编辑整理:尊敬的读者朋友们:这里是精品文档编辑中心,本文档内容是由我和我的同事精心编辑整理后发布的,发布之前我们对文中内容进行仔细校对,但是难免会有疏漏的地方,但是任然希望(vb调用excel方法大全)的内容能够给您的工作和学习带来便利。
同时也真诚的希望收到您的建议和反馈,这将是我们进步的源泉,前进的动力。
本文可编辑可修改,如果觉得对您有帮助请收藏以便随时查阅,最后祝您生活愉快业绩进步,以下为vb调用excel方法大全的全部内容。
在VB中要想调用Excel,需要打开VB编程环境“工程"菜单中的“引用"项目,并选取项目中的“Microsoft Excel 11.0 object library”项.由于你的Excel版本不同,所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。
第一层: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 IntegerSet xlapp = CreateObject("Excel.Application”) '创建EXCEL对象’Set xlbook = xlapp。
vb调用excel对象的使用实例...Private Sub Command1_Click()Dim xlApp As ObjectSet xlApp = CreateObject("Excel.Application")'Dim xlapp As Excel.Application 'Excel对象' Dim xlbook As New Excel.Workbook '工作簿'Dim xlsheet As Excel.Worksheet '工作表'Dim exlApp As New Excel.Application'Dim exlBook As Object'Set exlBook = CreateObject("Excel.Workbook")'Dim exlBook As New Excel.Workbook' Set exlApp = New Excel.ApplicationxlApp.Visible = True '显示Excel窗口Set exlBook = xlApp.Workbooks.Open("d:\testvb\1.xls") 'Excel文件路径及文件名'向Excel表中写入数据,Sheets(1)为第1个工作表,Cells(行号,列号)是单元格xlApp.Sheets(1).Cells(1, 1) = "11"xlApp.Sheets(1).Cells(1, 2) = "12"xlApp.Sheets(1).Cells(2, 1) = "21"xlApp.DisplayAlerts = False'exlBook.Close True '先保存修改再关闭工作簿xlApp.SavexlApp.Quit '关闭ExcelEnd Sub注意表的删除与表的添加的方式与方法:Private Sub Command1_Click()Dim xlApp As ObjectSet xlApp = CreateObject("Excel.Application")'Dim xlapp As Excel.Application 'Excel对象' Dim xlbook As New Excel.Workbook '工作簿'Dim xlsheet As Excel.Worksheet '工作表'Dim exlApp As New Excel.Application'Dim exlBook As Object'Set exlBook = CreateObject("Excel.Workbook")' Dim exlBook As New Excel.Workbook' Set exlApp = New Excel.ApplicationxlApp.Visible = True '显示Excel窗口Set exlBook = xlApp.Workbooks.Open("d:\testvb\1.xls")'Excel文件路径及文件名'向Excel表中写入数据,Sheets(1)为第1个工作表,Cells(行号,列号)是单元格xlApp.sheets(1).cells(1, 1) = "11"xlApp.sheets(1).cells(1, 2) = "12"xlApp.sheets(1).cells(2, 1) = "21"xlApp.sheets(1).cells(3, 4) = "34"xlApp.DisplayAlerts = False'exlBook.Close True '先保存修改再关闭工作簿xlApp.sheets(2).Delete'表2的删除,即位置处于2号位的表的删除xlApp.sheets.Add'表的添加,添加后表处于1号位xlApp.sheets(2).Select'这两句是表位置的调整,使1号位与2号位的表的位置与换xlApp.sheets(2).Move Before:=xlApp.sheets(1)xlApp.SavexlApp.Quit '关闭ExcelEnd Sub。
在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。
由于你的Excel版本不同,所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。
第一层: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 5 11 39-宽行14 11) eole.ActiveSheet.PageSetup.PaperSize=1
25.打印单元格网线
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26.拷贝整个工作表
edRange.Copy
27.拷贝指定区域
eole.ActiveSheet.Range(″A1:E2″).Copy
28.粘贴
eole.W orkSheet(″Sheet2″).Range(″A1″).PasteSpecial
29.在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30.在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31.设置字体
eole.ActiveSheet.Cells(2,1)=″黑体″
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。