VB.Net2008，我需要將一個(gè)textbox里面的內(nèi)容導(dǎo)入到execl的一個(gè)表格中，希望大蝦們能給我一個(gè)簡答的源代碼。

非常簡單，我給你段源碼，你自己看著修改，注釋也給你標(biāo)清楚了。

創(chuàng)新互聯(lián)專注于湘潭網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供湘潭營銷型網(wǎng)站建設(shè)，湘潭網(wǎng)站制作、湘潭網(wǎng)頁設(shè)計(jì)、湘潭網(wǎng)站官網(wǎng)定制、微信小程序服務(wù)，打造湘潭網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供湘潭網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

Dim TempPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) "\月報(bào)表" Format(Now, "yyyy年MM月dd日") ".xls" ‘這個(gè)是設(shè)置EXCEL的文件路徑，我這個(gè)是默認(rèn)桌面

Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() ‘實(shí)例化EXCEL

MyExcel.Application.Workbooks.Open(TempPath)’打開EXCEL

MyExcel.Visible = True '是否顯示打開的EXCEL，我這個(gè)是顯示

MyExcel.Cells(4, 1) = textbox1.text ‘將textbox1的內(nèi)容寫入到EXCEL的第4行第1列，以下相同

MyExcel.Cells(4, 2) = textbox2.text

MyExcel.Cells(4, 3) = textbox3.text

MyExcel.Cells(4, 4) = textbox4.text

如何用VB.NET做水晶報(bào)表?

CrystalReportViewer

dataset 定義數(shù)據(jù)源

.rpt 文件描述具體報(bào)表樣式

再加一個(gè)調(diào)用報(bào)表的FORM，就可以實(shí)現(xiàn)簡單的報(bào)表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語句的賦值將在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

vb.net,水晶報(bào)表打印時(shí)紙張變?yōu)樾偶?，打印機(jī)里面已經(jīng)自定義好了紙張，用EXCEL,WORD就正常，請(qǐng)高手指點(diǎn)

別的地方轉(zhuǎn)來的！~ 不過我們以前做的時(shí)候 都是在打印機(jī)里增加一種打印紙 然后就可以選了！~

一下轉(zhuǎn)載內(nèi)容！~~~

水晶報(bào)表-強(qiáng)大而成熟，但是多少男兒漢敗倒在他的自定義紙張?jiān)O(shè)置上。

1：水晶報(bào)表是紙形打印。所以自定義紙張類打印肯定要在電腦上增加對(duì)應(yīng)的紙張才行（手動(dòng)加還是代碼加這個(gè)不管）

2：紙張分3種系統(tǒng)內(nèi)建（不可更改），自定義，打印機(jī)自帶。很遺憾的是水晶只認(rèn)系統(tǒng)內(nèi)建的。

3：打印機(jī)一般分2種。1普通噴墨的A4,2有聯(lián)單的針式

4：注意水晶報(bào)表不是所見所得的，預(yù)覽的紙張是什么不一定打印的就是什么紙張（受3方影響。打印機(jī)、報(bào)表內(nèi)設(shè)置、PAPERSIZE 屬性，三者之間關(guān)系不詳）。

5：對(duì)于第一種A4紙張。沒什么好說的系統(tǒng)內(nèi)建紙型。水晶報(bào)表認(rèn)。直接指定就行

6：對(duì)于第二種聯(lián)單的自定義型一般專機(jī)專用，當(dāng)然是建好紙張讓打印機(jī)默認(rèn)自己建的紙張為默認(rèn)首選了。

7：然后設(shè)置水晶報(bào)表使用打印機(jī)默認(rèn)的紙張PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize

以上能保證專機(jī)專紙的任何打印。：要注意第4點(diǎn)。如果你是自定義紙而且要預(yù)覽要保障預(yù)覽和打印都用指定的紙張，那么預(yù)覽時(shí)你得指定PaperSize=你自定義紙張的索引號(hào)。打印的時(shí)候又改成CrystalDecisions.Shared.PaperSize.DefaultPaperSize

8：如果你想一個(gè)打印機(jī)多個(gè)自定義紙張那么用API吧動(dòng)態(tài)改變打印機(jī)的默認(rèn)紙張，根據(jù)以上拐2彎就能實(shí)現(xiàn)了遺憾的是網(wǎng)絡(luò)打印機(jī)的話就沒折了。o(︶︿︶)o 唉