跳过错误表导入

hhxq001

想实现导入的时候跳过错误表继续导入，并最后提示哪几个表没导入成功


花名册导入问题.rar (134.68 KB, 下载次数: 9)

2024-11-4 09:26 上传

点击文件名下载附件

mjm04

去PQ版块问问吧，函数不好解决的

yanglinzi

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    Path$ = ThisWorkbook.Path & "\"
    Filename$ = Dir(Path & "*.xlsx")
    Do While Filename <> ""
        StrSQL = StrSQL & " Union All Select 序号,学校,姓名,身份证号,父亲姓名,父亲_身份证号,母亲姓名,母亲_身份证号 From [Excel 12.0;DataBase=" & Path & Filename & "].[2019年至2024年$A2:J] Where 姓名<>''"
        Filename = Dir
    Loop
    Range("A3").CopyFromRecordset Cn.Execute(Mid(StrSQL, 12))
End Sub

limonet

关键字：union all

z865593849

sql导入数据

ykcbf1100

用字段名导入就不会出错啊，用字典固定列号

ykcbf1100

多文件字段名列号不固定，数据导入

hhxq001

mjm04 发表于 2024-11-4 10:28
去PQ版块问问吧，函数不好解决的

函数解决不了吗，先浏览一个文件的结构，满足要求就导入，满足不了就跳过，进行下一个

mjm04

hhxq001 发表于 2024-11-4 14:58
函数解决不了吗，先浏览一个文件的结构，满足要求就导入，满足不了就跳过，进行下一个

函数就不可能解决的

不用挣扎了呢，老老实实 VBA 或PQ