VSTO中怎么复制某一特定工作表到新工作簿并另存

a33030626

VSTO中怎么复制某一特定工作表到新工作簿并另存,  哪位大神写一个范例谢谢

VBA 代码如下

Sub 复制报表()
   Dim Sh As Integer
   Dim Th As Workbook, Wb As Workbook
   Dim il As String
   Set Th = ThisWorkbook
   il = Left(Th.Name, InStr(Th.Name, ".") - 1) & "-01" & ".xlsx"    '要另存的工作表名
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
For Sh = 1 To Sheets.Count
    If Sheets(Sh).Visible = True And Right(Sheets(Sh).Name, 3) = "报表1" Then    '当工作表可见和右边3个字等于报表1

      Th.Sheets(Sh).Copy before:=Sheets(1)       '复制到sheet1前面
       Cells.Copy
       Cells.PasteSpecial Paste:=xlPasteValues      '粘贴成值
       Columns("L:R").Delete                              '删除L:R列
       ActiveSheet.Move                                     '移动到新工作簿
      Set Wb = Workbooks(Workbooks.Count)
      End If
   Next Sh
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
      Wb.SaveAs Th.Path & "\" & il, FileFormat:=xlWorkbookDefault
End Sub

tswing

worksheet.copy，就这一句，worksheet一个工作表对象，执行后将一工作表复制到一个新的工作簿，并激活为当前工作簿。
activeworkbook.saveas ....就是另存为一个工作簿文档了。

a33030626

tswing 发表于 2018-6-7 06:52
worksheet.copy，就这一句，worksheet一个工作表对象，执行后将一工作表复制到一个新的工作簿，并激活为当 ...

怎么来确定这个worksheet是你要复制的工作表呢? 直接像VBA一样SHEETS(I).COPY bofor:   这样不行~~~

tswing

a33030626 发表于 2018-6-7 08:11
怎么来确定这个worksheet是你要复制的工作表呢? 直接像VBA一样SHEETS(I).COPY bofor:   这样不行~~~

VSTO 好像已经取消了 Sheet 对象，现在工作表对象较常用的就是 worksheets(表名)，注意调用对象前要加前缀。
外接程序、文档级程序对 Excel对象调用不太一样，外接程序中大多要用：
xlApp.Excel对象，其中 xApp表示 Excel Application;


而文档级的，还可以用：
Gloabs.Excel对象。
=======================================
定义对象变量，要注意命名空间，应用程序对象（如经常使用的 Excel对象），定义是要加前缀，
召唤，dim myxl as excel.workbook

自己多学习、练习。

a33030626

tswing 发表于 2018-6-7 17:18
VSTO 好像已经取消了 Sheet 对象，现在工作表对象较常用的就是 worksheets(表名)，注意调用对象前要加前 ...

哎,关键是找不到VSTO  VB.NET的教程,找了3天了

lipton

操作和VBA一样: 看代码.
测试环境 win7 64wei office2010 64位 vs2010 64位
项目：文档类VSTO，外接插件也差不多，只是引用对象略有不同。

1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   
2. 
   
3.         '测试用单元格()
   
4.         Dim rng As Excel.Range = Me.Range("a1:e2")
   
5.         rng.Value2 = "test"
   
6.         '新建工作簿Interop.Excel对象
   
7.         Dim newWorkbook As Excel.Workbook = Me.Application.Workbooks.Add()
   
8.         '保存名称和路径
   
9.         newWorkbook.SaveAs("newtast.xlsx")
   
10. 
    
11.         '宣告工作表变量，引用目标工作表
    
12.         Dim newsheet As Microsoft.Office.Interop.Excel.Worksheet = newWorkbook.Worksheets("sheet1")
    
13. 
    
14.         '复制本工作表到目标工作表()
    
15.         rng.Copy(newsheet.Range("a1"))
    
16. 
    
17.         newWorkbook.Close(True)
    
18. 
    
19.     End Sub
    
20. End Class

复制代码

a33030626

lipton 发表于 2018-6-8 08:24
操作和VBA一样: 看代码.
测试环境 win7 64wei office2010 64位 vs2010 64位
项目：文档类VSTO，外接插件 ...

可以直接me. 的啊~~   我找到的都是先定位application  然后定位activebook，在定位activesheet

很有参考价值，晚上回去试试