以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，选择性粘贴VBA在狐表中的使用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75703)
--  作者：百灵
--  发布时间：2015/10/13 11:40:00
--  求助，选择性粘贴VBA在狐表中的使用问题
求助，选择性粘贴VBA在狐表中的使用问题，比如粘贴为数值型。代码为：
Sheets("sheet2").Range("E2:E1000,G2:G1000").Copy；
Sheets("sheet2").Range("G2:G1000,G2:G1000").PasteSpecial Paste:=xlPasteValues
但在狐表中无法使用，选择性粘贴VBA在狐表中代码如何写？急期待能够给予解决。
--  作者：大红袍
--  发布时间：2015/10/13 11:43:00
--  

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 Rg As MSExcel.Range = Ws.UsedRange
rg.Copy
rg.PasteSpecial(Paste:=MSExcel.XlPasteType.xlPasteValues, Operation:=MSExcel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
Wb.Save
App.Quit
--  作者：百灵
--  发布时间：2015/10/13 11:45:00
--  
这么快，太给力了，非常感谢！