Excel Open
Hi Jim
You can use this for example to select the workbook that you want to open and do the things you want with this workbook. Sub test() Dim FName As Variant Dim wb As Workbook Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = ThisWorkbook.Path ChDrive MyPath ChDir MyPath FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls") If FName < False Then Set wb = Workbooks.Open(FName) MsgBox "your code" wb.Close True End If ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Jim Heavey" wrote in message ... I have some sample code which allows me to create a excel file and save it, but I am looking for an example of how to open an existing excel file and then add data to an existing sheet. I have a book on order, but I need to get this started now. Thanks in advance for your assistance!! |
All times are GMT +1. The time now is 01:22 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com