fout 1004 bij openen Excel-file door macro

[Willem1P50]

Het volgende probleem doet zich voor:

ik definieer een global variable myName waarmee ik een filenaam genereer.
In macro(1) open ik een .txt file, bewerk die tot een Excel-sheet met o.a. draaitabel en vul ik die variabele. Het bestand wordt vervolgens opgeslagen als C:\Temp\[myName].
In macro(2) wordt het betreffende bestand vervolgens weer geopend.
Dat is althans de bedoeling.

Ik krijg een Runtime error 1004 "Method 'Open' of object 'Workbooks' failed".
Onderstaand de relevante statements:

Public myName As Integer

macro(1)
< Range("F3").Select
myName = ActiveCell.Value
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & myName & ".xlsm" >

macro(2)
< Workbooks.Open "C:\Temp\" & myName >

Extra probleem: als ik met explorer of in Excel de betreffende file probeer te openen, krijg ik een errormelding "Excel cannot open the file [NAME].xlsm because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file."

Kan iemand mij een hint geven waar ik de mist in ga?

Willem

 

[snb]

Wellicht moet je het fileformat opgeven bij Saveas (kijk even na welk nummer xlsm heeft)

Sub macro(1)
  myname=Workbooks(3).sheets(1).Range("F3")
  ActiveWorkbook.SaveAs "C:\Temp\" & myName & ".xlsm" ,53
End Sub

Sub macro(2)
  Workbooks.Open "C:\Temp\" & myName &"xlsm"
End Sub

PS Dit forum heeft handige markering voor VBA-code (#)

 

[Willem1P50]

hmm klinkt misschien onnozel, maar heb geen idee waar ik dat nummer kan vinden.....

 

[snb]

In de hulpfunktie van de VBEditor bij fileformat