小编use*_*399的帖子

我正在尝试使用ADO将一系列文本文件读入工作表.当特定列中的大多数数据是整数时,我遇到了问题.当它到达String时,它将给出空值(空白单元格).

根据微软支持(Ado混合数据tyes)这是一个常见的事情,解决方案是设置IMEX = 1.我试过这个,但它不起作用.

我一直在寻找寻找答案的其他线程,并且遇到了这个答案(其他线程),作者说要TypeGuessRows改为"让Jet检测是否存在混合类型情况并欺骗Jet检测某种数据类型." 但是,这也没有奏效.

以下是我的VBA代码.任何帮助,将不胜感激

Sub query_text_file(WorkingSheet As String, Col As String, Row As Integer, fileName As String, firstOrLast As Integer)

Dim strPath As String
Dim ws As Worksheet

strToolWkbk = fileName
strPath = ThisWorkbook.Path & "\Excel_Barcode_Files"
Set ws = Worksheets(WorkingSheet)

'Need to reference the:
'   Microsoft ActiveX Data Objects 2.5 Library
Dim s_rst As ADODB.Recordset
Dim s_cnn As ADODB.Connection 's for sub connection
Dim intRow As Integer

Const adOpenStatic …