Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub Exporteer()
[COLOR="#008000"] 'maak een kopie van het werkblad[/COLOR]
Sheets("te kopieren").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
[COLOR="#008000"]'verwijder de vba code[/COLOR]
wsName = Sheets(Sheets.Count).CodeName
With ThisWorkbook.VBProject.VBComponents(wsName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Dim NieuwFact As Variant
ActiveSheet.Copy
NieuwFact = "C:\Users\" & Environ("username") & "\Desktop\" & ActiveSheet.Name & ".xlsx"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=51
ActiveWorkbook.Close
Sheets(Sheets.Count).Delete
End Sub
Sub Exporteer()
'maak een kopie van het werkblad
Sheets("te kopieren").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
'verwijder de vba code
wsName = Sheets(Sheets.Count).CodeName
With ThisWorkbook.VBProject.VBComponents(wsName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.ScreenUpdating = False
Dim NieuwFact As Variant
ActiveSheet.Copy
NieuwFact = "C:\Users\" & Environ("username") & "\Desktop\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.SaveAs NieuwFact, FileFormat:=51
ActiveWorkbook.Close
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
Application.ScreenUpdating = True
End Sub
application.displayalerts = false
[COLOR=#ff0000]blad1.copy[/COLOR]
[COLOR=#ff0000]activeworkbook[/COLOR].saveas thisworkbook.path & "\hierjebestandsnaam", 51
ActiveSheet.Copy
NieuwFact = "C:\Users\" & Environ("username") & "\Desktop\" & ActiveSheet.Name & ".xlsx"
NieuwFact = Environ("userprofile") & "\Desktop\" & ActiveSheet.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & Filename & Format(Date, "ddmmyyuummss") & ".xlsx", FileFormat:=51, CreateBackup:=False
ActiveWorkbook.Close
Lijkt me toch dat deze er nog instaan.Zonder formules ?
Sub test()
Dim path As String
path = "G:\test\"
Filename = "test"
ActiveSheet.Copy
Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Buttons.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=path & Filename & Format(Date, "ddmmyyuummss") & ".xlsx", FileFormat:=51, CreateBackup:=False
ActiveWorkbook.Close
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.