如何把VB FORM窗体里的表格输出到EXCEL

Question

..............................................
VB FORM
..............................................
NAME  AGE  NUMBER
张    18   123李    20   124
..............................................输出到EXCEL的代码？好像用的是datagrid控件，多谢

Answer 1

给段代码参考以下把
Option Explicit
Dim i, j, k As Integer
Dim strConn As String
Dim pubConn As New adodb.Connection
Dim rsTable As New adodb.Recordset
Dim strSQL As String
Dim xlapp As Variant
Dim xlBook As Variant
Dim xlSHEET As Variant
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.workbooks.Add
Set xlSHEET = xlBook.worksheets(1)
xlapp.Visible = True
On Error Resume Next
If Err.Number <> 0 Then Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.workbooks.Add
Set xlSHEET = xlBook.ActiveSheet
For k = 1 To DataGrid1.Columns.Count
xlSHEET.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To Adodc1.Recordset.RecordCount + 1
For j = 0 To DataGrid1.Columns.Count
xlSHEET.Cells(i + 1, j + 1) = Adodc1.Recordset(j) '
'xlSHEET.Cells(i + 1, j + 1) = DataGrid1.Columns(j).CellText(DataGrid1.RowBook(j))
Next j
Adodc1.Recordset.MoveNext
Next i
End Sub
Private Sub Form_Load()
strSQL = "select * from mdlk_sj where 批号='D012'"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = strSQL
Adodc1.Refresh
End Sub 

Answer 2

mshflexgrid 报表内容导到EXCEL如何定义单元格的格式

Answer 3

这里有源码,你可以看看http://www.egooglet.com/manage/skill_listview.php?hidFlag=FIND&strCate=VB&selectCate=VB&selectSkillCate=&txtContent=excel