vb.net新建工作薄 vb新建工作表
用VS2015,创建的VB.NET应用程序,如何同时操作两个EXCEL工作簿
首先定义
创新互联公司坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站设计、网站制作、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的中阳网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后创建对象
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open("文件路径") '打开已经存在的EXCEL工件簿文件
xlSheet = xlBook.Worksheets("sheet1")
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新建工作表
Dim xlSheet As Object
set xlSheet =xlBook.Sheets.Add
xlSheet.name="工作"
VB怎么样新建EXCEL工作薄?
Set xlsApp = CreateObject("Excel.Application")
Set xlBook = xlsApp.Workbooks.Add
Set xlsheet = xlBook.Worksheets.add
xlSheet.Cells(1, 1) = 1111 '给单元格(row,col)赋值
a = xlSheet.Cells(1, 1)
xlBook.SaveAs "E:\工作薄.xls"
xlsapp.quit
分享标题:vb.net新建工作薄 vb新建工作表
地址分享:http://scyanting.com/article/dophiho.html