请问VBA是否可实现该功能，能实现的话我打算好好去学下

就你的问题多

可以实现的

类似的示例
https://www.zhihu.com/question/367891699/answer/985868131

Sub CreateFolderAndTemplates()
Dim folderPath As String
Dim masterWorkbook As Workbook
Dim templateWorkbook As Workbook
Dim summarySheet As Worksheet
Dim templateSheet As Worksheet
Dim i As Integer
Dim orderCount As Integer
' 设置文件夹路径
folderPath = "D:\数据统计\"
' 创建文件夹
If Dir(folderPath, vbDirectory) = "" Then
MkDir folderPath
End If
' 创建统计汇总表的工作簿
Set masterWorkbook = Workbooks.Add
masterWorkbook.SaveAs folderPath & "统计汇总表.xlsx"
Set summarySheet = masterWorkbook.Sheets(1)
summarySheet.Name = "统计汇总"
' 创建模板表
Set templateWorkbook = Workbooks.Add
templateWorkbook.SaveAs folderPath & "SA000000.xlsx"
Set templateSheet = templateWorkbook.Sheets(1)
templateSheet.Cells(1, 1).Value = "订单信息" ' 在模板表中添加一些内容
templateWorkbook.Close
' 在统计汇总表中初始化
summarySheet.Cells(1, 1).Value = "订单编号"
summarySheet.Cells(2, 1).Value = "SA000001" ' 初始值
' 处理每次新订单的逻辑
Dim newOrderWorkbook As Workbook
Dim newOrderNumber As String
' 假设读取的订单数量
orderCount = 1 ' 作为示例使用，可以增加此逻辑读取实际订单数量
' 循环生成新表
For i = 1 To orderCount
newOrderNumber = Format(i, "000000") ' 生成新的订单编号
Set newOrderWorkbook = Workbooks.Add
newOrderWorkbook.SaveAs folderPath & "SA" & newOrderNumber & ".xlsx"
' 更新统计汇总
summarySheet.Cells(i + 1, 1).Value = "SA" & newOrderNumber
newOrderWorkbook.Close
Next i
' 保存并关闭统计汇总工作簿
masterWorkbook.Close SaveChanges:=True
MsgBox "文件夹和模板表创建完成！"
End Sub

Sub UpdateSummary()
Dim folderPath As String
Dim summaryWorkbook As Workbook
Dim summarySheet As Worksheet
Dim lastRow As Long
Dim newOrderNumber As String
Dim i As Long
' 设置文件夹路径
folderPath = "D:\数据统计\统计汇总表.xlsx"
' 打开统计汇总表
Set summaryWorkbook = Workbooks.Open(folderPath)
Set summarySheet = summaryWorkbook.Sheets("统计汇总")
' 查找最后一行
lastRow = summarySheet.Cells(summarySheet.Rows.Count, 1).End(xlUp).Row
' 更新统计汇总表的值
For i = 2 To lastRow ' 从 A2 开始
newOrderNumber = summarySheet.Cells(i, 1).Value
If newOrderNumber <> "" Then
Dim orderWorkbook As Workbook
On Error Resume Next
Set orderWorkbook = Workbooks.Open("D:\数据统计\" & newOrderNumber & ".xlsx")
On Error GoTo 0
If Not orderWorkbook Is Nothing Then
summarySheet.Cells(i, 2).Value = orderWorkbook.Sheets(1).Cells(1, 1).Value ' 这里可以根据需求更新不同的单元格
orderWorkbook.Close SaveChanges:=False
End If
End If
Next i
' 保存并关闭统计汇总表
summaryWorkbook.Close SaveChanges:=True
MsgBox "统计汇总表已更新！"
End Sub

power query

可以用VBA和EXCEL链接ACC数据库更方便

关系型数据文件还得是 Access啊