用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://m.2m8n56k.cn/article40/dophiho.html

成都網站建設公司_創新互聯，為您提供動態網站、網站策劃、網站設計、標簽優化、企業建站、做網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：[email protected]。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯