欢迎光临散文网 会员登陆 & 注册

Access教程 零基础入门教程 Access数据库 Access2016 of

2023-08-10 22:35 作者:我的猫猫是小白  | 我要投稿

孙老师,你好,请教一个关于使用AccessVBA导入TXT文件的问题,如图所示,已将字段设置为短文本,导入后第一行仍然会显示导入失败,字段“物流中心编码”的值“GZHSLC”没有导入成功,请问我应该改进代码的那一个地方,才可以确保导入的值为短文本,十分感谢;

代码如下:

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

Sub ImportAndCreateTable()

  Dim filePath As String

  filePath = "D:\模拟数据.txt" ' 替换为实际的文本文件路径

   Dim tableName As String

  tableName = "TXT"

  ' 创建实体表

  Dim db As Object

  Set db = CurrentDb

  Dim strSQL As String

  strSQL = "CREATE TABLE " & tableName & " (" _

      & "业务大类 TEXT(255), " _

      & "物流中心编码 TEXT(255), " _

      & "主模式 TEXT(255))" ' 替换为实际的字段和数据类型,用逗号分隔每个字段

'   导入文本文件

  DoCmd.TransferText acImportDelim, , tableName, filePath, True

  On Error Resume Next

  db.Execute strSQL

  Set db = Nothing  

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Access教程 零基础入门教程 Access数据库 Access2016 of的评论 (共 条)

分享到微博请遵守国家法律