请教一个用CommonDialog把DataGrid中的数据导出成excel文件的问题

linguohuizhang 2008-02-27 11:19:49
请教一个用CommonDialog把DataGrid中的数据导出成excel文件的问题:
我用的是以下的代码:
Dim strFileName As String
Dim time As String
Dim objFileSystem As Object
Dim objExcelText As Object
Dim strTableString As String, i As Integer
Dim rs_excel As New ADODB.Recordset
Dim strConn As String
Dim sql As String
Dim strTableString2 As String

time = Format(DateTime.Now, "yyyy-mm-dd")
sql = "select * from 订单表 where 日期=#" & time & "#"
rs_excel.CursorLocation = adUseClient
rs_excel.Open sql, conn, adOpenKeyset, adLockPessimistic
For i = 0 To rs_excel.Fields.Count - 1
strTableString = strTableString & rs_excel.Fields(i).Name & Chr(9) '獲取字段名
Next
strTableString2 = strTableString

strTableString = rs_excel.GetString '字段名+數據庫的記錄
CommonDialog2.CancelError = False
CommonDialog2.FileName = time & "系统导出数据" '默認生成的文件名
CommonDialog2.DialogTitle = "保存导出文件"
CommonDialog2.Filter = "Excel文件(*.xls)|*.xls|HTML文档(*.html)|*.htm"
CommonDialog2.DefaultExt = ".xls"
CommonDialog2.Flags = cdlOFNOverwritePrompt
CommonDialog2.ShowSave
strFileName = CommonDialog2.FileName

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objExcelText = objFileSystem.createtextfile(CommonDialog2.FileName, True)
objExcelText.writeline (strTableString2)
objExcelText.writeline (strTableString)
objExcelText.Close

数据是可以导出成.XLS文件,但是当我直接在access中用 "获取外部数据" 选项想把导出生成的.xls文件导入到其中的一个表时,却提示说:此文件格式不对.
各位高手,能不能告诉我问题出在哪里,如何改动????

...全文
67 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
linguohuizhang 2008-02-27
谢谢悟不透兄弟的提醒,我知道问题是出在:
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objExcelText = objFileSystem.createtextfile(CommonDialog2.FileName, True)
objExcelText.writeline (strTableString2)
objExcelText.writeline (strTableString)
objExcelText.Close
上的.但是不知道怎么改啊.能不能给出改动的代码???急啊
回复
iget 2008-02-27
你这个其实是一个文本文件而不是xls文件,选择导入xls当然会出错。
只不过是excel能解析你的文件放到自己的格子里显示而已。
回复
hupeng213 2008-02-27
好象需要在xls文件的每个单元格的字符前加一个单引号才能被ACCESS数据库认可.
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-02-27 11:19
社区公告
暂无公告