VB怎么把access数据库的表导出来存放发到CSV文件

xiaomuyu1228 2013-09-17 09:52:43

VB怎么把Access 数据库中表一次性导出并存放到CSV文件中
如题：
想利用
Private Sub Command2_Click()
Dim AccAPP As New Access.Application
' AccAPP.OpenCurrentDb (数据库路径)

AccAPP.OpenCurrentDatabase "" & App.Path & "\CDD.mdb"
AccAPP.DoCmd.OutputTo acOutputTable, "RLCFP", acFormatCSV, "" & App.Path & "\0906RLCFP.csv", True '导出表
AccAPP.CloseCurrentDatabase '关闭access对象
AccAPP.Quit acQuitSaveNone

Set AccAPP = Nothing

End Sub

虽然导出CSV文件但是格式不对

...全文

493 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

of123 2013-09-18

打赏
举报

expression.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)

xiaomuyu1228 2013-09-18

打赏
举报

导出的CSV文件打开后数据不再单元格内后来我给我DoCmd.TransferTEXT 可是导出没有表头

熊孩子开学喽 2013-09-18

打赏
举报

贴DoCmd的参数给你看看: DoCmd.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart, TemplateFile, Encoding, OutputQuality) ObjectType 枚举名称值描述 acOutputForm 2 Form acOutputFunction 10 User-Defined Function acOutputModule 5 Module acOutputQuery 1 Query acOutputReport 3 Report acOutputServerView 7 Server View acOutputStoredProcedure 9 Stored Procedure acOutputTable 0 Table ObjectName 可选Variant ObjectType指定类型的对象名 "OutputFormat 可选Variant " 名称值描述 acFormatASP Microsoft Active Server Pages (*.asp) acFormatDAP Microsoft Access Data Access Page (*.htm; *.html) acFormatHTML HTML (*.html) acFormatIIS Microsoft IIS (*.htx; *.idc) acFormatRTF Rich Text Format (*.rtf acFormatSNP Snapshot Format (*.snp) acFormatTXT MS-DOS Text (*.txt) acFormatXLS Microsoft Excel (*.xls) acSpreadsheetTypeExcel9 8 Excel 97-2003 OutputFile 字符串类型对象要输出的文件全名包括路径。如果将该参数为空，Access会提示您指定输出文件名。 AutoStart 布尔型(-1/0) 是否自动打开输出文件的相关应用程序 TemplateFile 字符串类型要用作模板的HTML,HTX或ASP文件的全名包括路径. Encoding 可选Variant 输出文本或HTML数据的字符编码格式类型 OutputQuality 枚举名称值描述 acExportQualityPrint 0 输出优化打印。 acExportQualityScreen 1 屏幕上显示的输出进行了优化。导出时如果取消，ACCESS会报错，所以代码中需要加一段出错处理，一般这种错误的代码是2501 例程: AccAPP.OpenCurrentDatabase "D:\Access import output\db1.mdb", False '非独占方式打开数据库 AccAPP.DoCmd.OutputTo acOutputTable, "Tab1", acFormatXLS, App.Path & "\output.xls" '导出表Tab1 为Excel 95-97格式 AccAPP.DoCmd.OutputTo acOutputTable, "Tab2", acSpreadsheetTypeExcel9, App.Path & "\Output1.xls" '导出表Tab2为Excel 2003格式 AccAPP.CloseCurrentDatabase '关闭数据库 csv的格式应该是用acformattxt 因为csv格式本身很简单, 无非就是用逗号分隔列用回车分隔行, 所以表头可以自己解决一下也不难的可以先单独生成一个表头文件, 然后dos命令也好, 手工代码也好, 两个文件相加即可.

xiaomuyu1228 2013-09-17