- 浏览: 461051 次
- 性别:
- 来自: 广州
最新评论
-
lhgyy00:
很好,回去好好研究下,3Q
博客资源与博客工具大全 -
ljl.java:
♦
你会遇到几段恋情?很准的哦~ -
ljl.java:
♦
你会遇到几段恋情?很准的哦~ -
jzzwy:
你这个red5是什么版本 Iterator<IConne ...
red5获取在线用户列表 -
81365341:
看着标题“red5配置详解”点进来的,结果没看到一句和配置有关 ...
red5配置详解
全面控制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
发表评论
-
TEA算法的VB实现代码的使用说明
2008-12-30 11:28 1935自从公开了TEA算法的VB代码之后一直有人追问我如何调用这两个 ... -
TEA算法的VB实现代码
2008-12-30 11:02 1645前些日子不少人都要挂QQ,有客户需求就自然有人去研究,所以不少 ... -
QQ通讯协议
2008-12-30 10:56 4193协议说明: 协议由报文 ... -
hoxede的QQ填充算法和TEA 加解密的python实现
2008-12-30 10:31 2901""" The MIT Lic ... -
如何从 Visual Basic 中调用 GetNetworkParams / GetAdapter
2008-12-30 09:52 17031. 启动一个新的 Visual Basic 标准 EX ... -
VB调用GetAdaptersInfo 的正确方法
2008-12-30 09:51 2723网上的教程没有一个能在多网卡或多IP下用的,总是在 Cop ... -
VB做的EXE文件设参数
2008-12-29 12:26 1194这个其实很简单 在 Private Sub Form_L ... -
VB常用字符串函数
2008-12-29 12:26 14831. ASC(X),Chr(X):转换字 ... -
VB常用函数
2008-12-29 12:25 23031. Time 返回系统时钟的当前时间。 Date 返回 ... -
VB使用*.res资源文件
2008-12-29 12:23 1666你一定也常常因苦于无法组织自己程序中大量的picture,而头 ... -
在不同的模式下实现定时关闭计算机
2008-12-29 12:20 861Option Explicit Const SM_CLEANB ... -
强制关闭指定QQ号
2008-12-29 12:19 1322'添加 Text1 Command1 ... -
VB读取武林外传内存地址
2008-12-29 12:18 2109一 模块代码 复制内容到剪贴板 代码: Option Expl ... -
怎么编程把用户名,密码提交到网页上的登录页?
2008-12-29 12:06 1461首先在程序中加入Webbrowser控件并加入引用 Micro ... -
在XP/2K 任务管理器的进程列表中隐藏当前进程
2008-12-29 12:05 1255新建一个模块,把以下代码复制进去,然后在load中调用即可实现 ... -
用VB制作IE工具条自定义按钮
2008-12-29 12:04 1197Private Sub UserControl_Resize( ... -
Webbrowser(Internet 控件)属性方法事件一览表
2008-12-29 11:56 4799想找个Webbrowser控件的详细使用手册,网上找了好久,都 ... -
使用vbs下载文件
2008-12-29 11:52 1546使用vbs下载文件 iLocal=LCase(Wscript. ... -
如何用VB制作半透明窗体?
2008-12-29 11:51 1694函数SetLayeredWindowAttributes ... -
vb api 控制 任务栏 桌面 托盘。。
2008-12-29 11:45 2097VB无疑是最先进的编程 ...
相关推荐
使用 VB 操作 Excel(VB6.0) VB(Visual Basic)是微软公司开发的一种编程语言,Excel 是微软公司开发的一种电子表格软件。VB 可以通过自动化功能来操作 Excel,实现对 Excel 的读写、控制和处理。本资源摘要信息...
标题与描述均提到了“用VB操作Excel”,这主要指的是使用Visual Basic(VB)编程语言来控制Microsoft Excel应用程序,实现自动化处理数据、报表生成、数据分析等任务。在IT领域,这种技术尤其受到财务、数据分析及...
这个标题"VB6.0_导出excel_方法源代码_excel_vb6_vb6_VB_"指的是一个使用VB6.0实现的程序,它包含了将数据导出到Excel的源代码。描述中的“已测试通过”意味着这个源代码是可用的,已经过实际测试,可以正常工作。 ...
下面将详细介绍如何使用VB6.0进行Excel操作,以及涉及到的相关知识点。 首先,你需要在VB6.0环境中引入Excel的对象库。这可以通过"工程" -> "引用" -> "Microsoft Excel [版本号] Object Library"来完成。引入对象...
1. **事件驱动编程**:VB6.0基于事件驱动编程模型,程序中的对象可以响应用户的操作或系统事件,比如点击按钮、改变文本框内容等,这种编程方式使得代码更加简洁,易于理解和维护。 2. **面向对象编程**:VB6.0支持...
在VB6.0中,我们可以使用Microsoft Excel Object Library来实现这一功能。首先,我们需要在工程的引用中添加此库,这将允许我们使用Excel相关的对象和方法。在“工具”菜单中选择“引用”,然后勾选“Microsoft ...
VB 6.0提供了`Workbook`和`Worksheet`对象来操作Excel文件,但这需要引用Microsoft Excel Object Library。以下是如何打开Excel文件并获取数据: ```vb Dim excelApp As New Excel.Application Dim excelWorkbook ...
【VB6.0绘制MsChart和MSFlexGrid】是关于使用Visual Basic 6.0(VB6.0)开发应用程序时集成数据可视化和表格控件的主题。MsChart和MSFlexGrid是VB6中两个非常重要的组件,它们允许开发者创建动态、交互式的图表和...
在VB6.0(Visual Basic 6.0)中,我们可以通过使用VBA(Visual Basic for Applications)来操控Excel,实现各种数据处理任务。VBA是内置在Microsoft Office应用程序中的编程语言,允许用户自定义功能,自动化任务,...
2. **VBA(Visual Basic for Applications)编程**:虽然本示例可能使用VB6.0编写,但通常会结合VBA来操作Excel对象。VBA是Excel内置的脚本语言,可以用于控制Excel应用和创建自定义功能。 3. **COM组件创建**:将...
- **自动化脚本**:VB6.0的VBA(Visual Basic for Applications)版本可以用于Excel、Word等Office套件的宏编程,实现文档处理自动化。 然而,值得注意的是,VB6.0自发布以来已逐渐被新的开发工具如.NET Framework...
通过使用Visual Basic 6.0(以下简称VB6.0),可以创建DLL文件来实现对Excel功能的增强。本文将详细介绍如何利用VB6.0对Excel 2003的菜单进行封装,从而实现自定义菜单的添加,特别是创建具有三级结构的复杂菜单。 ...
您还在为服务器上由于客户不愿意安装Excel,而您又要部署一款程序,需要导出到Excel,或者需要把Excel中的数据导入到...本例代码,帮您实现不需要安装Excl,而用VB可以操作Excel的样例,希望,给你启示,带了些帮助。
标题中的“利用vb6.0实现excel向pdf的转换”是指使用Visual Basic 6.0(简称VB6)编程语言来开发一个工具或程序,该程序可以将Excel电子表格文件转换为PDF格式。这个过程涉及到对Excel文件的操作以及对PDF格式的理解...
VB 打开 EXCEL 的方法可以使用 Excel 的应用程序对象和 Worksheet 对象来实现对 EXCEL 文件的读取、修改和保存等操作,同时也可以使用 Shell 函数和 Excel 的自带的查询功能来实现对 EXCEL 文件的操作。
通过VB6.0可以轻松实现对Microsoft Office Excel的自动化操作,比如打开工作簿、读取或写入单元格数据、修改工作表名称等。这些功能主要依赖于COM(Component Object Model)技术,即通过调用Excel提供的OLE接口来...
VB6.0 将excel封装成exe纯净版封装操作方法和代码