首页 > TAG信息列表 > 购方
循环文件夹汇总所有发票开具Excel文件数据
不打开Excel文件提取数据？ Dim a As String, n As Integer, wbs As Workbook ThisWorkbook.Sheets(1).Cells.Clear a = Dir(ThisWorkbook.Path & "\*.xlsx") 'Application.DisplayAlerts = False Dim con As New ADODB.Connection Dim rs As New