想动态读取excel表的数据,添加到一个临时表中。 Dim Book As New XLS.Book(“外部表全路径名称”)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(y)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
DataTables("目标临时表").DataRows.Clear
DataTables("目标临时表").AddNew(rg.Rows.count)
rg.copy
Tables("目标临时表").Select(0,0)
Syscmd.Edit.Paste()
这样似乎不行,数据没有进到“目标临时表”中