vb.net 輸出 excel

這里有段VB6.0的，你可以參考。

成都創(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)定制、小程序設(shè)計服務(wù)，打造長沙網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供長沙網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

注意添加引用。

Private Sub Command6_Click()

Dim i, j As Integer

Dim xlApplication As Excel.Application, xlWorkbook As Excel.Workbook, xlSheet

Dim xlApp As Excel.Application

On Error Resume Next

Set xlApplication = GetObject(, "Excel.Application")

Set xlApp = CreateObject("Excel.Application")

If MsgBox("確認將文件信息導出到EXCEL中？?", vbExclamation + vbYesNo, "警告") = vbYes Then

If Err.Number 0 Then Set xlApplication = CreateObject("Excel.Application")

Set xlWorkbook = xlApplication.Workbooks.Add

Set xlSheet = xlWorkbook.ActiveSheet

xlSheet.Cells(1, 2) = lblcl.Caption

xlSheet.Range("A1:E1").MergeCells = True

xlSheet.Range("A1:E1").HorizontalAlignment = xlCenter

xlSheet.Cells(2, 2).ColumnWidth = 18

For i = 1 To DataGrid1.Columns.Count

xlSheet.Cells(2, 1) = "編號"

xlSheet.Cells(2, i + 1) = DataGrid1.Columns(i).Caption

For j = 0 To DataGrid1.VisibleRows - 1

xlSheet.Cells(j + 3, 1) = j + 1

xlSheet.Cells(j + 3, i + 1) = DataGrid1.Columns(i).CellText(DataGrid1.RowBookmark(j))

Next j

Next i

xlApplication.Visible = True

Set xlSheet = Nothing

Set xlWorkbook = Nothing

Set xlApplication = Nothing

'xlApp.Range("A2:L2").Columns.Interior.ColorIndex = 40

'xlApp.Range("A2:L2").Borders.LineStyle = xlContinuous

'xlApp.Visible = True

'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Columns.Interior.ColorIndex = 40

'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Borders.LineStyle = xlContinuous

Else

MsgBox "無信息可供您導出，請確認!", vbExclamation + vbOKOnly, "警告"

End If

End Sub

vb.net 如何實現(xiàn)輸出一串字符串中的所有字符以及每個字符的出現(xiàn)次數(shù)？

使用一個單重的循環(huán)掃描這個字符串中的所有字符，對每一個字符的出現(xiàn)次數(shù)進行統(tǒng)計，最后輸出每個字符的出現(xiàn)次數(shù)。

Private Sub Command1_Click()

s = InputBox("請輸入一個英文字符串：")

Dim a(128) As Integer

For i = 1 To Len(s)

t = Asc(Mid(s, i, 1))

a(t) = a(t) + 1

Next i

For i = 1 To 127

If a(i) 0 Then Print Chr(i); ":"; a(i)

Next i

End Sub

VB.NET中怎么 調(diào)試輸出 返回值??？？

例如你用msgbox,你在輸入這個函數(shù)的參數(shù)的時候會有個提示框彈出來,里面有每個參數(shù)的類型已經(jīng)這個函數(shù)的返回值類型,

你可以記下來返回值的類型msgbox的是Microsoft.VisualBasic.MsgBoxResult

然后你按下F2

輸入MsgBoxResult去搜索(不知道為什么搜索Microsoft.VisualBasic.MsgBoxResult沒有結(jié)果)

可以看到MsgBoxResult的方法,函數(shù)和枚舉項,枚舉項就是你要的東西.自己看

其實你還可以直接就F2然后搜索MSGBOX,會得到這個函數(shù)的詳細訊息,返回值有哪些結(jié)果也會得到.

多看看MSDN如果沒裝

按F2多看看對象瀏覽器

你可以得到很多答案

vb.net中如何在文本框中輸出一個文件中兩*間的文本

方法1：

Open "c:\1.txt" For Output As #1 'c:\1.txt為保存文件

Print #1, Text1 Text2 Text3 ..... '將多個文本框內(nèi)容用合并在一起 寫入內(nèi)容

Close #1 '關(guān)閉文件

方法2：

Dim aa As String

aa =Text1 Text2 Text3 ..... '將多個文本框內(nèi)容用合并到變量aa

Open "c:\1.txt" For Output As #1 'c:\1.txt為保存文件

Print #1, aa '寫入內(nèi)容

Close #1 '關(guān)閉文件

vb.net輸出數(shù)組

1.你說的這個有點問題,是要只輸出一次,也可做,

2.但問題是如果你數(shù)組還有就看不到了!這個做法有點問題

1.解決方法:

循環(huán)前面加入一個變量 dim Temp as Double=0

For i = 0 To 9

If score(i) avg and score(i)temp Then

TextBox3.Text = TextBox3.Text score(i) " "

if score(i)=avg then

temp=score(i)

end if

End If

Next

在vb.net中怎么把一個字符串怎么輸出到當前計算機桌面上顯示呢

在vb2008下，form具有TransparencyKey屬性，將窗體的背景色和TransparencyKey顏色設(shè)置一致時，窗體會完全透明，顯示文字時，給文字不同的顏色，文字會直接顯示當前屏幕之上設(shè)置form1屬性，TransparencyKey=黑色，BackColor=黑色 繪制窗體的代碼，給文字以不同顏色 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

e.Graphics.DrawString("你好", New Font("黑體", 60, FontStyle.Bold), Brushes.Blue, 0, 0)

End Sub 可以設(shè)置窗體置頂屬性，永遠前端顯示也可以顯示在桌面，用setparent，父窗體為桌面