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

孙老师,你好,请教一个关于使用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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
