用VB操作excel方法汇总VIP免费

下载本文档

阅读 177
下载 29
格式 doc
大小 81.5 KB
约20页
2024-11-01 发布于山西
收藏
评论
点赞(0)
海报
举报

1/20页

2/20页

3/20页

在线预览已结束，请下载后查看完整版，加入VIP享文档下载特权

/20

文本预览下载提示常见问题

用VB操作excel方法汇总PrivateSubCommand3_Click()DimiAsLongDimjAsLongDimobjExlAsExcel.Application'声明对象变量Me.MousePointer=11'改变鼠标样式SetobjExl=NewExcel.Application'初始化对象变量objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1objExl.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'选中工作薄Fori=1To50'循环写入数据Forj=1To5Ifi=1ThenobjExl.Selection.NumberFormatLocal="@"'设置格式为文本objExl.Cells(i,j)="E"&i&jElseobjExl.Cells(i,j)=i&jEndIfNextNextobjExl.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:=TrueobjExl.Application.IgnoreRemoteRequests=FalseobjExl.Visible=True'使EXCEL可见objExl.Application.WindowState=xlMaximized'EXCEL的显示方式为最大化objExl.ActiveWindow.WindowState=xlMaximized'工作薄显示方式为最大化objExl.SheetsInNewWorkbook=3'将默认新工作薄数量改回3个SetobjExl=Nothing'清除对象Me.MousePointer=0'修改鼠标ExitSubEndSub全面控制Excel首先创建Excel对象，使用ComObj:DimExcelIDasExcel.ApplicationSetExcelIDasnewExcel.Application1)显示当前窗口：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...

1、当您付费下载文档后，您只拥有了使用权限，并不意味着购买了版权，文档只能用于自身使用，不得用于其他商业用途（如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利）。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。
3、如文档内容存在违规，或者侵犯商业秘密、侵犯著作权等，请点击“违规举报”。

碎片内容

用VB操作excel方法汇总

用VB操作excel方法汇总PrivateSubCommand3_Click()DimiAsLongDimjAsLongDimobjExlAsExcel

Application'声明对象变量Me

MousePointer=11'改变鼠标样式SetobjExl=NewExcel

Application'初始化对象变量objExl

SheetsInNewWorkbook=1'将新建的工作薄数量设为1objExl

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'选中工作薄Fori=1To50'循环写入数据Forj=1To5Ifi=1ThenobjExl

Selection

NumberFormatLocal="@"'设置格式为文本objExl

Cells(i,j)="E"&i&jElseobjExl

Cells(i,j)=i&jEndIfNextNextobjExl

Rows("1:1")

Select'选中第一行objExl

Selection

Bold=True'设为粗体obj

您可能关注的文档

文章天下 + 关注: 实名认证
内容提供者

各种文档应有尽有

收藏店铺进入空间

用VB操作excel方法汇总VIP免费

用VB操作excel方法汇总

您可能关注的文档

相关文档

热门下载

相关标签