怎樣用VB.NET生成一個復(fù)雜的word表格？

轉(zhuǎn)換表格的時候應(yīng)該有選項的（光標(biāo)一般放置在外層表格區(qū)域），如圖，取消 轉(zhuǎn)換嵌套表格。

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供雜多網(wǎng)站建設(shè)、雜多做網(wǎng)站、雜多網(wǎng)站設(shè)計、雜多網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、雜多企業(yè)網(wǎng)站模板建站服務(wù)，10多年雜多做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

當(dāng)然，對于特別復(fù)雜及不規(guī)則的表格（粘貼過程中也可能導(dǎo)致表格錯亂），用FRONTPAGE調(diào)整一下也是不錯的主意。

參考文獻(xiàn)：OFFICE XP測試

用VB.NET設(shè)計一個以秒為基本單位的表，并且顯示在窗體上的步驟，并且給出關(guān)鍵代碼

是我以前自己設(shè)計的用來測試自己點鈔速度用的，希望是你需要的

以下是窗體的全部代碼

Public?Class?Form1

Dim?StartFlag?As?Boolean?=?False

Dim?secon?As?Integer

Dim?minut?As?Integer

'空格

Private?Sub?Form1_KeyUp(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyEventArgs)?Handles?Me.KeyUp

If?e.KeyCode?=?Keys.Space?Then

If?StartFlag?Then

StartFlag?=?False

Timer1.Enabled?=?False

If?Val(Strings.Right(Label1.Text,?2))??10?And?Val(Strings.Right(Label1.Text,?2))?=?0?Then?secon?=?0?:?minut?=?0?:?Label1.Text?=?"00:00"?:?Exit?Sub

ListBox1.Items.Add(Label1.Text.ToString)

ListBox1.SelectedItem?=?ListBox1.Items.Count?-?1

Label1.Focus()

Button1.Enabled?=?True

Label1.Text?=?"00:00"

secon?=?0

minut?=?0

Else

StartFlag?=?True

Timer1.Enabled?=?True

End?If

End?If

End?Sub

'加載

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

ListBox1.Items.Clear()

Label1.Text?=?"00:00"

Button1.Enabled?=?False

secon?=?0

minut?=?0

Label1.Focus()

End?Sub

'清空

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

Button1.Enabled?=?False

ListBox1.Items.Clear()

Label1.Focus()

End?Sub

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

secon?+=?1

If?secon?=?60?Then

secon?=?0

minut?+=?1

End?If

Dim?seconStr?As?String?=?secon

If?seconStr.Length?=?1?Then?seconStr?=?"0"?+?seconStr

Dim?minutStr?As?String?=?minut

If?minutStr.Length?=?1?Then?minutStr?=?"0"?+?minutStr

Label1.Text?=?minutStr?+?":"?+?seconStr

Label1.Focus()

End?Sub

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?SeconSun?As?Integer

If?ListBox1.Items.Count??0?Then

For?i?=?0?To?ListBox1.Items.Count?-?1

Dim?TemStr?As?String?=?ListBox1.Items.Item(i).ToString

Dim?TemInt1?As?Integer?=?Val(Strings.Right(TemStr,?2))

Dim?TemInt2?As?Integer?=?Val(Strings.Left(TemStr,?2))

Debug.Print(TemInt1.ToString)

Debug.Print(TemInt2.ToString)

SeconSun?+=?TemInt1?+?TemInt2?*?60

Debug.Print(SeconSun.ToString)

Next

TextBox1.Text?=?(SeconSun?/?ListBox1.Items.Count).ToString?+?"秒"

End?If

Label1.Focus()

End?Sub

End?Class

vb點虐 表格 如何做出這樣的表格 可以隨時修改的

VB是常用的應(yīng)用軟件開發(fā)工具之一，由于VB的報表功能有限，而且一但報表格式發(fā)生變化，就得相應(yīng)修改程序，給應(yīng)用軟件的維護(hù)工作帶來極大的不便。因此有很多程序員現(xiàn)在已經(jīng)充分利用EXECL的強大報表功來實現(xiàn)報表功能。但由于VB與EXCEL由于分別屬于不同的應(yīng)用系統(tǒng)，如何把它們有機地結(jié)合在一起，是一個值得我們研究的課題。

一、 VB讀寫EXCEL表：

VB本身提自動化功能可以讀寫EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel類型庫：

從"工程"菜單中選擇"引用"欄；選擇Microsoft Excel 9.0 Object Library（EXCEL2000），然后選擇"確定"。表示在工程中要引用EXCEL類型庫。

2、在通用對象的聲明過程中定義EXCEL對象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作EXCEL表常用命令：

Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象

Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件

xlApp.Visible = True '設(shè)置EXCEL對象可見（或不可見）

Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動工作表

xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '關(guān)閉工作簿

xlApp.Quit '結(jié)束EXCEL對象

Set xlApp = Nothing '釋放xlApp對象

xlBook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏

xlBook.RunAutoMacros (xlAutoClose) '運行EXCEL關(guān)閉宏

4、在運用以上VB命令操作EXCEL表時，除非設(shè)置EXCEL對象不可見，否則VB程序可繼續(xù)執(zhí)行其它操作，也能夠關(guān)閉EXCEL，同時也可對EXCEL進(jìn)行操作。但在EXCEL操作過程中關(guān)閉EXCEL對象時，VB程序無法知道，如果此時使用EXCEL對象，則VB程序會產(chǎn)生自動化錯誤。形成VB程序無法完全控制EXCEL的狀況，使得VB與EXCEL脫節(jié)。

二、 EXCEL的宏功能：

EXCEL提供一個Visual Basic編輯器，打開Visual Basic編輯器，其中有一工程屬性窗口，點擊右鍵菜單的"插入模塊"，則增加一個"模塊1"，在此模塊中可以運用Visual Basic語言編寫函數(shù)和過程并稱之為宏。其中，EXCEL有兩個自動宏：一個是啟動宏（Sub Auto_Open()），另一個是關(guān)閉宏（Sub Auto_Close()）。它們的特性是：當(dāng)用EXCEL打含有啟動宏的工簿時，就會自動運行啟動宏，同理，當(dāng)關(guān)閉含有關(guān)閉宏的工作簿時就會自動運行關(guān)閉宏。但是通過VB的自動化功能來調(diào)用EXCEL工作表時，啟動宏和關(guān)閉宏不會自動運行，而需要在VB中通過命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 來運行啟動宏和關(guān)閉宏。

三、 VB與EXCEL的相互勾通：

充分利用EXCEL的啟動宏和關(guān)閉宏，可以實現(xiàn)VB與EXCEL的相互勾通，其方法如下：

在EXCEL的啟動宏中加入一段程序，其功能是在磁盤中寫入一個標(biāo)志文件，同時在關(guān)閉宏中加入一段刪除此標(biāo)志文件的程序。VB程序在執(zhí)行時通過判斷此標(biāo)志文件存在與否來判斷EXCEL是否打開，如果此標(biāo)志文件存在，表明EXCEL對象正在運行，應(yīng)該禁止其它程序的運行。如果此標(biāo)志文件不存在，表明EXCEL對象已被用戶關(guān)閉，此時如果要使用EXCEL對象運行，必須重新創(chuàng)建EXCEL對象。

四、舉例：

1、在VB中，建立一個FORM，在其上放置兩個命令按鈕，將Command1的Caption屬性改為EXCEL，Command2的Caption屬性改為End。然后在其中輸入如下程序：

Dim xlApp As Excel.Application '定義EXCEL類

Dim xlBook As Excel.Workbook '定義工件簿類

Dim xlsheet As Excel.Worksheet '定義工作表類

Private Sub Command1_Click() '打開EXCEL過程

If Dir("D:\temp\excel.bz") = "" Then '判斷EXCEL是否打開

Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL應(yīng)用類

xlApp.Visible = True '設(shè)置EXCEL可見

Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打開EXCEL工作簿

Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表

xlsheet.Activate '激活工作表

xlsheet.Cells(1, 1) = "abc" '給單元格1行駛列賦值

xlBook.RunAutoMacros (xlAutoOpen) 運行EXCEL中的啟動宏

Else

MsgBox ("EXCEL已打開")

End If

End Sub

Private Sub Command2_Click()

If Dir("D:\temp\excel.bz") "" Then '由VB關(guān)閉EXCEL

xlBook.RunAutoMacros (xlAutoClose) '執(zhí)行EXCEL關(guān)閉宏

xlBook.Close (True) '關(guān)閉EXCEL工作簿

xlApp.Quit '關(guān)閉EXCEL

End If

Set xlApp = Nothing '釋放EXCEL對象

End

End Sub

2、在D盤根目錄上建立一個名為Temp的子目錄，在Temp目錄下建立一個名為"bb.xls"的EXCEL文件。

3、在"bb.xls"中打開Visual Basic編輯器，在工程窗口中點鼠標(biāo)鍵選擇插入模塊，在模塊中輸入入下程序存盤：

Sub auto_open()

Open "d:\temp\excel.bz" For Output As #1 '寫標(biāo)志文件

Close #1

End Sub

Sub auto_close()

Kill "d:\temp\excel.bz" '刪除標(biāo)志文件

End Sub

4、運行VB程序，點擊EXCEL按鈕可以打開EXCEL系統(tǒng)，打開EXCEL系統(tǒng)后，VB程序和EXCEL分別屬兩個不同的應(yīng)用系統(tǒng)，均可同時進(jìn)行操作，由于系統(tǒng)加了判斷，因此在VB程序中重復(fù)點擊EXCEL按鈕時會提示EXCEL已打開。如果在EXCEL中關(guān)閉EXCEL后再點EXCEL按鈕，則會重新打開EXCEL。而無論EXCEL打開與否，通過VB程序均可關(guān)閉EXCEL。這樣就實現(xiàn)了VB與EXCEL的無縫連接。

VB.NET Word創(chuàng)建表格并錄入文字

‘首先，創(chuàng)建一個VB.NET項目，再點擊菜單”項目“-”添加引用“，在”Com“-”類型庫“里，選擇Microsoft.Word?14.0?Object?Library（對應(yīng)Office版本為2010），將以下代碼復(fù)制粘貼到Form1窗體替換原代碼。

’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)??'向右擴展兩個單元格(即選擇第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

網(wǎng)頁題目：vb點虐 表格設(shè)計 vb如何制作表格
網(wǎng)站鏈接：http://newbst.com/article30/ddshipo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營銷型網(wǎng)站建設(shè)、企業(yè)網(wǎng)站制作、網(wǎng)站收錄、App設(shè)計、網(wǎng)站導(dǎo)航、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)