Question

帮我看看vb代码哪有错误？做的是把Access导入到Excel

Option Explicit
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String

Private Sub Command1_Click()
Dim xls As Excel.Application
Dim xlbook As Excel.Workbook
'判断是否选择班级
If Not testtxt(Comboclass.Text) Then
MsgBox "请选择班级！", vbOKOnly + vbExclamation, "警告"
Comboclass.SetFocus
Exit Sub
End If
Set xls = New Excel.Application
xls.Visible = True
Set xlbook = xls.Workbooks.Add
txtSQL = "select * from temp"
Set mrc = executeSQL(txtSQL, MsgText)
Set mrc = New ADODB.Recordset 主要是这块老有问题！！！
mrc.MoveFirst
Dim xlsheet As Excel.Worksheet
Set xlsheet = xlbook.Sheets.Add
xls.ActiveSheet.PageSetup.Orientation = xlLandscape
xlsheet.Columns("a:d").Font.Size = 10
xlsheet.Columns("a:d").VerticalAlignment = xlVAlignCenter
xlsheet.Columns(1).HorizontalAlignment = xlHAlignCenter
xlsheet.Columns.ColumnWidth = 8
xlsheet.Columns(2).HorizontalAlignment = xlHAlignLeft
xlsheet.Columns(2).ColumnWidth = 6
xlsheet.Columns(3).HorizontalAlignment = xlHAlignLeft
xlsheet.Columns(3).ColumnWidth = 6
xlsheet.Columns(4).HorizontalAlignment = xlHAlignRight
xlsheet.Columns(4).ColumnWidth = 4
xlsheet.Rows(1).RowHeight = 40
xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, 4)).MergeCells = True
xlsheet.Cells(1, 1).Value = Comboclass.Text & "班学生名单"
xlsheet.Cells(1, 1).Font.Size = 14
xlsheet.Cells(1, 1).Font.Bold = True
xlsheet.Rows(2).RowHeight = 18
xlsheet.Cells(2).HorizontalAlignment = xlHAlignCenter
xlsheet.Cells(2, 1).Value = "序号"
xlsheet.Cells(2, 2).Value = "学号"
xlsheet.Cells(2, 3).Value = "姓名"
xlsheet.Cells(2, 4).Value = "性别"
xls.ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"
Dim i As Integer
i = 3
Dim j As Integer
Dim countpage As Integer
countpage = 0
Do While Not mrc.EOF
xlsheet.Rows(i).RowHeight = 18
For j = 1 To 4
xlsheet.Cells(i, j) = mrc.Fields(j - 1)
Next
xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(i, 4)).Borders.LineStyle = xlContinuous
i = i + 1
mrc.MoveNext
Loop
mrc.Close
Set mrc = Nothing
Exit Sub
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Comboclass.AddItem "应用071"
Comboclass.AddItem "网络071"
End Sub

Answer 1

executeSQL是什么东东,先要定义数据库连接
dim ADB As ADODB.Connection '数据库连接
Set ADB = New ADODB.Connection
With ADB
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb"
End With
mrc.open txtSQL,ADB

Answer 2

前，在安全责任已经被无限扩大的前提下，我们监理工作的头等大事已经非安全莫属。因此做好监理安全台帐是减少规避安全监理责任的重要手段之一。

Answer 3

1、在EXCEL工具栏中选择“工具-->宏-->Visual Basic编辑器”。
2、在“Visual Basic编辑器”中的工具栏中选择“工具-->引用”。选择“Microsoft ActiveX Data Objects 2.8 Library”（或2.5或2.6或2.7).即可