Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hello, I want to modify the code below to: 1. Allow the user to browse for a file and select a file 2. Perform all the steps in a second function on the selected file i #1. Naturally step one has to be completed first after which th GetDataFromClosedWorkbook() should run. AT the moment they are both running the same time. I am a newbie at i Excel VBA so please pardon me if this is really simple :) Cheers! Sub test() Dim F As Variant F = Application.GetOpenFilename("csv Files (*.csv), *.csv") If F = False Then Exit Sub Workbooks.Open F End Sub Sub GetDataFromClosedWorkbook() Dim wb As Workbook Application.ScreenUpdating = True ' turn off the screen updating Set wb = Workbooks.Open("C:\Documents and Settings\user\Desktop\Q Checklists.xls", True, True) ' open the source workbook, read only With ThisWorkbook.Worksheets("Sheet1") ' read data from the source workbook .Range("A10").Formula wb.Worksheets("PM").Range("A10").Formula ' .Range("A11").Formula wb.Worksheets("SourceSheetName").Range("A20").Form ula End With wb.Close False ' close the source workbook without saving an changes Set wb = Nothing ' free memory Application.ScreenUpdating = True ' turn on the screen updating End Su -- periro1 ----------------------------------------------------------------------- periro16's Profile: http://www.excelforum.com/member.php...fo&userid=2634 View this thread: http://www.excelforum.com/showthread.php?threadid=46949 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
print selected columns not working | Excel Discussion (Misc queries) | |||
Using FileDialog or GetOpenFileName To Allow File Creation | Excel Programming | |||
Select file after GetOpenFilename | Excel Programming | |||
Working with a cell in a selected row | Excel Programming | |||
Working with a selected range | Excel Programming |