Open excel file into worksheet of open workbk [Solved/Closed]
hedles2
Posts Saturday April 11, 2009Registration date
April 12, 2009
Last seen
-
Apr 12, 2009 at 04:22 AM - Latest reply: Fetzel
- Jul 23, 2010 at 03:47 PM
The following code will copy the sheet2copy to the target workbook (as a new sheet)
sheets(sheet2copy).activate
Sheets(sheetname).copy after:=Workbooks(target workbookname).Sheets(1)
workbooks(sourceworkbook).close
However, you don't appear to have read my question carefully. I wrote:
"I'd like to be able to open a file directly into a new worksheet of an open workbook".
I already know how to copy a worksheet from an open workbook to another workbook. I want to avoid this step altogether by opening the saved file directly into a sheet in the target workbook. This new sheet might need to be created separately first, or might be created by the same code that reads the external file into it. Something like,
The negatives of this method are:
1. there is no 'add' method for the collection HTMLProjectItems, so I can only create more than one HTMLProjectItem (which I require) by a roundabout method and
2. I have not yet been able to find a way to prevent the annoying "refresh/don't refresh" dialogue from appearing every time I use the LoadFromFile method. Switching off alerts with,
Application.DisplayAlerts = False
does not work. Nor does switching off interactive mode with,
I just figured this out! I copied my Template into 3 different directories (i.e. Drive\Program Files\Microsoft Office\Templates\1033 and 2 other that had pre-installed templates). Then I right-clicked on the sheet tab and selected "insert" and my template was there!! Hope this helps you...
has helped 1781 users this month
However, you don't appear to have read my question carefully. I wrote:
"I'd like to be able to open a file directly into a new worksheet of an open workbook".
I already know how to copy a worksheet from an open workbook to another workbook. I want to avoid this step altogether by opening the saved file directly into a sheet in the target workbook. This new sheet might need to be created separately first, or might be created by the same code that reads the external file into it. Something like,
Activeworkbook.worksheets(1).open filename:= "xxxx.html"
might do the job if it were available - however, the worksheet object does not have an 'open' method.
Serendipitously, only because the file I am loading from is an html file, I have now found a way to do this using
ActiveWorkbook.HTMLProject.HTMLProjectItems.Item("xxx").LoadFromFile ("yyy.html")
The negatives of this method are:
1. there is no 'add' method for the collection HTMLProjectItems, so I can only create more than one HTMLProjectItem (which I require) by a roundabout method and
2. I have not yet been able to find a way to prevent the annoying "refresh/don't refresh" dialogue from appearing every time I use the LoadFromFile method. Switching off alerts with,
Application.DisplayAlerts = False
does not work. Nor does switching off interactive mode with,
Application.Interactive = False
Any thoughts?