关于VSTO中PasteSpecial 方法的问题~~~

hjyocean

很蛋疼，最近在弄VSTO，本人用的是VS2010的专业版，现在如下代码，是关于工作簿之关复制与粘贴的：

[code=vb]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wa As New Excel.Application
        Dim wbname As String = InputBox("请输入新创建的模板的名称")
        Dim wb As Excel.Workbook = wa.Workbooks.Add()
        Dim ws As Excel.Worksheet = wb.Worksheets(1)
        ws.Name = "报价清单"
        Globals.Sheet2.Application.Selection.copy()
        ws.Range("C1").PasteSpecial(Excel.XlPasteType.xlPasteFormulasAndNumberFormats, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, , )
        wb.SaveAs("D:\price\template\" & wbname & ".xlsx")
        wb.Close()
        Call 模板目录_初始化()
    End Sub[/code]


关于PasteSpecial 方法的参数，有这样几项：
xlPasteAll
xlPasteAllExceptBorders
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats



现在，我是想将格式和公式一并复制到新表，然后保存的。

可问题是：每一个我都试过了，没有一个是将公式和格式一并复制粘贴的（我在VBA下是可以将公式和格式一并复制粘贴的）。

请看我试的每一个的结果：

xlPasteAll  ：复制结果得到图片。
xlPasteAllExceptBorders  ：复制结果得到数值
xlPasteColumnWidths  ：得到部分公式，格式不全。。。。。。。。
xlPasteComments  ：值
xlPasteFormats   ：值
xlPasteFormulas   ：图片
xlPasteFormulasAndNumberFormats   ：值
xlPasteValidation   ：值
xlPasteValues   ：值
xlPasteValuesAndNumberFormats     ：值



我完全弄不明白这样的结果是怎么回事，大家可以试下同样的操作，看得到什么样的结果。
还是说是我的代码有问题？？？或者是设计有问题？？？

tet208

学学英文吧....很清楚的!

hjyocean

各位大哥，不知道你们有没有用过vs2010的excel的range()，复制与粘贴。


当我在同一个工作簿中，sheet1中的区域复制，然后粘贴到sheet2中的区域时，用的是xlPasteAll ，完全没有问题，无论公式还是格式，还是数值，都没有问题的。


当我用vsto新建一个工作簿，Dim wb As Excel.Workbook = wa.Workbooks.Add()
然后，在我当前操作的工作簿中的sheet1中将区域复制，然后粘贴到刚刚新建的工作簿wb中的其中一个文档，然后保存到指定位置。得到的结果却是一张图片。。。。（用的也是xlPasteAll ）。。。。

请教一下。。这到底是什么原因呢？？

hjyocean

tet208 发表于 2013-2-22 11:52
学学英文吧....很清楚的!

这个我懂，问题是得到的结果与描述的完全不同，比如xlPasteAll  完全粘贴，如果我从同一人工作簿中的sheet1复制，粘贴到sheet2上的话，这是完全没有问题的，无论格式还是公式都没有问题，但是，当我从workbook1中的sheet1中复制，然后粘贴到workbooks.add（）打开的sheet1里面时，得到的结果就只是一张图片了，不信你试试。

wpxxsyzx

短消息收到
没有出现图片
Globals.Sheet2.Application.Selection.copy()
看看vba里selection的帮助
如果要复制当前选择就Application.Selection.copy()
如果要复制指定的内容就Globals.表名.单元格区域.copy()

hjyocean

wpxxsyzx 发表于 2013-2-23 14:36
短消息收到
没有出现图片
Globals.Sheet2.Application.Selection.copy()

1. Private Sub 按钮_创建_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 创建.Click
   
2. 
   
3.         Dim wstarget As Excel.Worksheet = Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet
   
4. 
   
5.         Dim wbname As String = InputBox("请输入新创建的模板的名称")
   
6.         Dim wa As New Excel.Application
   
7.         Dim wb As Excel.Workbook = wa.Workbooks.Add()
   
8.         Dim ws As Excel.Worksheet = wb.Worksheets.Item(1)
   
9. 
   
10.         wstarget.Range("P12").Copy()
    
11.         ws.Range("A1").PasteSpecial()
    
12.         wb.SaveAs("D:\price\template" & wbname)
    
13.         wb.Close()
    
14.         wa.Quit()
    
15.         Call 模板目录_初始化()
    
16.     End Sub

复制代码

这个是我用vs2010专业版弄的excel插件（addin）中的一个按钮代码。

得到的结果如下图。。。。

C:\Documents and Settings\Administrator\桌面\未命名.jpg

hjyocean

wpxxsyzx 发表于 2013-2-23 14:36
短消息收到
没有出现图片
Globals.Sheet2.Application.Selection.copy()

hjyocean

wpxxsyzx 发表于 2013-2-23 14:36
短消息收到
没有出现图片
Globals.Sheet2.Application.Selection.copy()

复制之前是这个样子的：

wqfzqgk

你先复制一下工作表，再删除数据，再拷贝数据{:soso_e120:}

wqfzqgk

先复制数据再复制格式{:soso_e160:}