' 创建配置文件
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