vb 顯示excel表單（vb顯示excel表格內(nèi)容）
本篇文章給大家談?wù)剉b 顯示excel表單，以及vb顯示excel表格內(nèi)容對(duì)應(yīng)的知識(shí)點(diǎn)，希望對(duì)各位有所幫助，不要忘了收藏本站喔。
今天給各位分享vb 顯示excel表單的知識(shí)，其中也會(huì)對(duì)vb顯示excel表格內(nèi)容進(jìn)行解釋，如果能碰巧解決你現(xiàn)在面臨的問(wèn)題，別忘了關(guān)注本站，現(xiàn)在開(kāi)始吧！
Dim oe As New Excel.Application
Dim ow As Workbook
Dim os As Worksheet
Set ow = oe.Workbooks.Add
Set os = ow.Worksheets(1)
oe.Visible = True
2、取消excel窗體的標(biāo)題欄、菜單欄、工具欄；
For Each bar In Application.CommandBars
If Not bar.BuiltIn And Not bar.Visible Then bar.Delete
Next
Application.CommandBars("Worksheet Menu Bar").Position = msoBarFloating
Application.CommandBars("Worksheet Menu Bar").Left = -Application.CommandBars("Worksheet Menu Bar").Width + 1
Application.CommandBars("Worksheet Menu Bar").Top = -Application.CommandBars("Worksheet Menu Bar").Height + 1
3、將excel窗體設(shè)置為某窗體的"子窗體"，調(diào)整大小并放在合適位置
Dim IStyle As Long
IStyle = GetWindowLong(hwnd, GWL_STYLE)
IStyle = IStyle And Not WS_CAPTION And Not WS_EX_APPWINDOW
SetWindowLong hwnd, GWL_STYLE, IStyle
ShowWindow hwnd, SW_SHOW
DrawMenuBar hwnd
SetParent hwnd, Form1.hwnd
Excel工作表vb 顯示excel表單，在VB窗口顯示操作。
但是這樣做不見(jiàn)得比在OFFICE
excel
應(yīng)用軟件里直接操作方便。
【個(gè)人認(rèn)為】主要vb 顯示excel表單的用途應(yīng)該是做“結(jié)果vb 顯示excel表單的運(yùn)算”，也可以把Excel文件當(dāng)作是一個(gè)數(shù)據(jù)庫(kù)看待。
使用VB打開(kāi)Excel文件后，在VB代碼里經(jīng)過(guò)結(jié)果運(yùn)算，把結(jié)果顯示在自己設(shè)計(jì)的VB窗口里，這才是重點(diǎn)。
Set xlBook = xlApp.Workbooks.Open(App.Path "\文件名.xls") '打開(kāi)已經(jīng)存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動(dòng)工作表
for n=1 to 行數(shù)
for m=1 to 例數(shù)
msgbox xlSheet.Cells.Item(n, m)
'注意：我只是告訴你一個(gè)循環(huán)把你要的內(nèi)容都讀出來(lái)，你要拿我的程序去運(yùn)行會(huì)彈死你的
next
next
然后代碼如下：
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
With xlApp
xlApp.Visible = False
.Rows(1).Font.Bold = True '設(shè)置第一行為粗體
.Cells(10, 10).Value＝"姓名"
.Application.Visible = True
End With
Set xlApp = Nothing
Set xlBook = Nothing
如想了解其他操作excel的代碼，可以在excel中，點(diǎn)擊菜單的 工具——宏——錄制新宏。
然后你手動(dòng)對(duì)excel操作，操作完成后停止錄制。再點(diǎn)擊 工具——宏——visual basic編輯器，找到剛才錄制的宏，就可以看到剛才對(duì)excel所做的操作對(duì)應(yīng)的vb代碼了。
Public xlApp As New Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
Public Function SaveAsExcel(rsErr As ADODB.Recordset, sFileName As String, _
sSheet As String, sOpen As String, ByVal field As String)
Dim fd As field
Dim CellCnt As Integer
Dim i As Integer
Dim fieldArr() As String
Dim t As Integer
fieldArr = Split(field, "|")
On Error GoTo Err_Handler
Screen.MousePointer = vbHourglass
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
'獲取字段名
CellCnt = 1
xlSheet.name = sSheet
For Each fd In rsErr.Fields '添加listview標(biāo)題
xlSheet.Cells(1, CellCnt).value = fieldArr(CellCnt - 1)
xlSheet.Cells(1, CellCnt).Interior.ColorIndex = 33
xlSheet.Cells(1, CellCnt).Font.Bold = True
xlSheet.Cells(1, CellCnt).BorderAround xlContinuous
CellCnt = CellCnt + 1
Next
rsErr.MoveFirst
i = 2
t = 1
Do While Not rsErr.EOF()
CellCnt = 1
For Each fd In rsErr.Fields
If fd.name = "Company_Id" Or fd.name = "Drugs_Id" Then
xlSheet.Cells(i, CellCnt).value = t
Else
xlSheet.Cells(i, CellCnt).NumberFormat = "@"
xlSheet.Cells(i, CellCnt).value = rsErr.Fields(fd.name).value
End If
CellCnt = CellCnt + 1
Next
rsErr.MoveNext
i = i + 1
t = t + 1
Loop
'自動(dòng)填充
CellCnt = 1
For Each fd In rsErr.Fields
xlSheet.Columns(CellCnt).AutoFit
CellCnt = CellCnt + 1
Next
xlSheet.SaveAs sFileName ' 保存 Worksheet.
xlBook.Close ' 關(guān)閉 Workbook
xlApp.Quit ' 關(guān)閉 Excel
If sOpen = "YES" Then ' 打開(kāi) Excel Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sFileName)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Application.Visible = True
Else
Set xlApp = Nothing '釋放 Excel 對(duì)象.
Set xlBook = Nothing
Set xlSheet = Nothing
End If
Err_Handler:
If Err = 0 Then
Screen.MousePointer = vbDefault
Else
MsgBox "未知錯(cuò)誤！ " vbCrLf vbCrLf Err ":" Error " ", vbExclamation
Screen.MousePointer = vbDefault
End If
End Function 關(guān)于vb 顯示excel表單和vb顯示excel表格內(nèi)容的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。 vb 顯示excel表單的介紹就聊到這里吧，感謝你花時(shí)間閱讀本站內(nèi)容，更多關(guān)于vb顯示excel表格內(nèi)容、vb 顯示excel表單的信息別忘了在本站進(jìn)行查找喔。
本文目錄一覽：
- 1、VB 如何生成EXCEL表格？謝謝了
- 2、怎么在VB窗體里顯示一個(gè)EXCEL工作表.然后
- 3、vb用什么控件顯示excel工作表
- 4、VB怎樣調(diào)用并顯示某個(gè)excel表中的數(shù)據(jù)？？
- 5、在VB中怎樣打開(kāi)并顯示Excel文件
- 6、如何在VB的窗體中顯示Excel報(bào)表
VB 如何生成EXCEL表格？謝謝了
材料/工具：電腦、VB 6.0軟件
1、首先，我們需要點(diǎn)擊文件菜單欄按鈕。
2、然后，我們點(diǎn)擊生成EXE按鈕。
3、接下來(lái)，我們點(diǎn)擊保存路徑。
4、然后，我們輸入我們想要保存的文件名。
5、最后，我們點(diǎn)擊確定按鈕。
6、然后，我們便可以看到，在桌面生成了Excel表格了。
怎么在VB窗體里顯示一個(gè)EXCEL工作表.然后
1、調(diào)用excel對(duì)象打開(kāi)工作表；Dim oe As New Excel.Application
Dim ow As Workbook
Dim os As Worksheet
Set ow = oe.Workbooks.Add
Set os = ow.Worksheets(1)
oe.Visible = True
2、取消excel窗體的標(biāo)題欄、菜單欄、工具欄；
For Each bar In Application.CommandBars
If Not bar.BuiltIn And Not bar.Visible Then bar.Delete
Next
Application.CommandBars("Worksheet Menu Bar").Position = msoBarFloating
Application.CommandBars("Worksheet Menu Bar").Left = -Application.CommandBars("Worksheet Menu Bar").Width + 1
Application.CommandBars("Worksheet Menu Bar").Top = -Application.CommandBars("Worksheet Menu Bar").Height + 1
3、將excel窗體設(shè)置為某窗體的"子窗體"，調(diào)整大小并放在合適位置
Dim IStyle As Long
IStyle = GetWindowLong(hwnd, GWL_STYLE)
IStyle = IStyle And Not WS_CAPTION And Not WS_EX_APPWINDOW
SetWindowLong hwnd, GWL_STYLE, IStyle
ShowWindow hwnd, SW_SHOW
DrawMenuBar hwnd
SetParent hwnd, Form1.hwnd
vb用什么控件顯示excel工作表
VB可以在[工程]里菜單“引用”或“部件”里選擇插入Excel工作表vb 顯示excel表單，在VB窗口顯示操作。
但是這樣做不見(jiàn)得比在OFFICE
excel
應(yīng)用軟件里直接操作方便。
【個(gè)人認(rèn)為】主要vb 顯示excel表單的用途應(yīng)該是做“結(jié)果vb 顯示excel表單的運(yùn)算”，也可以把Excel文件當(dāng)作是一個(gè)數(shù)據(jù)庫(kù)看待。
使用VB打開(kāi)Excel文件后，在VB代碼里經(jīng)過(guò)結(jié)果運(yùn)算，把結(jié)果顯示在自己設(shè)計(jì)的VB窗口里，這才是重點(diǎn)。
VB怎樣調(diào)用并顯示某個(gè)excel表中的數(shù)據(jù)？？
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建excel應(yīng)用程序,打開(kāi)excel2003Set xlBook = xlApp.Workbooks.Open(App.Path "\文件名.xls") '打開(kāi)已經(jīng)存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動(dòng)工作表
for n=1 to 行數(shù)
for m=1 to 例數(shù)
msgbox xlSheet.Cells.Item(n, m)
'注意：我只是告訴你一個(gè)循環(huán)把你要的內(nèi)容都讀出來(lái)，你要拿我的程序去運(yùn)行會(huì)彈死你的
next
next
在VB中怎樣打開(kāi)并顯示Excel文件
首先，工程－引用 microsoft Excel 11.0 )bject Library然后代碼如下：
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
With xlApp
xlApp.Visible = False
.Rows(1).Font.Bold = True '設(shè)置第一行為粗體
.Cells(10, 10).Value＝"姓名"
.Application.Visible = True
End With
Set xlApp = Nothing
Set xlBook = Nothing
如想了解其他操作excel的代碼，可以在excel中，點(diǎn)擊菜單的 工具——宏——錄制新宏。
然后你手動(dòng)對(duì)excel操作，操作完成后停止錄制。再點(diǎn)擊 工具——宏——visual basic編輯器，找到剛才錄制的宏，就可以看到剛才對(duì)excel所做的操作對(duì)應(yīng)的vb代碼了。
如何在VB的窗體中顯示Excel報(bào)表
Option ExplicitPublic xlApp As New Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
Public Function SaveAsExcel(rsErr As ADODB.Recordset, sFileName As String, _
sSheet As String, sOpen As String, ByVal field As String)
Dim fd As field
Dim CellCnt As Integer
Dim i As Integer
Dim fieldArr() As String
Dim t As Integer
fieldArr = Split(field, "|")
On Error GoTo Err_Handler
Screen.MousePointer = vbHourglass
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
'獲取字段名
CellCnt = 1
xlSheet.name = sSheet
For Each fd In rsErr.Fields '添加listview標(biāo)題
xlSheet.Cells(1, CellCnt).value = fieldArr(CellCnt - 1)
xlSheet.Cells(1, CellCnt).Interior.ColorIndex = 33
xlSheet.Cells(1, CellCnt).Font.Bold = True
xlSheet.Cells(1, CellCnt).BorderAround xlContinuous
CellCnt = CellCnt + 1
Next
rsErr.MoveFirst
i = 2
t = 1
Do While Not rsErr.EOF()
CellCnt = 1
For Each fd In rsErr.Fields
If fd.name = "Company_Id" Or fd.name = "Drugs_Id" Then
xlSheet.Cells(i, CellCnt).value = t
Else
xlSheet.Cells(i, CellCnt).NumberFormat = "@"
xlSheet.Cells(i, CellCnt).value = rsErr.Fields(fd.name).value
End If
CellCnt = CellCnt + 1
Next
rsErr.MoveNext
i = i + 1
t = t + 1
Loop
'自動(dòng)填充
CellCnt = 1
For Each fd In rsErr.Fields
xlSheet.Columns(CellCnt).AutoFit
CellCnt = CellCnt + 1
Next
xlSheet.SaveAs sFileName ' 保存 Worksheet.
xlBook.Close ' 關(guān)閉 Workbook
xlApp.Quit ' 關(guān)閉 Excel
If sOpen = "YES" Then ' 打開(kāi) Excel Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sFileName)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Application.Visible = True
Else
Set xlApp = Nothing '釋放 Excel 對(duì)象.
Set xlBook = Nothing
Set xlSheet = Nothing
End If
Err_Handler:
If Err = 0 Then
Screen.MousePointer = vbDefault
Else
MsgBox "未知錯(cuò)誤！ " vbCrLf vbCrLf Err ":" Error " ", vbExclamation
Screen.MousePointer = vbDefault
End If
End Function 關(guān)于vb 顯示excel表單和vb顯示excel表格內(nèi)容的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。 vb 顯示excel表單的介紹就聊到這里吧，感謝你花時(shí)間閱讀本站內(nèi)容，更多關(guān)于vb顯示excel表格內(nèi)容、vb 顯示excel表單的信息別忘了在本站進(jìn)行查找喔。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
