Variabele workbook open

[Schelledraad]

Ik wil een bestand openen met de volgende naam "Voorraad KTN versus TMAS - 16-1-2023"
Omdat die datum steeds wijzigt heb ik cel R1 een * gezet en dat in de onderstaande code verwerkt.

Workbooks.Open Filename:= "J:\Voorraad KTN versus TMAS - " & [r1] & ".xlsx"

In een Engelstalige versie werkt dat wel, in een Nederlandse versie niet ????


Wie oh wie

 

[edmoor]

Wat gebeurt er dan wel?
Heb je wel het betreffende werkblad actief waar R1 een * bevat?

Waarom in R1 en niet gewoon zo?

Workbooks.Open Filename:= "J:\Voorraad KTN versus TMAS - *.xlsx"

 

[Schelledraad]

Werkt niet.

 

[edmoor]

"Werkt niet" is altijd te kort door de bocht.
Krijg je een foutmelding?
En welke is dat dan?
Gaat het altijd om de huidige datum?

 

[Schelledraad]

Fout 1004. Kan het bestand niet vinden. Zet ik de datum erin vind ie het wel.

 

[edmoor]

Probeer dit dan eens:

wb = Dir("J:\Voorraad KTN versus TMAS - *.xlsx")
If wb <> "" Then
    Workbooks.Open Filename:="J:\" & wb
End If

 

[Schelledraad]

Nope. Geeft ook 1004 melding.

 

[edmoor]

En wat staat er dan in de variabele wb?

 

[snb]

Zet nooit spaties in padnamen of bestandsnamen.

Dus niet

Sub M_snb()
  msgbox Dir("J:\Voorraad KTN versus TMAS - *.xlsx")
End Sub

Maar

Sub M_snb()
  msgbox Dir("J:\Voorraad_KTN_versus_TMAS-*.xlsx")
End Sub

Moet je natuurlijk wel eerst de bestandsnaam aanpassen.

 

[Schelledraad]

Nou, wat jij hebt geschreven. Door die regel gaat ie heen, maar loopt vast op workbook open.

 

[Schelledraad]

Het gekke is dat de code wel op een Engels talige versie werkt. Maar goed. Ik sluit deze even af. Bedankt iig.