红色的表名肯定有误。
Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = False
Tables("订单组订单查询_mb").SaveExcel(ProjectPath & "test.xls","原始数据",flg)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("待导入数据")
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True