关于向EXCEL导出数据的一些讨论,欢迎UP!

Question

SQL这样做:
Dim cn As New ADODB.Connection
Dim mrs As ADODB.Recordset
Dim connstr As String
    
    Dim ex As New Excel.Application
    Dim exwbook As Excel.Workbook
    Dim exsheet As Excel.Worksheet
    Dim xlQuery As Excel.QueryTable
connstr = "YourConnectionString "
cn.Open connstr
Set mrs = New ADODB.Recordset
     Set ex = CreateObject("Excel.Application")
    Set exwbook = Nothing
    Set exsheet = Nothing
    Set exwbook = ex.Workbooks().Add
    Set exsheet = exwbook.Worksheets("sheet1")
ex.Visible = True
Dim strOpen As String
    strOpen = "SELECT * FROM table1"
    mrs.CursorLocation = adUseClient
    mrs.Open strOpen, cn, adOpenForwardOnly, adLockReadOnlySet xlQuery = exsheet.QueryTables.Add(mrs, exsheet.Range("A1"))
xlQuery.FieldNames = True '显示字段名
xlQuery.Refresh

Answer 1

Good! I can learn more!

Answer 2

好好复杂，why not user *.csv?

Answer 3

没钱买License ,怎么办呀....

Answer 4

新手请教
Private xlSheet As Excel.Worksheet中的Excel.Worksheet 对象类型在哪定义的,是不是要引用,直接用好像不行,
xlSheet.Range("A1").CopyFromRecordset ARS 中Range("A1")表示什么
能否说明一下简单的表头如何在程序中实现,比如一个大标题+各字段名称,