Ik zit met een klein probleempje waar ik al de hele ochtend mee zit te stoeien.
Ik heb een excelmap zo opgezet dat in cel AM6 de html-code voor een gehele webpagina staat. Nu wil ik een macro hebben de inhoud van een bestaande HTML pagina overschrijft. Deze pagina heet index.html en staat in dezelfde map als het excelbestand.
Nu is het mij wel geluk via de onderstaande macro. Echter word de data bewerkt waardoor de opmaak verloren gaat. Een " word opgeslagen als "". In onderstaande code heb ik een sheet gemaakt die enkel de inhoud van cel AM6 bevat.
Kan iemand hier mij verder mee helpen?
Ik heb een excelmap zo opgezet dat in cel AM6 de html-code voor een gehele webpagina staat. Nu wil ik een macro hebben de inhoud van een bestaande HTML pagina overschrijft. Deze pagina heet index.html en staat in dezelfde map als het excelbestand.
Nu is het mij wel geluk via de onderstaande macro. Echter word de data bewerkt waardoor de opmaak verloren gaat. Een " word opgeslagen als "". In onderstaande code heb ik een sheet gemaakt die enkel de inhoud van cel AM6 bevat.
Kan iemand hier mij verder mee helpen?
Code:
Sub OPSLAAN1()
Dim sPath As String
Const sFile As String = "index.html"
sPath = Application.ActiveWorkbook.Path & "\" 'waar de Excelfile nu staat/geopend is
Sheets("index.html").Copy 'dit zorgt voor een copie en nieuw workbook in 1 keer!'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
sPath & sFile _
, FileFormat:=xlText, CreateBackup:=False, local:=True
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub