VB借助EXCEL实现表格设计
VB中巧用Excel实现报表设计
VB中巧用Excel实现报表设计摘要：本文结合实例介绍了在VB中利用Excel实现复制报表的设计的方法，该方法把VB强大数据库管理与Excel灵活的报表设计有机结合起来，简化了编程，提高了程序的便利性。
关键词： Visual Basic Excel 报表引言在数据库应用中，数据报表是非常重要的部分，Visual Basic中的数据报表器可以很方便地创建数据报表，但由数据报表器设计的表格样式单一，功能较少。
微软公司的Excel软件想必大家都很熟悉，它那强大的报表设计功能和简单的操作界面，给大家留下了很深的印象。
若能把VB中的数据输出至Excel格式的报表中，使得VB的数据库管理功能与Excel的报表设计功能结合起来，将大大方便普通用户的使用。
本文借助一个实例详细介绍VB中如何利用Excel进行报表设计的方法。
1.Excel对象借助Excel对象，可以很方便地在VB数据库程序中生成Excel报表。
应用程序的最终用户在Excel环境中对报表做进一步的处理，如格式修改、打印预览、打印及保存等。
Excel对象封装了Microsoft Excel的全部对象，我们主要使用其中的五种对象，详细介绍如下。
Application对象：表示Excel应用对象，可以控制Excel应用程序的外观或功能［１］，是访问Excel其他对象的切入点。
Workbook对象：表示Excel中的工作簿，即对应一个Excel文件，可以实现对Excel工作簿的各种控制［１］。
Worksheet对象：表示Excel中的工作表，可以实现对Excel工作表的各种控制［１］。
Range对象：表示Excel中的区间，例如可以代表Excel中的某一单元格、某一行、某一列、某一选定区域［１］。
Cells对象：表示Excel中的一个单元格［２］，通过该对象读取Excel中的数据或将数据写入Excel中。
2.操作步骤在VB中借助Excel生成报表，需完成如下工作：（1）在Excel中制作报表模板，设计报表标题、表头的样式，包括字体字号、边框等等。
VB操作Excel报表(实例、图例、源码、注释)
VB操作Excel报表（实例、图例、源码、注释）用Excel报表非常方便，而用VB操作Excel更能延长VB的功能范围。
对于重复生成的表格更是非常方便。
字体，行高，列宽，合并单元格，排版等功能都有。
供大家学习研究。
VB中使用Excel控件要先引用哦。
要不你错都不知道哪错了。
郁闷吧！一、报表预览如下1、无内容报表如下：2、填表后预览如下：二、界面预览如下：打印记录按钮为Command3三、源码如下：Private Sub Command3_Click()声明一个新的Excel对象Set winkexcel = New Excel.Application该对象可见winkexcel.Visible = True选择第一张表为操作表winkexcel.SheetsInNewWorkbook = 1表添加内容Set winkworkbook = winkexcel.Workbooks.Add 设置指定单元格行高列宽Set xlsheet = winkworkbook.Worksheets(1) xlsheet.Rows(1).RowHeight = 45xlsheet.Rows(2).RowHeight = 33xlsheet.Rows(3).RowHeight = 33xlsheet.Rows(4).RowHeight = 33xlsheet.Rows(5).RowHeight = 33xlsheet.Rows(6).RowHeight = 300 xlsheet.Rows(7).RowHeight = 100 xlsheet.Rows(8).RowHeight = 45xlsheet.Rows(9).RowHeight = 45xlsheet.Rows(10).RowHeight = 26 xlsheet.Columns(1).ColumnWidth = 14 xlsheet.Columns(2).ColumnWidth = 24 xlsheet.Columns(3).ColumnWidth = 14 xlsheet.Columns(4).ColumnWidth = 24设置表格内容的对齐方式winkexcel.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter'水平居中winkexcel.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter'垂直居中With winkexcel.ActiveSheet.Range("A1:D1")'合并单元格.MergeEnd WithWith winkexcel.ActiveSheet.Range("B6:D6")'合并单元格.MergeEnd WithWith winkexcel.ActiveSheet.Range("B7:D7")'合并单元格.MergeEnd With画边框线，细线，黑。
Excel 通过VBA 制表
Excel 通过VBA 制作表格：1OBJ = "<table class=MsoTableGrid Border=2" OBJ = OBJ & "<td>" & "Material"OBJ = OBJ & "<td>" & "Description"OBJ = OBJ & "<td>" & "Quantity"OBJ = OBJ & "<td>" & "Commnent"OBJ = OBJ & "</table>"OBJ = OBJ & "<br>Best regards,<br> Ekman" 以上语句输出如下：Best regards,Ekman如果没有OBJ = OBJ & "</table>" 会是什么样？把后面的信息“Best regards， Ekman 也包含在表格里。
所以OBJ = OBJ & "</table> 可以定义表格结束。
如果 OBJ = "<table class=MsoTableGrid Border=2" 的“2“改为”23“会怎么样? 如下图，宽度增加。
2obj = "<table class=msotablegrid border=1 cellspacing =43 >"Best regards,Ekman3obj = "<table class=msotablegrid border=1 cellspacing =43 cellpadding=43 >"Best regards,EkmanCellspacing 决定表格边框的宽度。
用VB操作Excel(VB6.0)(整理)
用V B操作E x c e l(V B6.0)(整理) 全面控制Excel:首先创建Excel对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application?1)显示当前窗口：? ExcelID.Visible:=True;2)更改Excel标题栏：? ExcelID.Caption:='应用程序调用MicrosoftExcel';3)添加新工作簿：4)打开已存在的工作簿：5)设置第2个工作表为活动工作表：? ExcelID.WorkSheets[2].Activate;或ExcelID.WorkSheets['Sheet2'].Activate;6)给单元格赋值：? ExcelID.Cells[1,4].Value:='第一行第四列';7)设置指定列的宽度（单位：字符个数），以第一列为例：8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：9)在第8行之前插入分页符：? ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;10)在第8列之前删除分页符：11)指定边框线宽度：? 1-左 2-右 3-顶4-底 5-斜(\) 6-斜(/)12)清除第一行第四列单元格公式：13)设置第一行字体属性：14)进行页面设置：a.页眉：b.页脚：c.页眉到顶端边距2cm：d.页脚到底端边距3cm：e.顶边距2cm：f.底边距2cm：g.左边距2cm：h.右边距2cm：i.页面水平居中：j.页面垂直居中：k.打印单元格网线：15)拷贝操作：a.拷贝整个工作表：b.拷贝指定区域：c.从A1位置开始粘贴：d.从文件尾部开始粘贴：16)插入一行或一列：17)删除一行或一列：18)打印预览工作表：19)打印输出工作表：20)工作表保存：? Endif21)工作表另存为：? ExcelID.SaveAs('C:\Excel\Demo1.xls');22)放弃存盘：23)关闭工作簿：24)退出Excel：? ExcelID.Quit;25)设置工作表密码:26)EXCEL的显示方式为最大化ndowState=xlMaximized?27)工作薄显示方式为最大化28)设置打开默认工作薄数量? ExcelID.SheetsInNewWorkbook=329)'关闭时是否提示保存(true保存；false不保存) ? ExcelID.DisplayAlerts=False30)设置拆分窗口,及固定行位置31)设置打印时固定打印内容32)设置打印标题33)设置显示方式(分页方式显示)34)设置显示比例35)让Excel响应DDE请求用VB操作EXCEL示例代码? Private Sub Command3_Click()? On Error GoTo err1? Dim i As Long? Dim j As Long? Dim objExl As Excel.Application '声明对象变量? Me.MousePointer=11 '改变鼠标样式? Set objExl=New Excel.Application'初始化对象变量? objExl.SheetsInNewWorkbook=1? '将新建的工作薄数量设为1?? objExl.Sheets("book1").Select? '选中工作薄<book1>? For i=1 To 50'循环写入数据? For j=1 To 5? If i=1 Then??? objExl.Cells(i,j)="E"&i&j? Else??? objExl.Cells(i,j)=i&j? EndIf? Next? Next? objExl.Rows("1:1").Select '选中第一行? Format(Now,"yyyy年mm月dd日hh:MM:ss")? '给工作表加密码? Contents:=True,Scenarios:=True? objExl.Visible=True? '使EXCEL可见? objExl.SheetsInNewWorkbook=3? '将默认新工作薄数量改回3个? ? Set objExl=Nothing'清除对象? Me.MousePointer=0 '修改鼠标? ExitSub? err1:??? objExl.SheetsInNewWorkbook=3?? objExl.DisplayAlerts=False? '关闭时不提示保存? objExl.Quit'关闭EXCEL? objExl.DisplayAlerts=True '关闭时提示保存? Set objExl=Nothing? Me.MousePointer=0? End Sub。
ExcelVBA编程与图表制作如何利用VBA进行图表的自动生成和美化
ExcelVBA编程与图表制作如何利用VBA进行图表的自动生成和美化Excel VBA编程与图表制作如何利用VBA进行图表的自动生成和美化在Excel中，图表是一种直观展示数据的形式，它能够帮助用户更清晰地理解数据的含义和趋势。
而VBA（Visual Basic for Applications）作为Excel的编程语言，可以让我们更加灵活地操作和处理数据，进而实现图表的自动生成和美化。
本文将介绍如何利用VBA编程进行图表的自动生成和美化。
一、自动生成图表自动生成图表的主要目的是为了提高工作效率，将重复性的操作变得简单和便捷。
通过VBA编程，我们可以实现一键生成图表的功能。
首先，打开Excel，并按下ALT+F11快捷键，进入VBA编辑器。
在VBA编辑器中，选择插入→模块，即可新建一个VBA模块。
然后，我们可以编写VBA代码来实现图表的自动生成。
以下是一个简单的示例代码：```Sub CreateChart()Dim chartSheet As WorksheetDim sheet As WorksheetDim chartObj As ChartObjectDim rng As Range'创建一个新的图表工作表Set chartSheet =ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sh eets.Count)) = "Chart Sheet"'选择需要生成图表的原始数据所在的工作表Set sheet = ThisWorkbook.Sheets("Data Sheet")'选择需要生成图表的原始数据范围Set rng = sheet.Range("A1:B10")'在图表工作表上插入一个图表对象Set chartObj = chartSheet.ChartObjects.Add(Left:=10, Width:=375, Top:=30, Height:=225)'将原始数据范围设置为图表的源数据chartObj.Chart.SetSourceData rng'设置图表的类型为柱形图chartObj.Chart.ChartType = xlColumnClusteredEnd Sub```以上代码中，我们首先创建一个新的图表工作表，然后选择需要生成图表的原始数据所在的工作表和对应的数据范围。
excel表格中vb应用实例1
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用E XECL的强大报表功来实现报表功能。
但由于VB与E XCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。
一、 VB读写EX C EL表：VB本身提自动化功能可以读写EX CEL表，其方法如下：1、在工程中引用M icro s oftExcel类型库：从"工程"菜单中选择"引用"栏；选择Micr osoft Excel9.0 Object Librar y（EXCEL2000），然后选择"确定"。
表示在工程中要引用EX CEL类型库。
2、在通用对象的声明过程中定义EXC EL对象：Dim xlAppAs Excel.Applic ationDim xlBook As Excel.W orkBo o kDim xlShee t As Excel.Worksh eet3、在程序中操作E XCEL表常用命令：Set xlApp= Create Objec t("Excel.A pplic ation") '创建EXCE L对象Set xlBook = xlApp.Workbo oks.Open("文件名") '打开已经存在的E XCE L工件簿文件xlApp.V isibl e = True '设置EXCE L对象可见（或不可见）Set xlShee t = xlBook.Worksh eets("表名") '设置活动工作表xlApp.C ells(row, col) =值 '给单元格（row,col）赋值XLApp.C ells(i, 1).Interi or.ColorI ndex= i'设计单元格颜色i=1--56xlShee t.PrintO u t '打印工作表xlBook.Close(True) '关闭工作簿xlApp.Q uit '结束EXCE L对象Set xlApp= Nothin g '释放xlAp p对象xlBook.RunAut oMacr os (xlAuto Open) '运行EXCE L启动宏xlBook.RunAut oMacr os (xlAuto Close) '运行EXCE L关闭宏自己用代码就可以获取颜色列表了Sub yansec ode()For i = 1 To 56XlApp.C ells(i, 1) = ixlapp.C ells(i, 1).Interi or.ColorI ndex= iNextEnd Sub4、在运用以上V B命令操作E X CEL表时，除非设置EX CEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭E X CEL，同时也可对E X CEL进行操作。
Vb对excel操作的实例
Vb对excel操作的实例第一篇：Vb对excel操作的实例Vb对excel操作的实例最近，由于工作关系，我用vb6.0做了一个计算成绩的软件，由于我不会数据库技术，同行对excel应用又比较普遍，所以就用vb6.0操作excel完成了成绩统计的任务。
先说说窗体，很简单，只运用了菜单，由此来调用程序代码。
截图如下：窗体命名为excel操作，共五个一级菜单。
创建表册用来制作所用表格。
计算成绩用来算成绩。
模拟运算用来测试软件，设置了两个子菜单，一个填随机生成的数据。
有了数据就可以计算成绩了，看看效果如何。
测试完了就可以清空数据了，清空成绩册中的基础数据以后再计算一次成绩就基本可以使表册恢复原样了。
其实，我这是多此一举，回头一想，只需要重新创建所用表册就行了。
还画蛇添足了俩菜单：计算器和退出。
代码也贴出来共享一下。
创建表册：一年级： Private Sub ynjkb_Click()Call 建空表(10)Call 工作表命名(1)Call 成绩册(1)Unload excel操作 End Sub 创建表册：二年级：Private Sub enjkb_Click()Call 建空表(10)Call 工作表命名(2)Call 成绩册(2)Unload excel操作 End Sub 三至六年级略了吧。
创建表册：学校总评：Private Sub xxzp_Click()nj(1)= “一年级”: nj(2)= “二年级”: nj(3)= “三年级”: nj(4)= “四年级”: nj(5)= “五年级”: nj(6)= “六年级” Call 建空表(2)'建立积分表Sheets(1).Name = “学校积分” Sheets(2).Name = “积分” Sheets(“学校积分”).Select Range(“a1:i1”).Merge [a1] = “学校积分统计表”: [a2] = “学校”: [a3] = “南村小学”: [a4] = “东风小学”: [a5] = “兴中小学”: [a6] = “尧场小学” nj(1)= “一年级”: nj(2)= “二年级”: nj(3)= “三年级”: nj(4)= “四年级”: nj(5)=“五年级”: nj(6)= “六年级” For i = 1 To 6 Cells(2, i + 1)= nj(i)+ “积分” Next Cells(2, 8)= “均积分”: Cells(2, 9)= “名次” Range([a1], [i6]).Select Selection.HorizontalAlignment = xlCenter Call 表格加线(Range([a2], [i6]))Call 横排(6, 9)ActiveSheet.PageSetup.Orientation = xlLandscape Unload excel操作 End Sub 创建表册：上报：Private Sub shangbao_Click()Call 建空表(2)Sheets(1).Name = “中心校” Sheets(“中心校”).Select Call 上报表(“中心校”)Sheets(2).Name = “普小” Sheets(“普小”).Select Call 上报表(“普小”)Unload excel操作 End Sub 计算成绩：一年级： Private Sub yinianji_Click()Call 打开工作表 Call 算成绩(1)kmb(1)= “语文”: kmb(2)= “数学”: kmb(3)= “英语” Sheets(kmb(1)).Select For i = 1 To 8'记录一年级语文数据With bj(i).xxmc = Cells(2, i + 1).dkjs = Cells(3, i + 1).xkrs = Cells(4, i + 1).xkzf = Cells(5, i + 1).xkjgr = Cells(6, i + 1).xkyxr = Cells(7, i + 1).xkjf = Cells(8, i + 1).bjkm = kmb(1).njxh = 1 End With Next Sheets(kmb(2)).Select For i = 1 To 8'记录一年级数学数据 With bj(i + 8).xxmc = Cells(2, i + 1).dkjs = Cells(3, i + 1).xkrs = Cells(4, i + 1).xkzf = Cells(5, i + 1).xkjgr = Cells(6, i + 1).xkyxr = Cells(7, i + 1).xkjf = Cells(8, i + 1).bjkm = kmb(2).njxh = 1 End With Next Dim hgrs(8)'记录各学校合格人数For i = 1 To 8 Sheets(xx(i)).Select szl = Application.WorksheetFunction.Match(“总分”, Range([a2], [f2]))'总分所在列即合格人数所在列szh = Application.WorksheetFunction.Match(“合格人数”, Range(Cells(2, szl), Cells(80, szl)))'“合格人数”所在行hgrs(i)= Cells(szh + 2, szl)Next '向学校总评表过录一年级数据nj(1)= “一年级”: nj(2)= “二年级”: nj(3)= “三年级”: nj(4)= “四年级”: nj(5)= “五年级”: nj(6)= “六年级” Workbooks.OpenFileName:=ActiveWorkbook.Path & “学校总评.xls” For i = 1 To 16 Wit h Sheets(“积分”)Sheets(“积分”).Select [a1] = “年级”: [a2] = “学科”: [a3] = “学校”: [a4] = “人数”: [a5] = “总分”: [a6] = “及格人数”: [a7] = “优秀人数”: [a8] = “积分”.Cells(1, i + 1)= nj(bj(i).njxh).Cells(2, i + 1)= bj(i).bjkm.Cells(3, i + 1)= bj(i).xxmc.Cells(4, i + 1)= bj(i).xkrs.Cells(5, i + 1)= bj(i).xkzf.Cells(6, i + 1)= bj(i).xkjgr.Cells(7, i + 1)= bj(i).xkyxr.Cells(8, i + 1)= bj(i).xkjf End With Next Workbooks.Open FileName:=ActiveWorkbook.Path & “上报.xls” With Sheets(“中心校”)'过录中心校成绩.Cells(bj(1).njxh * 2 + 2, 3)= bj(1).xkrs + bj(2).xkrs + bj(6).xkrs '语文.Cells(bj(1).njxh * 2 + 2, 4)= bj(1).xkzf + bj(2).xkzf + bj(6).xkzf.Cells(bj(1).njxh * 2 + 2, 5)= Round(.Cells(bj(1).njxh * 2 + 2, 4)/.Cells(bj(1).njxh * 2 + 2, 3), 2).Cells(bj(1).njxh * 2 + 2, 6)= bj(1).xkjgr + bj(2).xkjgr + bj(6).xkjgr.Cells(bj(1).njxh * 2 + 2, 7)= bj(1).xkyxr + bj(2).xkyxr + bj(6).xkyxr.Cells(bj(1).njxh * 2 + 2, 8)= hgrs(1)+ hgrs(2)+ hgrs(6).Cells(bj(1).njxh * 2 + 3, 3)= bj(9).xkrs + bj(10).xkrs + bj(14).xkrs '数学.Cells(bj(1).njxh * 2 + 3, 4)= bj(9).xkzf + bj(10).xkzf + bj(14).xkzf.Cells(bj(1).njxh * 2 + 3, 5)= Round(.Cells(bj(1).njxh * 2 + 3, 4)/.Cells(bj(1).njxh * 2 + 3, 3), 2).Cells(bj(1).njxh * 2 + 3, 6)= bj(9).xkjgr + bj(10).xkjgr + bj(14).xkjgr.Cells(bj(1).njxh * 2 + 3, 7)= bj(9).xkyxr + bj(10).xkyxr + bj(14).xkyxr.Cells(bj(1).njxh * 2 + 3, 8)= hgrs(1)+ hgrs(2)+ hgrs(6)End With With Sheets(“普小”)'过录普小成绩.Cells(bj(1).njxh * 2 + 2, 3)= bj(3).xkrs + bj(4).xkrs + bj(5).xkrs + bj(7).xkrs + bj(8).xkrs '语文.Cells(bj(1).njxh * 2 + 2, 4)= bj(3).xkzf + bj(4).xkzf + bj(5).xkzf + bj(7).xkzf + bj(8).xkzf.Cells(bj(1).njxh * 2 + 2, 5)= Round(.Cells(bj(1).njxh * 2 + 2, 4)/.Cells(bj(1).njxh * 2 + 2, 3),2).Cells(bj(1).njxh * 2 + 2, 6)= bj(3).xkjgr + bj(4).xkjgr + bj(5).xkjgr + bj(7).xkjgr + bj(8).xkjgr.Cells(bj(1).njxh * 2 + 2, 7)= bj(3).xkyxr + bj(4).xkyxr + bj(5).xkyxr + bj(7).xkyxr + bj(8).xkyxr.Cells(bj(1).njxh * 2 + 2, 8)= hgrs(3)+ hgrs(4)+ hgrs(5)+ hgrs(7)+ hgrs(8).Cells(bj(1).njxh * 2 + 3, 3)= bj(11).xkrs + bj(12).xkrs + bj(13).xkrs + bj(15).xkrs + bj(16).xkrs '数学.Cells(bj(1).njxh * 2 + 3, 4)= bj(11).xkzf + bj(12).xkzf + bj(13).xkzf + bj(15).xkzf + bj(16).xkzf.Cells(bj(1).njxh * 2 + 3, 5)= Round(.Cells(bj(1).njxh * 2 + 3, 4)/.Cells(bj(1).njxh * 2 + 3, 3), 2).Cells(bj(1).njxh * 2 + 3, 6)= bj(11).xkjgr + bj(12).xkjgr + bj(13).xkjgr + bj(15).xkjgr + bj(15).xkjgr.Cells(bj(1).njxh * 2 + 3, 7)= bj(11).xkyxr + bj(12).xkyxr + bj(13).xkyxr + bj(15).xkyxr + bj(16).xkyxr.Cells(bj(1).njxh * 2 + 3, 8)= hgrs(3)+ hgrs(4)+ hgrs(5)+ hgrs(7)+ hgrs(8)End With Unload excel操作 End Sub 计算成绩：二年级略。
VBA中的Excel图表操作技巧
VBA中的Excel图表操作技巧在Excel中，图表是一种非常有用的数据可视化工具，能够帮助我们更好地展示和分析数据。
而在VBA中，我们可以通过编程来操作和控制Excel 中的图表，从而实现更多的定制化需求。
本文将介绍一些常用的VBA中的Excel图表操作技巧，包括创建图表，设置图表属性，以及对图表进行格式化等。
一、创建图表在VBA中，创建图表的方法有很多种，可以根据数据的类型和需求选择合适的图表类型。
下面是一个创建柱状图的示例代码：```VBASub CreateColumnChart()Dim ws As WorksheetDim cht As ChartSet ws = ThisWorkbook.Worksheets("Sheet1")Set cht = ws.Shapes.AddChart.ChartWith cht.ChartType = xlColumnClustered.SetSourceData Source:=ws.Range("A1:B5").Location Where:=xlLocationAsObject, Name:="Sheet1".HasTitle = True.ChartTitle.Text = "Sales by Month"End WithEnd Sub```上述代码中，首先我们通过引用工作表对象和图表对象，然后使用`AddChart.Chart`方法来创建图表。
接着，我们通过设置`ChartType`属性来指定图表的类型，这里是柱状图。
然后使用`SetSourceData`方法来设置图表的数据源范围，并使用`Location`方法来指定图表的位置。
最后，我们通过`HasTitle`和`ChartTitle.Text`属性来设置图表的标题。
二、设置图表属性在VBA中，我们可以通过操作图表对象的属性来实现对图表的定制化设置。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、定义EXCE寸象变量
dim x as excel.application
2、VB中，启动EXCEL
set x=createobject("excel.application")
3、新建一个EXCE T L 作簿
x.workbooks.add
4、选定工作表1
set xsheet=xbook.worksheets(1)
5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(0)
6 指定EXCE S L 宽
xsheet.column(1).columnwidth=10
7、RANGE函数，选定单元格区域range(cells(1,1),cells(10,20))
& 设置EXCEL字体
xsheet.range(cells(1,1),cells(10,20))=" 黑体"
9、设置EXCE S L 粗体
xsheet.range(cells(1,1),cells(10,20)).fontbold=true
10、设置EXCEI表格边框
xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinu
ous
11 、运行时，显示EXCE S L 隐藏EXCEL
x.visible=true
12、保存工作簿
xbook save
13、退出EXCEL
x.quit
14、交还控制权给EXCEL
set x=nothing
15、打印EXCEL表
x.active.window.selectedsheets.printout copies=numcopies
16、退出EXCEL寸,不出现保存提示。
x.displayalerts=false
17、怎样运用EXCEI公式？
x.range("A3").formula= "=max(A1,A2)"
18、E XCEL弋码获取技巧
打开EXCEL中的工具----宏----录制新宏，然后进行手工操作，结束后把所的宏代码贴进你的VB程序就行。
19、合并单元格弋码x.range("A2:A5").inergecells=true
20、自动调整列宽代码
x.column("A:I").autofit ' a 到I 列自动调整列宽
21、文本自动换行代码
x.rows(3).wraptext=true
22、设置字体颜色
x.rows(1).font.colorindex=4
23、打印预览代码
x.worksheets.printpreview
24、打开EXCEL文件
x.workbooks.open filename:="c:\my documents\my vb \lgx \dy.xls"
（注：表格素材和资料部分来自网络，供参考。
只是收取少量整理收集费用，请预览后才下载，期待你的好评与关注）。