SaveAs to existing file

J

Jan Holmstrom

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
 
G

Gary''s Student

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
 
J

Jan Holmstrom

Hi "Gary" Student,

Thank you so much - Your answer solved my problem.

Best regards
Jan holmstrom

"Gary''s Student" skrev:
 
G

Gary''s Student

Glad to help.
--
Gary''s Student - gsnu200834


Jan Holmstrom said:
Hi "Gary" Student,

Thank you so much - Your answer solved my problem.

Best regards
Jan holmstrom

"Gary''s Student" skrev:
 
D

Doug Glancy

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
 
J

Jan Holmstrom

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:
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top