關(guān)于vb.net新增工作表的信息
VB.NET Word創(chuàng)建表格并錄入文字
‘首先，創(chuàng)建一個VB.NET項(xiàng)目，再點(diǎn)擊菜單”項(xiàng)目“-”添加引用“，在”Com“-”類型庫“里，選擇Microsoft.Word?14.0?Object?Library（對應(yīng)Office版本為2010），將以下代碼復(fù)制粘貼到Form1窗體替換原代碼。
梁子湖網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,梁子湖網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為梁子湖數(shù)千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢，請找那個售后服務(wù)好的梁子湖做網(wǎng)站的公司定做！
’PS：以下代碼僅創(chuàng)建表格，將第行2至4列合并，添加1個文字，其他的你自己分析。
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?=?DDoc.Tables.Add(DDoc.Range,?7,?4)??'新增表格
DTbl.Style?=?"網(wǎng)格型"??'表格的樣式
DTbl.Cell(1,?2).Select()??'選擇起始單元格為第1行/第2列
DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)??'向右擴(kuò)展兩個單元格(即選擇第1行的第2至4列)
DWrd.Selection().Cells.Merge()??'單元格合并
DTbl.Cell(1,?1).Range.Text?=?1??'在第1個單元格填寫文本
DWrd.Visible?=?True?'顯示W(wǎng)ord
End?Sub
End?Class
VB.net 創(chuàng)建EXCEL的問題
項(xiàng)目——添加引用——com——microsoft excel 11.0 object library
Dim Xls As Excel.Application = New Excel.Application '定義excel應(yīng)用程序
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檔案創(chuàng)建完畢！")
Xlssheet.Cells(1, 1) = "這是一個創(chuàng)建EXCEL的示例"
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定義一個保存對話框
Sdlg.FileName = "*.xls" '保存對話框的默認(rèn)文件名
Sdlg.Filter = "EXCEL檔案(*.Xls)|*.Xls" '過濾器設(shè)置
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存對話框的確認(rèn)按鈕被按下
Xlsbook.SaveAs(Sdlg.FileName) '保存文件
End If
Xlssheet = Nothing '釋放資源
Xlsbook.Close() '關(guān)閉工作簿
Xlsbook = Nothing '釋放資源
Xls.Quit() '退出excel應(yīng)用程序
Xls = Nothing
用vb給excel表增加工作簿，并修改其名稱
如果你的問題是添加工作表：
復(fù)制工作表到最后：
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
重命名最后一張工作表（新加的工作表）：
Sheets(Sheets.Count).Name = "c"
分享文章：關(guān)于vb.net新增工作表的信息
本文路徑：http://muchs.cn/article48/hcpchp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、全網(wǎng)營銷推廣、建站公司、關(guān)鍵詞優(yōu)化、網(wǎng)站內(nèi)鏈、品牌網(wǎng)站制作
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)
