Functie in ThisWorkBook maar 1x gebruiken

[vrouw]

Ik gebruik onderstaande code in ThisWorkBook van een bestand.
Dat bestand krijg ik dagelijks per mail en word daardoor bij het openen gelijk opgeslagen op de benoemde lokatie.
Als het op de opgeslagen lokatie staat word het weer als een bron bestand gebruikt door een ander doel.
Echter... doordat het daarbij weer word geopend word het ook weer steeds de Private Sub Workbook_Open() routine aangeroepen.

Is er een methode dat de tekst(routine) uit ThisWorkBook word verwijderd als dat bestand word opgeslagen?

Private Sub Workbook_Open()

      
        MyFileName = "C:\Temp\posten & voorraadbestand.xls"
    If Len(Dir(MyFileName)) Then
        SetAttr MyFileName, vbNormal
        Kill MyFileName
    End If
    ActiveWorkbook.SaveCopyAs MyFileName
    SetAttr MyFileName, vbReadOnly
        
        
End Sub

 

[Cobbe]

Ja opslaan als *.xlsx, tenminste indien er geen andere code aanwezig is in het bestand die wel nog nodig is.

 

[vrouw]

Ja opslaan als *.xlsx, tenminste indien er geen andere code aanwezig is in het bestand die wel nog nodig is.

Als ik het laat opslaan ls .xlsx en het bestand daarna open krijg ik de onderstaande foutmelding.

 

[Cobbe]

In welke versie gebeurt een en ander.
Gewoon opslaan als Excel-werkmap is voldoende.

 

[edmoor]

Heb je bij het opslaan,naast de extensie, ook het juiste bestandstype (51 of xlOpenXMLWorkbook) opgegeven?

 

[vrouw]

In welke versie gebeurt een en ander.
Gewoon opslaan als Excel-werkmap is voldoende.

Ik gebruik office 2007

Als ik het bestand laat opslaan dmv de hierboven routine in ThisWorkBook kan ik het niet openen. dan komt de foutmelding.
Als ik het bestand handmatig opsla als een .xlsx bestand kan ik het wel openen.

Is er iets niet juist in de routine in ThisWorkBook?

 

[Cobbe]

*.xls en *.xlsx is niet gelijk dus zul je dat moeten opvangen.

 

[vrouw]

*.xls en *.xlsx is niet gelijk dus zul je dat moeten opvangen.

Ik vrees dat we elkaar niet begrijpen.

Als ik het bestand laat opslaan als .xlsx dmv de hierboven routine in ThisWorkBook kan ik het niet openen. dan komt de foutmelding.
Als ik het bestand handmatig opsla als een .xlsx bestand kan ik het wel openen.

Is er iets niet juist in de routine in ThisWorkBook?

 

[Cobbe]

Post dan eens de routine die het doet foutlopen.

 

[vrouw]

Post dan eens de routine die het doet foutlopen.

Die staat in de eerste post.

 

[edmoor]

Probeer het eens zo:

Private Sub Workbook_Open()
    MyFileName = "C:\Temp\posten & voorraadbestand.xlsx"
    If Len(Dir(MyFileName)) Then
        SetAttr MyFileName, vbNormal
        Kill MyFileName
    End If
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs MyFileName, FileFormat:=51
    Application.DisplayAlerts = True
    SetAttr MyFileName, vbReadOnly
End Sub

 

[vrouw]

Probeer het eens zo:

Private Sub Workbook_Open()
    MyFileName = "C:\Temp\posten & voorraadbestand.xlsx"
    If Len(Dir(MyFileName)) Then
        SetAttr MyFileName, vbNormal
        Kill MyFileName
    End If
    
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs MyFileName, FileFormat:=52
    Application.DisplayAlerts = True
    SetAttr MyFileName, vbReadOnly
End Sub

Thanks voor het meedenken maar ik krijg een foutmelding op de regel:

ActiveWorkbook.SaveAs MyFileName, FileFormat:=52

 

[edmoor]

Dan is het wel zo handig om ook even de fout erbij te vermelden.

 

[vrouw]

Dan is het wel zo handig om ook even de fout erbij te vermelden.

 

[edmoor]

Oeps!
Die 52 moet 51 zijn

 

[rebmog]

FileFormat moet volgens mij 51 zijn i.p.v. 52

 

[vrouw]

Aha dat gaat beter maar het bestand word niet als een Copy weggeschreven.

Als ik
ActiveWorkbook.SaveAs MyFileName, FileFormat:=51
aanpas naar
ActiveWorkbook.SaveCopyAs MyFileName, FileFormat:=51

 

[edmoor]

Die laatste zal inderdaad niet werken. Zoals ik het voorstelde wordt het bestand opgeslagen als .xlsx bestand.
Het nadeel is dat je dan inderdaad verder gaat in DAT bestand in plaats van het origineel geopende bestand.

 

[edmoor]

FileFormat moet volgens mij 51 zijn i.p.v. 52

Klopt. Die 52 is voor .xlsx op een Mac

 

[vrouw]

Helemaal top, dan moet ie maar zo.

Misschien nog een mssbox er achteraan om bestand te sluiten zou wel mooi zijn.