主题：[求助]数据导出到模板的问题

Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = False
Tables("表A").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
'app.quit

 1楼和你7楼的不同，上传例子看看。

 实在不行的话，你就用vba导出数据嘛。

Dim dt As Table = Tables("表A")
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("原始数据")

For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
    ws.cells(1, c+1).Value = dt.Cols(c).caption
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        ws.cells(r+2, c+1).Value = dt.rows(r)(c)
    Next
Next

ws = Wb.WorkSheets("待导入数据")
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True
'app.quit