Need to save/write ranges to a workbook
Might also want to populate fileReadName
Sub DoFileRead()
Dim fileReadName
fileReadName = Application.GetOpenFilename ("Excel Files (*.xls), *.xls")
If fileReadName < False Then
ActiveWorkbook.Open Filename:=fileReadName
Activeworkbook.Worksheets("Copy").Copy _
Befo=Workbooks("Coax Designer II.xls").Sheets(1)
End If
End Sub
--
Regards,
Tom Ogilvy
"Bob Phillips" wrote in message
...
It's a bit pointless trying to use the SaveAs method to open a file!
Sub DoFileRead()
Dim fileReadName
Application.GetOpenFilename ("Excel Files (*.xls), *.xls")
If fileReadName < False Then
ActiveWorkbook.Open Filename:=fileReadName
Activeworkbook.Worksheets("Copy").Copy _
Befo=Workbooks("Coax Designer II.xls").Sheets(1)
End If
End Sub
--
HTH
RP
(remove nothere from the email address if mailing direct)
wrote in message
oups.com...
Sorry Bob, not to be too obtuse, but what I'd really like to do is the
following:
1. Prompt for the worksheet filename (no problem here, I can see how
to use the GetOpenFilename method)
2. Open the workbook (can't seem to find the right method for this)
3. Copy the worksheet (named "Copy") from that workbook to the main
workbook (named "Coax Designer II.xls")
4. Then copy the ranges from it (again, no problem here... I already
have this working).
Thanks!
|