`
hereson2
  • 浏览: 461051 次
  • 性别: Icon_minigender_1
  • 来自: 广州
社区版块
存档分类
最新评论

用VB操作Excel(VB6.0)(整理)

阅读更多

全面控制Excel:

首先创建Excel对象,使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
 
1)显示当前窗口:
  ExcelID.Visible:=True;
2)更改Excel标题栏:
  ExcelID.Caption:='应用程序调用MicrosoftExcel';
3)添加新工作簿:
  ExcelID.WorkBooks.Add;
4)打开已存在的工作簿:
  ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');
5)设置第2个工作表为活动工作表:
  ExcelID.WorkSheets[2].Activate;
或ExcelID.WorkSheets['Sheet2'].Activate;
6)给单元格赋值:
  ExcelID.Cells[1,4].Value:='第一行第四列';
7)设置指定列的宽度(单位:字符个数),以第一列为例:
  ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5;
8)设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
  ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米
9)在第8行之前插入分页符:
  ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;
10)在第8列之前删除分页符:
  ExcelID.ActiveSheet.Columns[4].PageBreak:=0;
11)指定边框线宽度:
  ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;
  1-左 2-右 3-顶4-底 5-斜(\) 6-斜(/)
12)清除第一行第四列单元格公式:
  ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13)设置第一行字体属性:
  ExcelID.ActiveSheet.Rows[1].Font.Name:='隶书';
  ExcelID.ActiveSheet.Rows[1].Font.Color  :=clBlue;
  ExcelID.ActiveSheet.Rows[1].Font.Bold :=True;
  ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;
14)进行页面设置:
a.页眉:
  ExcelID.ActiveSheet.PageSetup.CenterHeader:='报表演示';
b.页脚:
  ExcelID.ActiveSheet.PageSetup.CenterFooter:='第&P页';
c.页眉到顶端边距2cm:
  ExcelID.ActiveSheet.PageSetup.HeaderMargin:=2/0.035;
d.页脚到底端边距3cm:
  ExcelID.ActiveSheet.PageSetup.HeaderMargin:=3/0.035;
e.顶边距2cm:
  ExcelID.ActiveSheet.PageSetup.TopMargin:=2/0.035;
f.底边距2cm:
  ExcelID.ActiveSheet.PageSetup.BottomMargin:=2/0.035;
g.左边距2cm:
  ExcelID.ActiveSheet.PageSetup.LeftMargin:=2/0.035;
h.右边距2cm:
  ExcelID.ActiveSheet.PageSetup.RightMargin:=2/0.035;
i.页面水平居中:
  ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=2/0.035;
j.页面垂直居中:
  ExcelID.ActiveSheet.PageSetup.CenterVertically:=2/0.035;
k.打印单元格网线:
  ExcelID.ActiveSheet.PageSetup.PrintGridLines:=True;
15)拷贝操作:
a.拷贝整个工作表:
  ExcelID.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域:
  ExcelID.ActiveSheet.Range['A1:E2'].Copy;
c.从A1位置开始粘贴:
  ExcelID.ActiveSheet.Range.['A1'].PasteSpecial;
d.从文件尾部开始粘贴:
  ExcelID.ActiveSheet.Range.PasteSpecial;
16)插入一行或一列:
a.ExcelID.ActiveSheet.Rows[2].Insert;
b.ExcelID.ActiveSheet.Columns[1].Insert;
17)删除一行或一列:
a.ExcelID.ActiveSheet.Rows[2].Delete;
b.ExcelID.ActiveSheet.Columns[1].Delete;
18)打印预览工作表:
  ExcelID.ActiveSheet.PrintPreview;
19)打印输出工作表:
  ExcelID.ActiveSheet.PrintOut;
20)工作表保存:
  IfnotExcelID.ActiveWorkBook.Savedthen
    ExcelID.ActiveSheet.PrintPreview
  Endif
21)工作表另存为:
  ExcelID.SaveAs('C:\Excel\Demo1.xls');
22)放弃存盘:
  ExcelID.ActiveWorkBook.Saved:=True;
23)关闭工作簿:
  ExcelID.WorkBooks.Close;
24)退出Excel:
  ExcelID.Quit;
25)设置工作表密码:
  ExcelID.ActiveSheet.Protect"123",DrawingObjects:=True,Contents:=True,Scenarios:=True
26)EXCEL的显示方式为最大化
  ExcelID.Application.WindowState=xlMaximized 
27)工作薄显示方式为最大化
  ExcelID.ActiveWindow.WindowState=xlMaximized
28)设置打开默认工作薄数量
  ExcelID.SheetsInNewWorkbook=3
29)'关闭时是否提示保存(true保存;false不保存)
  ExcelID.DisplayAlerts=False
30)设置拆分窗口,及固定行位置
  ExcelID.ActiveWindow.SplitRow=1
  ExcelID.ActiveWindow.FreezePanes=True
31)设置打印时固定打印内容
  ExcelID.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"
32)设置打印标题
  ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=""
33)设置显示方式(分页方式显示)
  ExcelID.ActiveWindow.View=xlPageBreakPreview
34)设置显示比例
  ExcelID.ActiveWindow.Zoom=100
35)让Excel响应DDE请求
  Ex.Application.IgnoreRemoteRequests=False

用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.Workbooks.Add'增加一个工作薄
  objExl.Sheets(objExl.Sheets.Count).Name="book1"  '修改工作薄名称 
  objExl.Sheets.Add,objExl.Sheets("book1")‘增加第二个工作薄在第一个之后
  objExl.Sheets(objExl.Sheets.Count).Name="book2" 
  objExl.Sheets.Add,objExl.Sheets("book2")‘增加第三个工作薄在第二个之后
  objExl.Sheets(objExl.Sheets.Count).Name="book3" 
 
  objExl.Sheets("book1").Select  '选中工作薄<book1>
  For i=1 To 50'循环写入数据
  For j=1 To 5
  If i=1 Then
    objExl.Selection.NumberFormatLocal="@"  '设置格式为文本 
    objExl.Cells(i,j)="E"&i&j
  Else
    objExl.Cells(i,j)=i&j
  EndIf
  Next
  Next
  objExl.Rows("1:1").Select '选中第一行
  objExl.Selection.Font.Bold=True '设为粗体
  objExl.Selection.Font.Size=24  '设置字体大小
  objExl.Cells.EntireColumn.AutoFit  '自动调整列宽 
  objExl.ActiveWindow.SplitRow=1  '拆分第一行
  objExl.ActiveWindow.SplitColumn=0  '拆分列
  objExl.ActiveWindow.FreezePanes=True '固定拆分objExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"  '设置打印固定行
  objExl.ActiveSheet.PageSetup.PrintTitleColumns=""'打印标题objExl.ActiveSheet.PageSetup.RightFooter="打印时间:"&_
  Format(Now,"yyyy年mm月dd日hh:MM:ss")
  objExl.ActiveWindow.View=xlPageBreakPreview'设置显示方式
  objExl.ActiveWindow.Zoom=100  '设置显示大小
  '给工作表加密码
  objExl.ActiveSheet.Protect"123",DrawingObjects:=True,  _
  Contents:=True,Scenarios:=True
  objExl.Application.IgnoreRemoteRequests=False
  objExl.Visible=True  '使EXCEL可见
  objExl.Application.WindowState=xlMaximized'EXCEL的显示方式为最大化
  objExl.ActiveWindow.WindowState=xlMaximized'工作薄显示方式为最大化
  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

分享到:
评论

相关推荐

    用VB操作Excel(VB6.0)(整理).doc

    使用 VB 操作 Excel(VB6.0) VB(Visual Basic)是微软公司开发的一种编程语言,Excel 是微软公司开发的一种电子表格软件。VB 可以通过自动化功能来操作 Excel,实现对 Excel 的读写、控制和处理。本资源摘要信息...

    用VB操作Excel(VB6.0)(整理).txt

    标题与描述均提到了“用VB操作Excel”,这主要指的是使用Visual Basic(VB)编程语言来控制Microsoft Excel应用程序,实现自动化处理数据、报表生成、数据分析等任务。在IT领域,这种技术尤其受到财务、数据分析及...

    VB6.0_导出excel_方法源代码_excel_vb6_vb6_VB_

    这个标题"VB6.0_导出excel_方法源代码_excel_vb6_vb6_VB_"指的是一个使用VB6.0实现的程序,它包含了将数据导出到Excel的源代码。描述中的“已测试通过”意味着这个源代码是可用的,已经过实际测试,可以正常工作。 ...

    vb6.0操作Excel表格代码

    下面将详细介绍如何使用VB6.0进行Excel操作,以及涉及到的相关知识点。 首先,你需要在VB6.0环境中引入Excel的对象库。这可以通过"工程" -&gt; "引用" -&gt; "Microsoft Excel [版本号] Object Library"来完成。引入对象...

    vb6.0完整版安装包

    1. **事件驱动编程**:VB6.0基于事件驱动编程模型,程序中的对象可以响应用户的操作或系统事件,比如点击按钮、改变文本框内容等,这种编程方式使得代码更加简洁,易于理解和维护。 2. **面向对象编程**:VB6.0支持...

    读取Excel内容实例VB6.0源代码

    在VB6.0中,我们可以使用Microsoft Excel Object Library来实现这一功能。首先,我们需要在工程的引用中添加此库,这将允许我们使用Excel相关的对象和方法。在“工具”菜单中选择“引用”,然后勾选“Microsoft ...

    VB 6.0 将EXCEL数据导入ACCESS数据库

    VB 6.0提供了`Workbook`和`Worksheet`对象来操作Excel文件,但这需要引用Microsoft Excel Object Library。以下是如何打开Excel文件并获取数据: ```vb Dim excelApp As New Excel.Application Dim excelWorkbook ...

    VB6.0绘制MsChart和MSFlexGrid

    【VB6.0绘制MsChart和MSFlexGrid】是关于使用Visual Basic 6.0(VB6.0)开发应用程序时集成数据可视化和表格控件的主题。MsChart和MSFlexGrid是VB6中两个非常重要的组件,它们允许开发者创建动态、交互式的图表和...

    VB6.0操控excel实例

    在VB6.0(Visual Basic 6.0)中,我们可以通过使用VBA(Visual Basic for Applications)来操控Excel,实现各种数据处理任务。VBA是内置在Microsoft Office应用程序中的编程语言,允许用户自定义功能,自动化任务,...

    VB6.0编写Excel2003菜单工具栏示例

    2. **VBA(Visual Basic for Applications)编程**:虽然本示例可能使用VB6.0编写,但通常会结合VBA来操作Excel对象。VBA是Excel内置的脚本语言,可以用于控制Excel应用和创建自定义功能。 3. **COM组件创建**:将...

    VB6.0完整版VB6.0完整版

    - **自动化脚本**:VB6.0的VBA(Visual Basic for Applications)版本可以用于Excel、Word等Office套件的宏编程,实现文档处理自动化。 然而,值得注意的是,VB6.0自发布以来已逐渐被新的开发工具如.NET Framework...

    VB6.0封装Excel2003三级菜单DLL

    通过使用Visual Basic 6.0(以下简称VB6.0),可以创建DLL文件来实现对Excel功能的增强。本文将详细介绍如何利用VB6.0对Excel 2003的菜单进行封装,从而实现自定义菜单的添加,特别是创建具有三级结构的复杂菜单。 ...

    VB实现不需要安装Excel而操作Excel

    您还在为服务器上由于客户不愿意安装Excel,而您又要部署一款程序,需要导出到Excel,或者需要把Excel中的数据导入到...本例代码,帮您实现不需要安装Excl,而用VB可以操作Excel的样例,希望,给你启示,带了些帮助。

    利用vb6.0实现excel向pdf的转换

    标题中的“利用vb6.0实现excel向pdf的转换”是指使用Visual Basic 6.0(简称VB6)编程语言来开发一个工具或程序,该程序可以将Excel电子表格文件转换为PDF格式。这个过程涉及到对Excel文件的操作以及对PDF格式的理解...

    VB打开EXCEL的方法

    VB 打开 EXCEL 的方法可以使用 Excel 的应用程序对象和 Worksheet 对象来实现对 EXCEL 文件的读取、修改和保存等操作,同时也可以使用 Shell 函数和 Excel 的自带的查询功能来实现对 EXCEL 文件的操作。

    vb6.0改Excel的工作表名

    通过VB6.0可以轻松实现对Microsoft Office Excel的自动化操作,比如打开工作簿、读取或写入单元格数据、修改工作表名称等。这些功能主要依赖于COM(Component Object Model)技术,即通过调用Excel提供的OLE接口来...

    VB6.0 将excel封装成exe纯净版封装操作方法和代码

    VB6.0 将excel封装成exe纯净版封装操作方法和代码

Global site tag (gtag.js) - Google Analytics