主题：[求助]选中的行导出

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim idx As Integer = 2
For Each r As Row In Tables("表A").GetCheckedRows
    For Each c As Col In Tables("表A").cols
        ws.cells(idx, c.Index+1).Value = r(c.name)
    Next
    idx += 1
Next

app.Visible = True