VBNET使用EXCEL常见操作.doc

《VBNET使用EXCEL常见操作.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBNET使用EXCEL常见操作2009-12-0109:05:44

2、分类：vb.net技术类

3、举报

4、字号订阅先添加引用->Com->MicrosoftExcel9.0ObjectLibrary（这是EXCEL2000）1打开Excel：dimmyexcelasnewExcel.Application()myexcel.visible=true2添加新的工作簿：myexcel.Workbooks.add()3设定第二个工作表为活动工作表：myexcel.worksheets(2).Acivate()4打开指定的Excel文件：myexcel.workbooks.open("c:my.

5、xls")5显示Excel窗口：myexcel.visible=true6更改Excel的标题栏：myexcel.caption="欢迎,欢迎!"7为Excel的单元格赋值：myexcel.cells(1,4).value=100此语句使Excel当前工作表的第一行第四列,即D1单元格等于100,也可以这样写:myexcel.Range("D1").value=1008设置指定列的宽度(单位:字符个数)：myexcel.ActiveSheet.colums(1).columnwidth=20设定当前工作表第1列的宽度为209设置指定行的高度(单位:磅)：myexcel.ActiveSh

6、eet.rows(1).rowHeight=1/0.0351磅=0.035厘米设置第1行的高度为1CM10插入分页符：myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分页符11删除分页符：myexcel.Activesheet.columns(20).pagebreak=0在第20列前删除分页符12指定边框线的宽度：myexcel.Activesheet.range("B3:D3").borders(1).weight=3其中borders参数指定单元格边框的位置:1:左2:右3:顶4:底5:斜6:斜/13指定边框线条的类型：myexc

7、el.Activesheet.range("B1:D3").borders(2).linestyle=1此语句将当前工作表的B1:D3单元格的右边框设置为实线linestyle参数:1:细实线2:细虚线3:点虚线4:双细实线14设置页脚：myexcel.activesheet.pagesetup.centerfooter="第&p页"注意:设置页眉页脚时要保证计算机上装有打印机,否则出错!15设置页眉：myexcel.activesheet.pagesetup.centerfooter="第&p页"16设置页眉到顶断距离为2cm：myexcel.Activesheet.pagesetu

8、p.Headermargin=2/0.03517设置页脚到底端距离为2cm：myexcel.Activesheet.pagesetup.Footermargin=2/0.03518设置顶边边距为2cm：myexcel.Activesheet.pagesetup.topmargin=2/0.03519设置底边边距为2cm：myexcel.Activesheet.pagesetup.Bottommargin=2/0.03520设置左边边距为2cm：myexcel.Activesheet.pagesetup.Leftmargin=2/0.03521设置右边边距为2cm：myexcel.Act

9、ivesheet.pagesetup.Rightmargin=2/0.03522设置页面水平居中：myexcel.activesheet.pagesetup.CenterHorizontally=true23设置页面垂直居中：myexcel.activesheet.pagesetup.Centervertically=true24设置页面纸张大小(1,窄行8.5*11;39,宽行14*11)：myexcel.activesheet.pagesetup.papersize=125打印单元格网格线：myexcel.activesheet.pagesetup.PrintGridlines=t

10、rue26复制整个工作表：myexcel.activesheet.Usedrange.Copy27复制指定区域：myexcel.activesheet.range("a1:b5").Copy28粘贴：myexcel.worksheets("sheet2").range("A1").PasteSpecial29在第2行前插入一行：myexcel.activesheet.rows(2).Insert30在第2列前插入一列：myexcel.Activ