请教一个用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文件导入到其中的一个表时,却提示说:此文件格式不对.
各位高手,能不能告诉我问题出在哪里,如何改动????

...全文
146 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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数据库认可.

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧