kopie naar nieuwe werkmap zonder vba

[Djang]

Hoi ,

ik zou de gegevens willen opslaan in een nieuwe werkmap maar dan zonder de vba
nu word het opgeslaan als XLS maar bij het openen vd de map gaat hij toch de vba meegeven


Bekijk bijlage test werkmap kopieren.xlsm

het is een onderdeel van een groter programma , en ik zou bepaalde blaren willen kopiëren ,
nu was ik aan't denken een nieuwe Werkmap te laten maken en de nodige pagina's te kopiëren ? ?

iemand voorstellen ?

Greetings Jan

 

[snb]

sla op als xlsx

 

[Elsendoorn2134]

Jan,

Ik probeer het even te vertalen, je wilt een nieuw bestand aanmaken in de oude Excel 97 formaat (.xls) zonder
dat het VBA programma mee gekopieerd wordt?
Ten eerste maak je gebruik van een versie ouder dan Excel 97 en een SaveAs maakt niet automatisch gebruik van de
extensie om te bepalen welk fileformat gebruikt moet worden, gebruik daarvoor:

ActiveWorkbook.SaveAs Filename:="MijnBestand.xls", fileFormat:=xlExcel9795

Het makkelijkst is om een nieuw bestand aan te maken met Workbooks.add, en hier het tabblad in te kopiëren.
Daarna kun je hem met bovenstaande code opslaan met het fileformat van Excel 97.

Veel Succes.

 

[Djang]

Hoi ,

ik werk met excel 2007 en idd het moet xslx zijn , sorry ! !

dit werkt

Private Sub toetsOpslaan2_Click()
Dim invoer As Integer
Dim wbNew As Workbook

Set wbNew = Workbooks.Add()

Set ws = Worksheets("Blad1")

ws.Range("A5").Value = Me.invoer.Value


wbNew.SaveAs Filename:=Me.invoer & ".xlsx"


Unload Me

End Sub

maar nu zou ik maar alleen eerste 5 sheets vd werkmap in de nieuwe werkmap willen steken , dit zijn invulbladeren via userForms de rest zijn lookuplisten

 

[Warme bakkertje]

Sub tst()
    mysheets = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
    myname = Me.invoer.Value
    Sheets(mysheets).Copy
    With ActiveWorkbook
        .SaveAs "G:\Mijn documenten\" & myname & ".xlsx", 51
        .Close True
    End With
End Sub

 

[Djang]

Hoi warme bakkertje , Bedankt deze code werkt . kan je me zeggen waarom de 51 er staat ? werkt ook zonder

 .SaveAs "G:\Mijn documenten\" & myname & ".xlsx", [COLOR="#FF0000"]51[/COLOR]
        .Close True

 

[Elsendoorn2134]

Jan,

als je even zoekt in de helpfunctie zal je zien dat de 51 een kode is voor het fileformat.
51 = xlOpenXMLWorkbook

Groetjes,
Elsendoorn2134

 

[Djang]

Hoi Elsendoorn2134

bedankt voor info , maar via helpfunctie vind ik niks ! !
en op het internet vind ik ook al niet zo bijster veel hierover , heb jij enig idee waar ik een goede uitleg vind over de codes ?

Greetings jan

 

[Warme bakkertje]

http://msdn.microsoft.com/en-us/library/bb241279(v=office.12).aspx

 

[Djang]

@warme bakkertje Thanks