How to create a workbook using template when another workboo

ssunchen · May 17th, 2002, 06:34 PM

Dear Excel expert,

I used a template to create a workbook and make it visible. If another workbook was opened when run the VB program, The new workbook is not show up. I close exit the program and go to the folder that stored the new workbook to open it. It is empty.

Could you teach me how to make it works when another workbook was opened.

thank you very much.

The code example is as follow.

Private Sub CreateButton_Click()

Dim Report As Object .
Dim ReportName As String
Dim strExcelFileName As String
Dim strReportName As String

ReportName = App.Path & "template.XLT"

Set Report = GetObject(ReportName)

strExcelFileName = Application.GetSaveAsFilename(App.Path & "\\" & "test .xls", fileFilter:="Excel Files (*.xls), *.xls")

Report.SaveAs FileName:=strExcelFileName

strReportName = strExcelFileName

Set Report = GetObject(strReportName)

Report.Application.Visible = True
Report.Parent.Windows(1).Visible = True

Report.Worksheets("report1").Select

DoEvents

With Report.Worksheets(1)

.Range("A2").Value = "Last Name"
.Range("A3").Value = "First Name"

End With

Report.Save

End Sub

ssunchen

Ivan F Moala · May 18th, 2002, 01:33 AM

Looks like your've tried to do this via
VB ??
If so then...I'll have a look.

Please advise.

Tom Schreiner · May 18th, 2002, 03:50 AM

Hi ssunchen
You have answered none of the replies posted to your topics.
No one really needs a thankyou, but if most people are like me, they would like to know if they accomplished anything in helping you...
Tom

ssunchen · May 19th, 2002, 05:17 PM

Hello Tom and all others whom have replied to my msgs... I have been much appreciative of all your help in excel and have always updated and thanked those that replied to my msgs. If one was not replied to, it was in error and I apologize, for the most part, I have learned a great deal from this msg board. Thank you.

May 18th, 2002, 01:33 AM	#2
Ivan F Moala MrExcel MVP Join Date: Feb 2002 Location: Auckland, New Zealand Posts: 4,209	Looks like your've tried to do this via VB ?? If so then...I'll have a look. Please advise. __________________ Kind Regards, Ivan F Moala From the City of Sails

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 17th, 2002, 06:34 PM	#1
ssunchen New Member Join Date: Apr 2002 Location: Michigan, USA Posts: 17	Dear Excel expert, I used a template to create a workbook and make it visible. If another workbook was opened when run the VB program, The new workbook is not show up. I close exit the program and go to the folder that stored the new workbook to open it. It is empty. Could you teach me how to make it works when another workbook was opened. thank you very much. The code example is as follow. Private Sub CreateButton_Click() Dim Report As Object . Dim ReportName As String Dim strExcelFileName As String Dim strReportName As String ReportName = App.Path & "template.XLT" Set Report = GetObject(ReportName) strExcelFileName = Application.GetSaveAsFilename(App.Path & "\\" & "test .xls", fileFilter:="Excel Files (.xls), .xls") Report.SaveAs FileName:=strExcelFileName strReportName = strExcelFileName Set Report = GetObject(strReportName) Report.Application.Visible = True Report.Parent.Windows(1).Visible = True Report.Worksheets("report1").Select DoEvents With Report.Worksheets(1) .Range("A2").Value = "Last Name" .Range("A3").Value = "First Name" End With Report.Save End Sub ssunchen

May 18th, 2002, 03:50 AM	#3
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi ssunchen You have answered none of the replies posted to your topics. No one really needs a thankyou, but if most people are like me, they would like to know if they accomplished anything in helping you... Tom

May 19th, 2002, 05:17 PM	#4
ssunchen New Member Join Date: Apr 2002 Location: Michigan, USA Posts: 17	Hello Tom and all others whom have replied to my msgs... I have been much appreciative of all your help in excel and have always updated and thanked those that replied to my msgs. If one was not replied to, it was in error and I apologize, for the most part, I have learned a great deal from this msg board. Thank you.