vb.net复制工作表的简单介绍
Vb.net 操作Excel如何选择sheet
具体操作如下:
创新互联长期为千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为武隆企业提供专业的网站建设、成都网站建设,武隆网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
首先,须在项目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library (这是EXCEL2000)
1 打开Excel: dim myexcel as new Excel.Application() myexcel.visible=true
2 添加新的工作簿: myexcel.Workbooks.add()
3 设定第二个工作表为活动工作表: myexcel.worksheets(2).Acivate()
4 打开指定的Excel文件: myexcel.workbooks.open("c:\my.xls")
5 显示Excel窗口: myexcel.visible=true
6 更改Excel的标题栏: myexcel.caption="欢迎,欢迎!"
7 为Excel的单元格赋值: myexcel.cells(1,4).value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range("D1").value=100
8 设置指定列的宽度(单位:字符个数): myexcel.ActiveSheet.colums(1).columnwidth=20 设定当前工作表第1列的宽度为20
9 设置指定行的高度(单位:磅): myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米 设置第1行的高度为1CM
10 插入分页符: 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 指定边框线条的类型: myexcel.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.pagesetup.Headermargin=2/0.035
17 设置页脚到底端距离为2cm: myexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 设置顶边边距为2cm: myexcel.Activesheet.pagesetup.topmargin=2/0.035
19 设置底边边距为2cm: myexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 设置左边边距为2cm: myexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 设置右边边距为2cm: myexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 设置页面水平居中: myexcel.activesheet.pagesetup.CenterHorizontally=true
23 设置页面垂直居中: myexcel.activesheet.pagesetup.Centervertically=true
24 设置页面纸张大小 (1,窄行 8.5*11 ;39 ,宽行 14*11): myexcel.activesheet.pagesetup.papersize=1
25 打印单元格网格线: myexcel.activesheet.pagesetup.PrintGridlines=true
26 复制整个工作表 : myexcel.activesheet.Usedrange.Copy
27 复制指定区域 : myexcel.activesheet.range("a1:b5").Copy
28 粘贴: myexcel.worksheets("sheet2").range("A1").PasteSpecial
29 在第2行前插入一行 : myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 : myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 单元格: myexcel.Activesheet.Range("C4:D4").Merge()
32 自动调整第2列列宽: myexcel.activesheet.Columns(2).AutoFit
33 设置字体: myexcel.Activesheet.cells(2,1).font.name="黑体"
34 设置字体大小: myexcel.Activesheet.cells(2,1).font.size=25
35 设置字体为斜体: myexcel.Activesheet.cells(2,1).font.Italic=true
36 设置字体为粗体: myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除单元格内容: myexcel.activesheet.cells(2,1).ClearContents
38 打印预览工作表: myexcel.Activesheet.PrintPreview
39 打印工作表: myexcel.Activesheet.Printout
40 工作表另存为: myexcel.ActiveWorkbook.saveas("C:\book2.xls")
41 放弃存盘: myexcel.ActiveWorkbook.saved=false
42 关闭工作簿: myexcel.Workbooks.close
43 退出 Excel: myexcel.quit
清楚了这些命令,操作excel不就变的很轻松了。
vb.net excel 怎样筛选后复制到sheet2中?
Sub Macro1()
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="1"
Selection.Copy
Sheets("Sheet2").Select
Columns("A:A").Select
ActiveSheet.Paste
End Sub
你录制个宏就有代码了 如上代码所示
vb.net将excel一个区域的内容复制到另外一个区域
对 Range 对象做 Copy 方法,要注意 Range 要连续的、成矩形选择的。
例如像:A1:C5 可以复制,
例如像:A1:C5, A10:C15 就不能复制。
还要注意一点:对 Range 对象进行操作的话,所在工作表先要激活。
someRange.Worksheet.Activate
如果还有问题的话,可以把对 Excel 操作的代码提取到 Excel VBA 环境下调试好了再移植回去。
VBA将工作簿的部分Sheet复制到新的Excel文件
1 可先用工作簿ADD方法,创建新工作簿
2 用IF 条件语句判断需要复制的工作表
3 用Copy方法复制
不明白请HI我
VB.NET 控制EXCEL中的某几个sheet 到另外一个新的EXCEL文档中,并保存为单独文件。有EXCEL 类。求丰满
提供一段VBA代码供参考
作用是,保存当前工作簿的sheet,在当前文件夹下,单独另存为xls文件
VB.NET与VBA有一些差别,自己调试一下改改。
Dim TPath As String, XSheet As Worksheet
TPath = ActiveWorkbook.Path
For Each XSheet In ActiveWorkbook.sheets
XSheet.Copy
ActiveWorkbook.SaveAs Filename:=TPath "\" ActiveSheet.Name ".xls"
ActiveWindow.Close
Next
网站栏目:vb.net复制工作表的简单介绍
文章链接:http://myzitong.com/article/hphige.html