'设置数据库连接 Dim strConn$ strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=excel 12.0;Data Source=" Cnn. Open strConn & ThisWorkbook.FullName '遍历文件夹，处理数据 Dim sql$ , SheetName$ , r & Dim ph$ , f$ ph = ThisWorkbook.Path & "\" '路径 f = Dir ( ph & "*.xlsx" ) '文件名 Do While f <> "" '循环所有文件 If ( f <> ThisWorkbook. Name ) * ( f <> "0030.xlsx" ) Then '如果不是本文件，进行提取 MyCat.ActiveConnection = strConn & ph & f SheetName = Replace ( MyCat.Tables ( 0 ) . Name , "'" , "" ) '替换表名中的单引号 '写SQL sql = " select * from [Excel 12.0 ; Hdr = no ; Database = " & ph & f & " ].[ " & SheetName & " ]" '获取第1列：f1 或 [第一列的列名]" 'sql = "select f1,f3 from [" & SheetName & "] where f1 is not null" '获取第1列：f1 或 [第一列的列名] '执行SQL rst. Open sql , Cnn , 3 , 1 '填充数据 r = Range ( "a" & Rows.Count ) . End ( xlUp ) .Row + 1 Range ( "a" & r ) .Resize ( rst.RecordCount ) = "'" & Left ( f , InStrRev ( f , "." ) - 1 ) ' '去除工作簿后缀名，填充在“A”列 Range ( "b" & r ) .CopyFromRecordset rst '查询结果 rst. Close End If f = Dir Cnn. Close Application.ScreenUpdating = True End Sub Sub 使用sql处理数据() Application.ScreenUpdating = False '创建数据库相关对象 Dim Cnn As Object, MyCat As Object Set Cnn = CreateObject("ADODB.Connection") '创建数据库连接 Set MyCat = CreateObject("ADOX.Catalog") '创建 包含描述数据源模式目录的集合 Dim Dim Cnn As Object, MyCat As Object, rst As Object, sql $, SheetName$, f$, ph$, r&amp;, strConn$ ph = ThisWorkbook.Path &amp; "\": f = Dir(ph &amp; "*.xls?") '注意写法，创建路径 strConn = "Pr... Dim Conn As Object, Rst As Object Dim strConn As String, str SQL As String Dim i As Integer, PathStr As String Set Conn = CreateObject(“ADODB.Connection”) Set Rst = CreateObject(“ADODB.Recordset”) PathStr = ThisWorkbook.Ful 使用 pandas.pivot 构造透视表时，报错：ValueError: Index contains duplicate entries, cannot reshape 笨笨的juju女孩: df.duplicate 解决 vba 报错：要在64位系统上使用，请检查并更新Declare 语句 息椼白白白白白白: 我也是，后来解决了吗 python批量发送带附件的邮件时，收到的附件名异常且后缀为bin，解决办法 jingjiadashaoye: 你的方法一，应该是能发出去的，原代理里面的 Content-Disposition 你写成了 Content-Dispositon 所以还是 .bin文件，如果写对，发出去也应该是对的 pyinstaller打包exe，报错no module named ... huangrizheng1121: 确实解决了缺pymysql模块问题 使用 access 导入表时，报错：针对该架构进行的规范 XML验证失败。以下 XML 文档中存在错误:|。 彩色小码农: 厉害👍🏻