Macro uitvoer zonder geopend bestand

[WIMLIN]

Goedemiddag,

Kan ik een macro uitvoeren in een aparte excel file (Excel 2003) terwijl het basisbestand (Excel 2007) gesloten is.

Waarom wil ik dit. Ik werk met excel 2007 en andere collega's met excel 2003.

Sub PrintenTotaalCPO()
'
' PrintenTotaalCPO Macro
' Printen Totalen CPO
'

'
    Windows("CPO BASIS TBV JANHOG.xlsx").Activate
    Sheets(Array("Totaal Resultaat", "Totaal Resultaat (split)", _
        "Alle prj Top Resultaat", "Alle prj Bottem Resultaat")).Select
    Sheets("Totaal Resultaat").Activate
    Application.ActivePrinter = "Adobe PDF op Ne01:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF op Ne01:"",,TRUE,,FALSE)"
End Sub

Ik zoek dus een nu een commando die mijn eerste regel vervangt.

 

[Gurtie]

Je kan sowieso in de macro inbouwen dat het basisbestand geopend wordt en op het eind weer afgesloten wordt. Dan ben je van het probleem af lijkt me?

 

[Wigi]

Idd. En vooraan in de code

Application.ScreenUpdating = False

en achteraan

Application.ScreenUpdating = True

zorgt ervoor dat je het zelfs niet merkt

Wigi

 

[WIMLIN]

Mijn grote probleem is dat gebruiker met excel 2003 geen excel 2007 files kunnen openen.

Kan het dan wel met de code van WIGI.

Moet die code

Application.ScreenUpdating = False

ipv zetten van

Windows("CPO BASIS TBV JANHOG.xlsx").Activate

als afsluitregel

Application.ScreenUpdating = True

 

[Gurtie]

Mijn grote probleem is dat gebruiker met excel 2003 geen excel 2007 files kunnen openen.

Kan het dan wel met de code van WIGI.

Moet die code

Application.ScreenUpdating = False

ipv zetten van

Windows("CPO BASIS TBV JANHOG.xlsx").Activate

als afsluitregel

Application.ScreenUpdating = True

Van de website van Microsoft:


Zijn Office Excel 2007-bestanden compatibel met eerdere versies?

In Office Excel 2007 wordt een nieuwe bestandsindeling gebruikt: de Microsoft Office Excel XML-indeling. Dit is een compacte, stabiele bestandsindeling die een betere integratie met externe gegevensbronnen en systemen mogelijk maakt. De Excel XML-indeling is compatibel met Microsoft Office 2003, Microsoft Office XP en Microsoft Office 2000 na toevoeging van een patch voor het conversieprogramma. Deze patch kunt u downloaden van Microsoft Office Online en Microsoft Update. Gebruikers van Microsoft Office 2003, Microsoft Office XP en Microsoft Office 2000 kunnen bestanden met de nieuwe Excel XML-indeling openen, bewerken en opslaan.

En die patch vind je hier: http://www.microsoft.com/downloads/...70-3ae9-4aee-8f43-c6bb74cd1466&displaylang=nl

groet, Gurtie

 

[WIMLIN]

Zo het weekend is weer voorbij.

 Windows("L:\R&M BeNeLux\Projecten overzicht\2007\Periode 09\CPO p09-2007 tbv JANHOG.xlsm").Activate
    Sheets(Array("Voorblad totalen", "Totaal Resultaat", "Totaal Resultaat (split)", _
        "Alle prj Top Resultaat", "Alle prj Bottem Resultaat")).Select
    Sheets("Voorblad totalen").Activate
    Application.ActivePrinter = "Adobe PDF op Ne01:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF op Ne01:"",,TRUE,,FALSE)"
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("Macro's").Select
    Application.Goto Reference:="R3C3"
    Application.ScreenUpdating = True

Mijn macro ziet er nu zo uit. Maar loopt gelijk vast op de eerste regel.

Wie kan mij vertellen wat er nu fout gaat?

Daarnaast gaan wij natuurlijk ook gebruik maken van die patch. Ook een handige tip.