ADO 读写文本文件

' 创建配置文件
   
   
    Open ThisWorkbook.Path &
"\schema.ini" For Append As #1
   
        Print #1, "[table2.csv]
"
        Print #1, "Format=CSVDelimited "
        Print #1,
"ColNameHeader=False"
        Print #1, "MaxScanRows=0"
        Print #1,
"Col1=工号   Text   Width   50  "
        Print #1, "Col2=姓名   Text   Width  
50  "
        Print #1, "Col3=入职日期   DateTime"
        Print #1,
"Col4=班别   Text   Width   50  "
        Print #1, "Col5=职位   Text   Width  
50  "
        Print #1, "Col6=分值补贴   Single"
        Print #1,
"Col7=计件分钟   Single"
        Print #1, "col8=上班分钟   Single"
        Print
#1, "col9=效率   Single"
        Print #1, " "
        Print #1,
"[table1.csv]"
        Print #1, "Format=CSVDelimited  "
        Print #1,
"ColNameHeader=False"
        Print #1, "MaxScanRows=0"
        Print #1,
"Col1=c1   Text   Width   50  "
        Print #1, "Col2=c2   Text   Width  
50  "
        Print #1, "Col3=c3   Text   Width   50  "
        Print #1,
"Col4=c4   Text   Width   50  "
        Print #1, "Col5=c5   Text   Width  
50  "
        Print #1, "Col6=工号   Text   Width   50  "
        Print #1,
"Col7=c7   Text   Width   50  "
        Print #1, "Col8=款号   Text   Width  
50  "
        Print #1, "Col9=c9   Text   Width   50  "
        Print #1,
"Col10=c10   Text   Width   50  "
        Print #1, "Col11=c11   Text  
Width   50  "
        Print #1, "Col12=c12   Text   Width   50  "
       
Print #1, "Col13=c13   Text   Width   50  "
        Print #1, "Col14=c14  
Text   Width   50  "
        Print #1, "Col15=c15   Text   Width   50 
"
        Print #1, "Col16=c16   Text   Width   50  "
        Print #1,
"Col17=车种   Text   Width   50  "
      
   
    Close #1

On Error Resume Next
   
    Dim cnn As New
ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& ThisWorkbook.Path & "\;Extended
Properties='text;HDR=No;FMT=Fixed';"
   
    If cnn.State = 0
Then
        Set cnn = Nothing
        MsgBox ("数据库连接失败！")
        Exit
Sub
    End If
   
    Dim rec As New ADODB.Recordset
   
   
rec.Open "select distinct t2.*, (t1.c1 + '-' + t1.c2 + '-1') as 更新时间, t1.款号,
t1.车种 from table2.csv as t2" _
        & " left join table1.csv as t1 on
t1.工号 = t2.工号" _
        & " order by t2.职位, t2.班别, t2.工号, t1.款号",
cnn