关于vb.net新增工作表的信息

VB.NET Word创建表格并录入文字

Imports?Microsoft.Office.Interop

Imports?Microsoft.Office.Interop.Word?'引入Word

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document?'定义Word及文档对象

DDoc?=?DWrd.Documents.Add?'新增文档

Dim?DTbl?As?Word.Table?'定义表格对象

DTbl.Style?=?"网格型"?'表格的样式

DWrd.Selection().Cells.Merge()?'单元格合并

DTbl.Cell(1,?1).Range.Text?=?1?'在第1个单元格填写文本

DWrd.Visible?=?True?'显示Word

End?Sub

End?Class

VB.net 创建EXCEL的问题

项目——添加引用——com——microsoft excel 11.0 object library

Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序

Dim Xlsbook As Excel.Workbook '定义工作簿

Dim Xlssheet As Excel.Worksheet '定义工作表

Xls.Visible = True '显示excel 程序

Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄

Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄

MsgBox("EXCEL档案创建完毕！")

Xlssheet.Cells(1, 1) = "这是一个创建EXCEL的示例"

Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框

Sdlg.FileName = "*.xls" '保存对话框的默认文件名

Sdlg.Filter = "EXCEL档案(*.Xls)|*.Xls" '过滤器设置

If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下

Xlsbook.SaveAs(Sdlg.FileName) '保存文件

End If

Xlssheet = Nothing '释放资源

Xlsbook.Close() '关闭工作簿

Xlsbook = Nothing '释放资源

Xls.Quit() '退出excel应用程序

Xls = Nothing

用vb给excel表增加工作簿,并修改其名称

如果你的问题是添加工作表：

复制工作表到最后：

Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

重命名最后一张工作表（新加的工作表）：

Sheets(Sheets.Count).Name = "c"

以上就是土嘎嘎小编为大家整理的关于vb.net新增工作表的信息相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！