首先要确定SQL语句的运行环境。以下是VB里的数据导出代码,已假设创建了一个adodc控件: Dim i, j As Integer Dim ex As Object Dim exwbook As Object Dim exsheet As Object
Set ex = CreateObject("Excel.Application") '创建EXCEL对象 Set exwbook = ex.Workbooks.Add '打开文件 ex.Visible = True Set exsheet = exwbook.Worksheets("sheet1") '设定工作表
With Adodc1.Recordset For j = 2 To .Fields.Count exsheet.Cells(1, 1) = "序号" exsheet.Cells(1, j) = .Fields(j - 1).Name Next
.MoveFirst For i = 1 To .RecordCount For j = 2 To .Fields.Count exsheet.Cells(i + 1, 1) = i exsheet.Cells(i + 1, j) = .Fields(j - 1).Value Next .MoveNext Next i End With