VBA批量读取TXT、CSV文件---字段提取异常处理方法(Schema.ini)

本文链接：https://blog.youkuaiyun.com/qq_44390640/article/details/97101506

Private Sub OptionButton39_Click() '提取功能
Set rs = CreateObject("adodb.Recordset")
cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source =" & ThisWorkbook.Path & "\"

sql = "SELECT  LOGFILE,[MO TYPE],MO,featurestateid,licensestate,featurestate,description from [FeatureState.csv]  WHERE featureStateId='" & TextBox12.Value & "' union all select LOGFILE,[MO TYPE],MO,optionalfeaturelicenseid,licensestate,featurestate,userlabel from [OptionalFeatureLicense.csv]  WHERE optionalfeaturelicenseid='" & TextBox13 & "'"
  Set RS = cnn.Execute(sql) '
  Sheets("结果").Cells.ClearContents       '清理保存数据的区域
     For i = 0 To RS.Fields.Count - 1
       Worksheets("结果").Cells(1, i + 1) = RS.Fields(i).Name
     Next
Sheets("结果").Range("a2").CopyFromRecordset RS
    
RS.Close
Set RS = Nothing


Sheets("结果").Activate
MsgBox ("OK")
End Sub

'**需要建立一个Schema.ini文件放在当前目录
当读取TXT、CSV文件字段不完整时，请增加SCHEMA.INT文件，并增加以下内容：

[OptionalFeatureLicense.csv]
Format=CSVDelimited
ColNameHeader=TRUE
MaxScanRows=0