excel tabbladnaam wijzigt bij opslaan

[mlc1]

Hallo allemaal

Wie kan mij helpen met het volgende:

Ik heb een tabblad "AGS" de inhoud hiervan bestaande uit 3 kolommen wil ik als XML file kopieren naar een aparte map.
<Eigenaar> |Administrator | </Eigenaar>
om de kolommen samen te laten voegen voor het XML bestand in <Eigenaar>Administrator</Eigenaar> heb ik een macro gemaakt



Sub Opslaan()

Sheets("ags").Select
ChDir "M:\AGS3DOWNLOAD"
ActiveWorkbook.SaveAs Filename:= _
"M:\AGS3DOWNLOAD\U" & Sheets("algemeen").Range("E9").Value & ".XML", FileFormat:=xlTextPrinter, _
CreateBackup:=False


Sheets("ALGEMEEN").Select
ChDir "M:\UITVOERAANGIFTE"
ActiveWorkbook.SaveAs Filename:="M:\UITVOERAANGIFTE" & Sheets("algemeen").Range("E10").Value & ".xls", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


end sub

maar bij het uitvoeren verandert de naam AGS in wat er vermeld staat in Sheets("algemeen").Range("E9")
en dat moet niet de tabbladnaam moet AGS blijven

Echter Tabblad "ALGEMEEN" verandert niet van naam

zit het probleem hier omdat ik de extensie .XML", FileFormat:=xlTextPrinter gebruik?

in een eerdere versie gebruikte ik deze macro daarin werd tabblad TXT naam niet gewijzigd.

Sheets("txt").Select
ChDir "M:\AGS3DOWNLOAD"
ActiveWorkbook.SaveAs Filename:= _
"M:\AGS3DOWNLOAD\U" & Sheets("algemeen").Range("E10").Value & ".txt", FileFormat:=xlTextMSDOS, _
CreateBackup:=False

Graag jullie oplossing

Bij voorbaat dank

Met vriendelijke groet Ron

 

[ExcelAmateur]

Kijk hier eens,
Op deze pagina kun je zien hoe je met TAGS werkt
Had je nu toch wel moeten weten.

 

[jkpieterse]

Zet voor

ActiveWorkbook.SaveAs

Deze regel:

ActiveSheet.Copy

En aan het einde van de routine:

If Not ActiveWorkbook.Name = ThisWorkbook.Name Then
    ActiveWorkbook.Close False
End If

 

[mlc1]

Kijk hier eens,
Op deze pagina kun je zien hoe je met TAGS werkt
Had je nu toch wel moeten weten.

hallo excel amateur deze link werkt niet

 

[mlc1]

Zet voor

ActiveWorkbook.SaveAs

Deze regel:

ActiveSheet.Copy

En aan het einde van de routine:

If Not ActiveWorkbook.Name = ThisWorkbook.Name Then
    ActiveWorkbook.Close False
End If

Dank je jkpieterse


dit gaat fout macro blijft er op hangen en maakt ook een nieuw workbook aan

de bedoeling is dat het bestaande workbook niet afgesloten wordt er zit een draaitabel in welke het AGS tabblad vult
en alleen de gegevens uit tabblad AGS in een xml bestand opslaat.
waarna ik via de draaitabel weer AGS vul en de gegevens weer als xml opsla . enz.

ander idee?

met vriendelijke groet
Ron

 

[mlc1]

iK BEN ER UIT was heel gemakkelijk

door direct na

Sheets("ags").Select
ChDir "M:\AGS3DOWNLOAD"
ActiveWorkbook.SaveAs Filename:= _
"M:\AGS3DOWNLOAD\U" & Sheets("algemeen").Range("E9").Value & ".XML", FileFormat:=xlTextPrinter, _
CreateBackup:=False


ActiveSheet.Name = "AGS" toe te voegen blijft het tabblad AGS de zelfde naam houden

Nu de hamvraag:
waarom lukt het niet om :=xlOpenXMLWorkbookMacroEnabled,
toe te voegen aan
ActiveWorkbook.SaveAs Filename:= _
"M:\AGS3DOWNLOAD\U" & Sheets("algemeen").Range("E9").Value & ".XML", FileFormat:=xlTextPrinter, _
CreateBackup:=False


Groet Ron

 

[edmoor]

Toevoegen zal niet gaan omdat je al FileFormat:=xlTextPrinter gebruikt. Wel kan je xlTextPrinter wijzigen in xlOpenXMLWorkbookMacroEnabled.

 

[snb]

Bestudeer ook eens een basisboek VBA in Excel; bijv. https://www.bol.com/nl/p/vba-voor-dummies/1001004005510771/

 

[mlc1]

vraag is opgelost