孫老師，你好，請教一個(gè)關(guān)于使用AccessVBA導(dǎo)入TXT文件的問題，如圖所示，已將字段設(shè)置為短文本，導(dǎo)入后第一行仍然會顯示導(dǎo)入失敗，字段“物流中心編碼”的值“GZHSLC”沒有導(dǎo)入成功，請問我應(yīng)該改進(jìn)代碼的那一個(gè)地方，才可以確保導(dǎo)入的值為短文本，十分感謝；

代碼如下：

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

Sub ImportAndCreateTable()

??Dim filePath As String

??filePath = "D:\模擬數(shù)據(jù).txt" ' 替換為實(shí)際的文本文件路徑

???Dim tableName As String

??tableName = "TXT"

??' 創(chuàng)建實(shí)體表

??Dim db As Object

??Set db = CurrentDb

??Dim strSQL As String

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

??????& "業(yè)務(wù)大類 TEXT(255), " _

??????& "物流中心編碼 TEXT(255), " _

??????& "主模式 TEXT(255))" ' 替換為實(shí)際的字段和數(shù)據(jù)類型，用逗號分隔每個(gè)字段

'???導(dǎo)入文本文件

??DoCmd.TransferText acImportDelim, , tableName, filePath, True

??On Error Resume Next

??db.Execute strSQL

??Set db = Nothing??

End Sub

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