Solved

set active sheet to current file

Posted on 2009-05-19
1
176 Views
Last Modified: 2012-05-07
I've written some code to read a range of cells from an excel file, as below.
Now I need to paste this into the file in which the macro is running.
How to I set the active workbook/sheet to this?


excelFileSource = "C:\\Documents and Settings\\file1.xls"
On Error Resume Next
 
Set excelApplication = GetObject(, "Excel.Application")
If Err = 429 Then
    Set excelApplication = CreateObject("Excel.Application")
End If
 
Set excelWorkbookSource = excelApplication.Workbooks.Open(excelFileSource)
excelWorkbookSource.Sheets("mySheet").Activate
' select the range to copy
ActiveSheet.Range("C3:C74").Select
Selection.Copy
 
'???

Open in new window

0
Comment
Question by:allelopath
1 Comment
 
LVL 92

Accepted Solution

by:
Patrick Matthews earned 500 total points
ID: 24424517
ThisWorkbook always refers to the workbook that contains the code.
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Outlook Free & Paid Tools
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

679 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question