VB.NET如何導(dǎo)入導(dǎo)出數(shù)據(jù)

我有現(xiàn)在的DLL，可以直接調(diào)用DLL的方法就解決這些問題。要DLL嗎？我不想把源碼發(fā)出來。有點多。

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

VB.NET怎么導(dǎo)出組件

如何從web頁面導(dǎo)入excel單元格數(shù)據(jù)、又如何把查詢出來的數(shù)據(jù)放到web頁面上顯示成客戶需要的圖表？并且導(dǎo)出到excel中？有兩種方案： 1.用Excel自動化技術(shù)。引用Excel的類型庫生成.Net的包裝類。導(dǎo)入時采用頁面放上傳文件按鈕的方法，在服務(wù)器端收到文件后，用excel自動化類打開excel文件，再學(xué)會VBA語法，書寫大量的代碼讀取單元格，然后連接數(shù)據(jù)庫保存。導(dǎo)出時，查詢數(shù)據(jù)庫，啟動excel自動化對象，通過VBA語法填寫單元格，保存成excel文件，再用Response.OutputStream輸出到頁面上，觸發(fā)excel文件的下載保存框。缺點：容易在服務(wù)器端產(chǎn)生excel死進(jìn)程，代碼編寫復(fù)雜、代碼量大、還要掌握VBA語法，用戶需要上傳、下載操作有人會說，顯示數(shù)據(jù)時可以用網(wǎng)頁直接顯示，不用導(dǎo)出成excel。其實也很麻煩：用網(wǎng)頁顯示復(fù)雜的報表格式，網(wǎng)頁設(shè)計工作量大；如果客戶要求導(dǎo)出excel，這個工作就省不了；如果客戶要求打印、打印預(yù)覽、頁面設(shè)置，比起excel瀏覽器的打印就捉襟見肘了。 2.用微軟Office中間件——SOAOffice。（建議使用最新版的）用SOAOffice輸出Excel，就不會再有上述煩惱。通過SOAOffice不僅能夠動態(tài)填充excel，讀取excel單元格，而且還能在瀏覽器里直接瀏覽excel、或者下載、另存。SOAOffice提供標(biāo)準(zhǔn)C#.Net組件，組件在服務(wù)器端不使用自動化調(diào)用，穩(wěn)定支持大量web并發(fā)訪問，這是用com調(diào)用無法實現(xiàn)的。組件的屬性方法都比較簡單，易于調(diào)用，你完全不用去掌握復(fù)雜的VBA調(diào)用。 由于是純.Net組件，所以服務(wù)器端不需安裝office。 SOAOffice的excel組件SOAExcel含有Sheet、Cell等類似Excel的簡化接口，調(diào)用簡單。SOAExcel不但能能把數(shù)據(jù)庫字段值動態(tài)填充到Excel單元格，還能把用戶輸入的單元格的值提出給開發(fā)者保存到數(shù)據(jù)庫。 SOAExcel能夠在客戶端瀏覽器的網(wǎng)頁里通過SOAOffice直接顯示生成的Excel，用戶不必先下載再打開觀看內(nèi)容。 舉個導(dǎo)出excel的例子： SOAOfficeX.ExcelResponse SOAExcel = new SOAOfficeX.ExcelResponse(); SOAOfficeX.ExcelResSheet sheet1 = SOAExcel.openSheet("Sheet1"); // 打開一個Sheet sheet1.openCell("D"+String.valueOf(8+i)).setValue(rs.getString("Count")); //循環(huán)填充數(shù)據(jù)。 SOAOfficeX.SOAOfficeCtrl SOACtrl = new SOAOfficeX.SOAOfficeCtrl(response); SOACtrl.assign(SOAExcel); // 綁定數(shù)據(jù) // 打開模板并生成最終的excel報表 SOACtrl.webOpen("doc/test.xls", 1, UserName, "Excel.Sheet"); 上述代碼不但動態(tài)填充生成excel，而且在網(wǎng)頁里直接顯示生成的Excel給終端用戶，由于使用了1打開模式，Excel是只讀顯示的。 讀取excel單元格的代碼也很簡單： SOAOfficeX.ExcelRequest SOAExcel = new SOAOfficeX.ExcelRequest(); SOAOfficeX.IExcelReqSheet sheetOrder = SOAExcel.OpenSheet("銷售訂單"); SOAOfficeX.IExcelReqCell cell1; cell1 = sheetOrder.OpenCell("I5");//訂單編碼 string sOrderNum = cell1.Value;//cell1.Value就是讀取的結(jié)果

VB.NET怎樣實現(xiàn)導(dǎo)入導(dǎo)出文本文件

用System.IO.StreamReader類可以讀各類文本文件，用System.IO.StreamWriter 類則可以寫各類文本文件，從而實現(xiàn)導(dǎo)入導(dǎo)出文本文件功能。這兩個類均支持各類編碼格式（默認(rèn)的是Unicode和UTF-8）。

如何用VB.NET導(dǎo)入和導(dǎo)出EXCEL表，打印預(yù)覽？？？

NET中數(shù)據(jù)庫數(shù)據(jù)導(dǎo)入Excel并打印摘要：眾所周知，WEB上的打印是比較困難的，常見的WEB上打印的方法大概 ... type=button value=打印預(yù)覽onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、將數(shù)據(jù)庫的數(shù)據(jù)或要打印的內(nèi)容導(dǎo)出到Excel，Word中去打印

關(guān)于VB.net和excel數(shù)據(jù)導(dǎo)入導(dǎo)出的問題，主要是導(dǎo)出??！

可以參考下面這段代碼，把數(shù)據(jù)集的值換成文本框中的值就行，應(yīng)該能走通：

Dim myExcel As Excel.Application = New Excel.Application

myExcel.Application.Workbooks.Add(True)

myExcel.Application.Worksheets(1).name = "產(chǎn)品列表(" + Me.UcClassTree1.m_CurrentClassName + ")"

myExcel.Visible = True

myExcel.ActiveWorkbook.Styles("常規(guī)").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter '**此屬性取決于安裝字體！??！

myExcel.Range("A1").Value = "圖號"

myExcel.Range("B1").Value = "名稱"

myExcel.Range("C1").Value = "所屬產(chǎn)品號"

myExcel.Range("D1").Value = "規(guī)格"

myExcel.Range("E1").Value = "是否總成"

myExcel.Range("F1").Value = "版本"

myExcel.Range("G1").Value = "狀態(tài)"

myExcel.Range("H1").Value = "加工方式"

myExcel.Range("I1").Value = "創(chuàng)建者"

myExcel.Range("J1").Value = "創(chuàng)建時間"

If Me.UcObjectList1.gridObjects.Rows.Count Then

For i As Int16 = 0 To UcObjectList1.gridObjects.Rows.Count - 1

myExcel.Range("A" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells(Me._ObjectExpression).Value.ToString

myExcel.Range("B" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("ObjectName").Value.ToString

myExcel.Range("C" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("ObjectCode").Value.ToString

myExcel.Range("D" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("Spec").Value.ToString

myExcel.Range("E" + (i + 2).ToString).Value = "'" + IIf(CBool(UcObjectList1.gridObjects.Rows(i).Cells("HasBom").Value.ToString), "是", "否") '前臺不能true,false

myExcel.Range("F" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("Version").Value.ToString

myExcel.Range("G" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("State").Value.ToString

myExcel.Range("H" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("mType").Value.ToString

myExcel.Range("I" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("CreateUser").Value.ToString

myExcel.Range("J" + (i + 2).ToString).Value = "'" + UcObjectList1.gridObjects.Rows(i).Cells("CreateTime").Value.ToString

Next

End If