以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]将usedrange复制到table中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178031)

--  作者：chnfo --  发布时间：2022/6/15 13:40:00 --  [求助]将usedrange复制到table中 Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "\\XYZ.xlsx") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Dim Rg As MSExcel.Range = Ws.UsedRange App.Quit 这个可以获得excel的数据区域 如何将它们复制到tables("A")中？

--  作者：有点蓝 --  发布时间：2022/6/15 13:43:00 --   参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0