vb中导出excel表

Question

我从sql server库中导出了一个excel表，请问怎样在导出的同时并将它保存在当前目录下？谢谢！

Answer 1

请问怎样在导出的同时并将它保存在当前目录下？
----------------------------------------
是保存Excel还是包存什么？

Answer 2

需要引用Excle:Private Sub ToExcle(rs As ADODB.Recordset)
  If Not rs.Eof Then
    Dim X As Object, xBook As Object, xSheet As Object, i%, j%
    Set X = CreateObject("excel.application") '创建EXCEL应用程序对象，启动EXCEL应用程序    Set xBook = X.Workbooks.Add              '新建一个工作簿，并将其赋给xbook
    Set xSheet = xBook.Worksheets(1)         '将xbook工作薄中的第一个表赋给xsheet
    X.Visible = False
    j = 1
    rs.MoveFirst
    Do While Not rs.EOF
        For i = 0 To rs.Fields.Count - 1
            xSheet.cells(j, i + 1) = rs.Feilds(i)
        Next i
        j = j + 1
        rs.MoveNext
    Loop
    X.ActiveWorkbook.SaveAs "c:\test.xls"
    
    X.Quit                    '退出EXCEL
    Set xSheet = Nothing         '释放对象变量
    Set xBook = Nothing
    Set xls = Nothing
  Else
    MsgBox "没有可打印的记录！", vbInformation, "提示"
  End If
  
End Sub

Answer 3

使用ConDialog控件，表格控件：vsflexgrid
设置filter属性为：*.XLS
    ConDialog.ShowSave
    If ConDialog.FileName <> "" Then
    vsflexgrid1.SaveGrid ConDialog.FileName, flexFileTabText, True
    End If

Answer 4

在问一下，怎样使excel的保存在后台运行，不显示出来

Answer 5

X.Visible = False
就是不显示

Answer 6

上面给的代码就是在后台运行了
X.Visible = False

Answer 7

我的网站上有将数据导入到EXCEL中的源码，你可以看看。http://www.j2soft.cn/VB资料->查询“EXCEL”；更多的操作，可以到EXCEL中录制宏，然后用VBA执行就可以了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/
http://j2soft.008.net/