Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy titles from another workbook
There are several worksheets that I use that have the same
titles. I have created a file at C:\ILA\GuestTitles.xls that have the titles I want in Sheet1 of that workbook. How can I copy the titles in GuestTitles.xls to any current worksheet. I have this much: Workbooks.open Filename:="C:\ILA\GuestTitles.xls" I can't predict the name of the activeworksheet (the target sheet) and thus am not sure how to copy the titles over. GuestTitles has titles from A1:L2. I hope I have been clear enough for a response. Thank you. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy titles from another workbook
Hi Indu,
Here's one try: ---- Option Explicit Sub copyTitles() Dim destSheet As Worksheet Dim srcBookName As String, srcBook As Workbook Set destSheet = ActiveSheet srcBookName = "C:\ILA\GuestTitles.xls" Workbooks.Open Filename:=srcBookName Set srcBook = ActiveWorkbook ActiveSheet.Rows(1).Copy Destination:=destSheet.Rows(1) srcBook.Close End Sub ---- HTH Anders Silven "Indu Aronson" skrev i meddelandet ... There are several worksheets that I use that have the same titles. I have created a file at C:\ILA\GuestTitles.xls that have the titles I want in Sheet1 of that workbook. How can I copy the titles in GuestTitles.xls to any current worksheet. I have this much: Workbooks.open Filename:="C:\ILA\GuestTitles.xls" I can't predict the name of the activeworksheet (the target sheet) and thus am not sure how to copy the titles over. GuestTitles has titles from A1:L2. I hope I have been clear enough for a response. Thank you. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy titles from another workbook
Indu
For NEW worksheets without the VBA and copying....... Create a new workbook with one sheet. On that sheet place your titles and any other formatting you wish. FileSave AsFile Type Template(*.xlt) Name it SHEET and save to your XLSTART folder. Any new inserted worksheet will be based on SHEET.xlt with your titles included. Gord Dibben Excel MVP On Sat, 3 Apr 2004 01:54:32 +0200, "Anders S" wrote: Hi Indu, Here's one try: ---- Option Explicit Sub copyTitles() Dim destSheet As Worksheet Dim srcBookName As String, srcBook As Workbook Set destSheet = ActiveSheet srcBookName = "C:\ILA\GuestTitles.xls" Workbooks.Open Filename:=srcBookName Set srcBook = ActiveWorkbook ActiveSheet.Rows(1).Copy Destination:=destSheet.Rows(1) srcBook.Close End Sub ---- HTH Anders Silven "Indu Aronson" skrev i meddelandet ... There are several worksheets that I use that have the same titles. I have created a file at C:\ILA\GuestTitles.xls that have the titles I want in Sheet1 of that workbook. How can I copy the titles in GuestTitles.xls to any current worksheet. I have this much: Workbooks.open Filename:="C:\ILA\GuestTitles.xls" I can't predict the name of the activeworksheet (the target sheet) and thus am not sure how to copy the titles over. GuestTitles has titles from A1:L2. I hope I have been clear enough for a response. Thank you. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy titles from another workbook
Thanks Anders and Gord for your help.
(Gord, I couldn't use a template because I already had data in various sheets and changed my mind about the titles!) -----Original Message----- Hi Indu, Here's one try: ---- Option Explicit Sub copyTitles() Dim destSheet As Worksheet Dim srcBookName As String, srcBook As Workbook Set destSheet = ActiveSheet srcBookName = "C:\ILA\GuestTitles.xls" Workbooks.Open Filename:=srcBookName Set srcBook = ActiveWorkbook ActiveSheet.Rows(1).Copy Destination:=destSheet.Rows (1) srcBook.Close End Sub ---- HTH Anders Silven "Indu Aronson" skrev i meddelandet news:14c2401c418f5$0e818580 ... There are several worksheets that I use that have the same titles. I have created a file at C:\ILA\GuestTitles.xls that have the titles I want in Sheet1 of that workbook. How can I copy the titles in GuestTitles.xls to any current worksheet. I have this much: Workbooks.open Filename:="C:\ILA\GuestTitles.xls" I can't predict the name of the activeworksheet (the target sheet) and thus am not sure how to copy the titles over. GuestTitles has titles from A1:L2. I hope I have been clear enough for a response. Thank you. . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change multiple Chart Titles in different sheets in the same Workbook | Excel Worksheet Functions | |||
Adding titles to formatted gridded workbook | Excel Discussion (Misc queries) | |||
Copy Titles in a long list of rows | Excel Discussion (Misc queries) | |||
HOW DO I PRINT A LIST OF WORKSHEET TITLES FOR A SPECIFIC WORKBOOK | Excel Discussion (Misc queries) | |||
How do I loop through workbook and rename all chart titles? | Excel Programming |