Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs to existing file
Hi,
My macro opens a htm file with data and save it to an existing xls file (2003). When it runs - I'm asked to accept overwriting the existing file. Is it possible to make the same rutine - without Excel asking for accept? My code: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "my path" Workbooks.Open Filename:= _ "my file.htm" ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub Best regards |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs to existing file
Sub HTMTOEXCL()
' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub -- Gary''s Student - gsnu200834 "Jan Holmstrom" wrote: Hi, My macro opens a htm file with data and save it to an existing xls file (2003). When it runs - I'm asked to accept overwriting the existing file. Is it possible to make the same rutine - without Excel asking for accept? My code: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "my path" Workbooks.Open Filename:= _ "my file.htm" ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub Best regards |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs to existing file
Hi "Gary" Student,
Thank you so much - Your answer solved my problem. Best regards Jan holmstrom "Gary''s Student" skrev: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub -- Gary''s Student - gsnu200834 "Jan Holmstrom" wrote: Hi, My macro opens a htm file with data and save it to an existing xls file (2003). When it runs - I'm asked to accept overwriting the existing file. Is it possible to make the same rutine - without Excel asking for accept? My code: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "my path" Workbooks.Open Filename:= _ "my file.htm" ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub Best regards |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs to existing file
Glad to help.
-- Gary''s Student - gsnu200834 "Jan Holmstrom" wrote: Hi "Gary" Student, Thank you so much - Your answer solved my problem. Best regards Jan holmstrom "Gary''s Student" skrev: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub -- Gary''s Student - gsnu200834 "Jan Holmstrom" wrote: Hi, My macro opens a htm file with data and save it to an existing xls file (2003). When it runs - I'm asked to accept overwriting the existing file. Is it possible to make the same rutine - without Excel asking for accept? My code: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "my path" Workbooks.Open Filename:= _ "my file.htm" ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub Best regards |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs to existing file
Don't forget to turn DisplayAlerts back on:
Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Application.DisplayAlerts = True ActiveWorkbook.Close End Sub "Gary''s Student" wrote in message ... Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub -- Gary''s Student - gsnu200834 "Jan Holmstrom" wrote: Hi, My macro opens a htm file with data and save it to an existing xls file (2003). When it runs - I'm asked to accept overwriting the existing file. Is it possible to make the same rutine - without Excel asking for accept? My code: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "my path" Workbooks.Open Filename:= _ "my file.htm" ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub Best regards |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs to existing file
Hi Doug,
Thanks for the warning. My macro only runs within the workbook, and it dosn't effect other workbooks. Best regards Jan Holmstrom "Doug Glancy" skrev: Don't forget to turn DisplayAlerts back on: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Application.DisplayAlerts = True ActiveWorkbook.Close End Sub "Gary''s Student" wrote in message ... Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "C:\test\" Workbooks.Open Filename:= _ "Contact_List.html" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub -- Gary''s Student - gsnu200834 "Jan Holmstrom" wrote: Hi, My macro opens a htm file with data and save it to an existing xls file (2003). When it runs - I'm asked to accept overwriting the existing file. Is it possible to make the same rutine - without Excel asking for accept? My code: Sub HTMTOEXCL() ' ' HTMTOEXCL Makro ' Makro indspillet 15-02-2009 af Jan Holmstrøm ' ChDir "my path" Workbooks.Open Filename:= _ "my file.htm" ActiveWorkbook.SaveAs Filename:= _ "existing file.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub Best regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Allowing xlBook.SaveAs in Access code to overwrite existing workbook? | Excel Programming | |||
SaveAs macro: How do I specify "Replace existing file?" | Excel Programming | |||
Using SaveAs Statement to overwrite existing File | Excel Programming | |||
Saveas on Template retains existing name! | Excel Programming | |||
Templaste SaveAs retains existing name | Excel Programming |