Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with activating window from Application.GetOpenFilename
I am new to VBA and I have spent hours trying to solve the following macro.
Currently, this code works how I want it except I would like to change the of the file names of "Book1.xls" and "Book2.xls" to file paths for variables "sFile1" and "dFile". For example, if I selected "Book4.xls" and "Book5.xls", I would like the activewindow to be reflected these file paths instead. thanks for any help! Curt J Sub CopyPaste() Dim sFile As Workbook Set sFile = Workbooks.Open(Application.GetOpenFilename) Dim dFile As Workbook Set dFile = Workbooks.Open(Application.GetOpenFilename) Windows("Book1.xls").Activate Sheets("Sheet1").Select Cells.Select Selection.Copy Windows("Book2.xls").Activate Sheets("Sheet1").Select Cells.Select ActiveSheet.Paste Windows("Book1.xls").Activate Sheets("Sheet2").Select Cells.Select Selection.Copy Windows("Book2.xls").Activate Sheets("Sheet2").Select Cells.Select ActiveSheet.Paste End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application.GetOpenFileName | Excel Programming | |||
Application.GetOpenFilename vs Application.Dialogs(xlDialogsOpen) | Excel Programming | |||
Application.GetOpenFilename | Excel Programming | |||
Application.GetOpenFilename | Excel Programming | |||
Application.GetOpenFileName | Excel Programming |