xls via macro opslaan als xlt

[508]

wie kan me helpen?

ik probeer een excel file zo te maken dat deze op een willekeurige plaats op een willekeurige computer kan worden geplaatst en gebruikt.
omdat ik vanuit deze excel kopieen wil opslaan van zichzelf heb ik (denk ik) een pad nodig.
nu wil ik de gebruiker de pad naar zijn map in een cel laten plakken zodat ik deze informatie in vba kan gebruiken om kopieen van het bestand op te slaan.
als hij 1 x de file naam heeft geplakt wil ik via vba de xls opslaan als xlt om beschadigen te voorkomen. nu lukt het me wel om op te slaan als xls maar niet als xlt.

de code die ik tot dusver heb is:

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ReplaceFile = True
    ActiveWorkbook.Save
    Sheets("name").Select
    Range("EU8").Select
' EU8 is de cel met de locatie waar de file moet worden opgeslagen
    ActiveWorkbook.SaveAs Filename:= _
    Range("EU8") & "bestandsnaam.xlt"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

 

[HSV]

Werkt goed bij mij.
Bestand wordt als .xlt weggezet.

Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ReplaceFile = True
    ActiveWorkbook.Save
' EU8 is de cel met de locatie waar de file moet worden opgeslagen
    ActiveWorkbook.SaveAs Filename:= _
    Sheets("name").Range("EU8") & "bestandsnaam.xlt"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

 

[508]

hmm, vreemd.
dan ligt het misschien aan het netwerk...
ik laat hem nu de file op een server wegzetten, morgen probeer ik het nog eens op mn C:\
in elk geval bedankt.

 

[HSV]

Heb je de aanpassingen gezien?

 

[508]

oeps, nu wel
thanks!
ik heb de file nu niet bij de hand, maar probeer het morgen direct.
dan laat ik het wel even weten.

 

[508]

SUPER ! ! ! !
HIJ DOET HET !
HSV, bedankt!

 

[508]

toch nog te vroeg gejuicht

ik heb nu de basis file als xlt
excel opent de file "name.xlt" als "name1.xls", dat is goed +
dan vul ik de pad in in de cel als "C:\mapnaam1\mapnaam2"
dan activeer ik de macro met een knop
dan plak ik via de macro een hyperlink naar de xlt, dat gaat ook goed +
nu sla ik de file via de macro eerst op als xlt, dat gaat goed. +
dan sla ik de file op als xls in een diepere map, dat gaat ook goed +
dan open ik de xlt met de macro via de hyperlink, dat gaat niet helemaal goed -
namelijk:
excel opent de nieuwe "name.xlt" als "name.xlt" in plaats van "name1.xls" -
en daar begrijp ik helemaal niets van.

Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ReplaceFile = True
    Sheets("name").Select
    Range("EU8").Select
    With ActiveSheet.Hyperlinks
        .Add Range("A1"), Range("EU8") & "\name.xlt"
    End With
    ActiveWorkbook.SaveAs Filename:= _
    Sheets("name").Range("EU8") & "\name.xlt"
    ActiveWorkbook.SaveAs Filename:= _
    Sheets("name").Range("EU8") & "\diepere map\name.xls"
    Sheets("name").Select
    Range("A1").Hyperlinks(1).Follow NewWindow:=True
    Windows("name.xls").Activate
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

 

[HSV]

En de hyperlink die je eraan hebt geknoopt is juist?

 

[508]

ja, dat denk ik wel.
hij opent de goede file, alleen op de verkeerde manier.
inmiddels heb ik elders op de site een vergelijkbaar probleem gevonden met een oplossing die bij mij ook niet werkt..
de code daarvan was:

'    Workbooks.Open(Filename:="P:\Formulieren\ZNP 001 Orderbon.XLT", Editable:= _
'        False).RunAutoMacros Which:=xlAutoOpen
'    Windows("ZNP 001 Orderbon.XLT").Activate

die heb ik aangepast naar mijn eigen file naam, maar het resultaat was gelijk

 

[508]

hoi HSV,

het is me nog steeds niet gelukt.
ik doe het nu maar anders en laat Excel gewoon afsluiten.
ze moeten dan zelf het bestandje opnieuw openen, het is niet anders.
toch bedankt.