请问如何通过vb把数据导出到excel里？

Question

请问如何通过vb把数据导出到excel里？我使用的dreamware，能给个例子吗？谢谢。。我是用的是accsess数据库，使用asp.net&&vb 谢谢

Answer 1

你可以通过创建excel的对象来实现，创建excel.application等对象使用save方法指定路径就可以了。具体看看帮助，如果你的word2003装在c盘就是C:\Program Files\Microsoft Office\OFFICE11\2052\VBAXL10.CHM

Answer 2

楼主请看:(我已测试通过)
Option Explicit'在工程"引用"中勾选:
'Microsoft ActiveX Data Objects 2.5 Library
 
'在工程"部件"中勾选:
'Microsoft ADO Data Control 6.0(SP4) (OLEDB)
'Microsoft Common Dialog Control 6.0 (SP3)'再在窗体上加个CommonDialog控件Private Sub Command1_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
    
    '以下取数据的代码,请楼主根据自己的机器设置,如机器名\数据库名等等
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=;Data Source=BTWL;Initial Catalog=Master;"
    pubConn.Open strConn
    rsTable.CursorLocation = adUseClient
    strSQL = "select top 10 * from sysfiles"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    
    
    For i = 0 To rsTable.Fields.Count - 1
        '取出字段名
        strTableString = strTableString & rsTable.Fields(i).Name & Chr(9)
    Next
    strTableString = strTableString & rsTable.GetString
    
    cmDialog.CancelError = False
    
    '指定生成的文件名
    cmDialog.FileName = "DemoXls"
    cmDialog.DialogTitle = "Save Export File"
    cmDialog.Filter = "Excel (*.xls)|*.xls|文本文件(*.DBF)|*.DBF|檔案文件(*.doc)|*.doc|所有文件(*.*)|*.*"
    cmDialog.DefaultExt = "*.xls"
    cmDialog.ShowSave
    strFileName = cmDialog.FileName
    
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objExcelText = objFileSystem.createtextfile(strFileName, True)
    objExcelText.writeline (strTableString)
    
    objExcelText.Close
    Set objFileSystem = Nothing
End Sub

Answer 3

谢谢。有两个问题。你写的是不是必须要在stdio 下制作？我没有安装，我想通过dw制作，其中----------
楼主请看:(我已测试通过)
Option Explicit'在工程"引用"中勾选:
'Microsoft ActiveX Data Objects 2.5 Library
 
'在工程"部件"中勾选:
'Microsoft ADO Data Control 6.0(SP4) (OLEDB)
'Microsoft Common Dialog Control 6.0 (SP3)'再在窗体上加个CommonDialog控件--------------是不是需要某个文件支持？还是可以直接使用？

Answer 4

stdio只是一个工具，你愿意的话，记事本写也可以。你说“通过vb把数据导出到excel里？使用dreamware”我觉得如果一定按你的要求可能还比较难。