Automatisch opslaan

[Dennisjuhh]

Beste Excel Konings en Koninginnen,

Ik weet niet of het überhaupt mogelijk is maar ik probeer het volgende te verwezenlijken. Ik ben op het moment bezig met een xml import sjabloon aan het maken. Hierbij worden de xml zinnen gevuld door een excel forumule.
Voordat je ergens een xml kan importeren moet je de "gegevens" kopieren in excel en plakken in een kladblokbestand en opslaan als "xxxxx".xml

Is het mogelijk om een knop in excel te maken met "maak xml" en dat excel dan automatisch het werkblad waarop het betrekking heeft opslaat als een kladblokbestand met de .xml extensie in een nieuw bestand?

Ik denk dat het best veel is wat ik vraag, dus alvast iedereen bedankt die me wil helpen!

P.S. ik heb zowat 0 kennis van vba

Bekijk bijlage Voorbeeldbestandje 1.xlsx

 

[edmoor]

De simpele manier. Hang deze macro achter een knop:

Sub OpslaanAlsXML()
    Dim xmlFile As String

    xmlFile = ThisWorkbook.Path & "\HM_Dennisjuhh.xml"
    ActiveWorkbook.SaveAs Filename:=xmlFile, FileFormat:=xlText, CreateBackup:=False, Local:=True
End Sub

Het XML bestandje wordt daar aangemaakt waar het Excel bestand vandaan is geopend.

Je aangepaste document:
Bekijk bijlage HM_Dennis.xlsm

 

[Dennisjuhh]

dankjewel!

 

[Dennisjuhh]

hoe maak je zo knop in excel? en plak je de code erachter?

 

[edmoor]

Kijk hier eens voor instructies:
http://office.microsoft.com/nl-nl/e...p-toevoegen-aan-een-werkblad-HP010236676.aspx

 

[Dennisjuhh]

bedankt!!!

 

[edmoor]

Veel plezier ermee :thumb:

 

[Dennisjuhh]

Ja echt super=)