新人请教一个问题，谢谢！

Question

vb

Answer 1

'下面是一个将HFelxgrid控件记录导出到EXCEL的例子，供参考
private Sub Export()
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object  'Excel.Workbook
Dim xlSheet As Object  'Excel.Worksheet    Screen.MousePointer = vbHourglass
    On Error GoTo Err_Proc
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)    'Begin to fill data to sheet
    Dim i As Long
    Dim j As Integer
    With FormName.Controls(flexgridname)
        For i = 0 To .rows - 1
            For j = 0 To .Cols - 1
                xlSheet.Cells(i + 1, j + 1).Value = "'" & .TextMatrix(i, j)
            Next j
        Next i
     End With
     xlApp.Visible = True
     Screen.MousePointer = vbDefault
     Exit Sub
Err_Proc:
    Screen.MousePointer = vbDefault
    MsgBox "输出失败，错误原因为：" & Err.Description, vbExclamation, "提示"
     
End Sub

Answer 2

最简单的是循环直接写文本文件，保存为csv，用excel也能打开。

Answer 3

sql里面是不是有一个copy......命令，后面可以把  type  设定为xls？记不清了，不知道用这个可不可以？