VS 2008 Excel Add-In - Copy worksheet between workbooks : Visual Stuido, Excel, Add-In, VSTO, copy worksheet

Experts Exchange

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.3

VS 2008 Excel Add-In - Copy worksheet between workbooks

Asked by jramshur in VSTO, Microsoft Excel Spreadsheet Software, VB Objects

Tags: Visual Stuido, Excel, Add-In, VSTO, copy worksheet

I've created an Excel Add-In with a custom ribbon tab in VS 2008 VB. I'm trying to open a new workbook and copy a sheet from the new workbook to the currently open workbook.

I've tried several different methods and combinations, but nothing works. I've found post of similar issues, but again no help. I can open the new workbook, but copying the worksheet over is what is causing my troubles.

In the code example I've included two methods I've attempted. One using the worksheet.copy method, and one using the range.copy method. Method 1 returns a "COM object that has been separated from its underlying RCW cannot be used" error. Method 2 seems to do nothing.

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

           
           
             With Globals.ThisAddIn.Application
Dim wb1_last As String
Dim wb1_name As String
wb1_last = "Sheet3" ' last sheet name in destination workbook
wb1_name = .ActiveWorkbook.Name 'name of this workbook
 
'declare and open source workbook to copy from
Dim wb2 As Excel.Workbook
wb2 = .Workbooks.Open(My.Settings.pathExamForm) 'open source wb
 
'METHOD 1
wb2.Sheets("2009").Copy(After:=.Workbooks(wb1_name).Sheets(wb1_last))
 
'METHOD 2
.Goto(.ActiveWorkbook.Sheets("2009").Range("B2"))
.ActiveWorkbook.Sheets("2009").Cells.Select()
.ActiveWorkbook.Sheets("2009").Range("B2").Activate()
'copy worksheet from source to destination
wb2.Worksheets("2009").UsedRange.Copy(.Worksheets(1).Range("A1"))
.ActiveSheet.Selection.Copy()
.Workbooks(wb1_name).Sheets("Sheet1").Select()
.ActiveSheet.Paste()
End With

           
         

Related Solutions

Keywords: VS 2008 Excel Add-In - Copy wo…

	Title
1	Linking to a sheet by Sheet1, Sheet…
2	Excel Experts-Exchange Regulars, t…

Loading Advertisement...

20091118-EE-VQP-93 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. irudyk46,150
2. mas_oz...28,807
3. rorya16,630
4. BlueDevilF...12,315
5. xenacode11,200
6. GrahamSkan11,000
7. tbsgadi7,500
8. chris_bot...7,350
9. emoreau6,500
10. JOrzech6,000
10. tony_ang...6,000
12. XL-Dennis5,768
13. junges5,500
14. CodeCruiser5,130
15. TheLearn...5,000
15. GlennaShaw5,000
17. ragi00174,500
18. brettdj4,000
19. matthews...3,660
20. drmason3,000
20. geneus3,000
22. boag20002,750
23. hnasr2,500
23. moorhous...2,500
23. jensfiederer2,500
23. Chaosian2,500

1. irudyk57,850
2. mas_oz...28,807
3. rorya25,130
4. GrahamSkan14,500
5. BlueDevilF...12,815
6. JOrzech12,500
7. xenacode11,200
8. CodeCruiser9,630
9. chris_bot...8,550
10. tbsgadi7,500
11. emoreau6,500
11. GlennaShaw6,500
13. tony_ang...6,000
14. XL-Dennis5,768
15. matthews...5,660
16. junges5,500
17. TheLearn...5,000
18. ragi00174,500
19. brettdj4,000
19. graye4,000
19. TechTiger...4,000
22. jjardine3,500
23. drmason3,000
23. geneus3,000
25. einarbrown2,875

VS 2008 Excel Add-In - Copy worksheet between workbooks

Asked by jramshur in VSTO, Microsoft Excel Spreadsheet Software, VB Objects

Tags: Visual Stuido, Excel, Add-In, VSTO, copy worksheet

About this solution