VB与数据库应用一例----生成EXCEL表

VB与数据库应用一例----生成EXCEL表(2) .Top = Toolbar1.Height
.Width = Me.ScaleWidth - 10
.Height = Me.ScaleHeight - (StatusBar1.Height + 700)
End With


End Sub

Private Sub Print_cmd_Click()
Form2.Show
Dim myExcel As New Excel.Application, i, j, k As Integer, col As String
With myExcel
On Error GoTo Excle
.Application.Visible = False
.Workbooks.Add


'***********画字段************
j = 0
'Example: B2 ----G2 '列 本程序从B列,和第2行开始
For i = 66 To (66 + rs.Fields.Count - 1) '从RS中头一个字段到最后一个
col = Chr(i) & "2" 'Chr(66)就是B
'Debug.Print col
Range(col).Select
ActiveCell.FormulaR1C1 = rs.Fields(j).Name '
j = j + 1
Next i
'****************************
'*************以先横后竖顺序画表***************
k = 0
rs.MoveFirst
DoEvents
For j = 3 To 3 + rs.RecordCount '本程序从B3开始，所以用3
k = 0
For i = 66 To (66 + rs.Fields.Count - 1)
col = Chr(i) & CStr(j) '得到目标表格的值如 C3
Range(col).Select
ActiveCell.FormulaR1C1 = rs.Fields(k)
k = k + 1
Next i
On Error Resume Next
Form2.Probar.Value = Form2.Probar.Value + 1
rs.MoveNext

If rs.EOF = True Then
Unload Form2
.Application.Visible = True
End If

Next j
'************************************
End With
Exit Sub

Excle:
MsgBox ("您没有安装EXCLE2000，请先安装EXCEL2000")
End Sub