'請你自己加個CommonDialog控件
Private Sub Command3_Click()
Dim objFileSystem As Object
Dim objExcelText As Object
Dim strTableString As String, i As Integer, strFileName As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strConn As String
Dim strSQL As String
If (i - 4) Mod 33 = 0 And i <> 4 Then '每33条记录为一页,原来的判断不对
xlsheet.Range(xlsheet.Cells(i, 1), xlsheet.Cells(i, rs.Fields.Count)).Select
'选中当前添加的最后一行,这是关键
SendKeys "^{end}" '向应用程序EXCEL发送一个组合键CTRL+END,使光标移到文件尾
xlsheet.HPageBreaks.Add Before:=xlapp.ActiveCell '添加一个分页符 '添加一个分页符
End If
rs.MoveNext
Loop
xlapp.Worksheets.PrintPreview
xlapp.DisplayAlerts = False
xlapp.Quit
Set xlapp = Nothing