敬业的IT人 互联网 佚名 2008-5-22 17:44:51

請你自己加個CommonDialog控件

Private Sub Command3_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=develop; password=12345;Data Source=ServerNmae"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
strSQL = "select top 10 * from gate_register"
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 = "FileName" '默認生成的文件名
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

最新文章

用vb实现ftp的上传下载[05-22]

.net入门之VB篇：Visual Basic.Net中的…[05-22]

VB.net基础:如何获得并显示网上图片[05-22]

使用vb.net 对 Windows Form 按列排序…[05-22]

VB编写一个能显示百分比的自定义进度条…[05-22]

VB.Net中动态创建Access数据库[05-22]

相关文章

用VB.NET和Excel排生产计划[05-22]

使用VB.NET编写控制excel的程序[05-22]

VB与Excel在乘幂运算时的结果差异及其不合理性[05-22]

Visual Basic 导出到 Excel 提速之法[05-21]

实现VB与EXCEL的无缝连接[05-21]

用VB.NET和Excel排生产计划--企业信息化探讨之一[05-21]