首页
学习
活动
专区
圈层
工具
发布
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    VBA与数据库——合并表格

    " & Sheet.Name & "$] 代码的核心就是构建出sql语句,首先遍历一个文件夹,获取到需要处理的Excel文件名称,然后按上面的语法构建sql语句,最后调用ado执行就可以了: Sub UnionAll...() Dim strsql As String strsql = UnionAllExcelSQL(ThisWorkbook.path & "\unionall", "Sheet1...Sub CopyWk() Dim i As Long For i = 1 To 49 VBA.FileCopy ThisWorkbook.path & "\unionall...\00.xlsx", ThisWorkbook.path & "\unionall\" & VBA.Format(i, "00") & ".xlsx" Next End Sub 在我电脑上进行了如下测试...: 大于50个文件之后,提示: 我首先想到可能是sql语句太长了,于是把程序文件和测试文件夹unionall放到了E盘根目录,这样至少路径短了,sql语句也就短了,测试结果仍然是不能超过50个!

    5.7K31
    领券