onbekend pad in vba

[Robert Smidt]

Beste Helpmij'ers,

Ik heb onlangs een programma in gebruik die is voorzien van macro's. Dit programma maakt een tekstbestand aan, echter heb ik geen idee in welk pad deze het txt-bestand plaatst.

    Pad$ = Application.DefaultFilePath

Het is in ieder geval de bedoeling dat deze geplaatst moet worden in het pad waar het Excelbestand zich ook bevindt, oftewel het huidige pad. Wat is hiervoor de code?

De hele code is:

Public Sub LeesFactuurnummer()
ActiveSheet.Unprotect
    Pad$ = Application.DefaultFilePath
    controle = Dir(Pad$ + "\FactuurNummer.txt")
    If controle = "" Then
        FactuurNummer1 = "1000"
        Call Bewaarfactuurnummer
    End If
    Open Pad$ + "\Factuurnummer.txt" For Input As #10
    Input #10, FactuurNummer1
    Close #10
ActiveSheet.Protect
End Sub

Wat wordt er overigens met "#10" bedoeld?

Een antwoord zie ik met veel belangstelling tegemoet.

Robert

 

[edmoor]

Dat pad is wel degelijk bekend, kijk maar eens:
https://msdn.microsoft.com/en-us/library/office/ff835839.aspx

#10 is in dit geval het kanaalnummer voor het geopende bestand.
Dat 2e stukje code is overigens, hoewel geen probleem, wel een stokoude schrijfwijze.

 

[Robert Smidt]

Dank je wel voor de informatie.

Ik vraag me ook af of het mogelijk is om het factuurnummer (1000) te wijzigen in het "huidige jaar + 001" (2016001) volgend jaar (2017001)
zie

FactuurNummer1 = "1000"

Alvast bedankt.

Robert

 

[Robert Smidt]

Het werkt perfect...super bedankt...

 

[edmoor]

(Verplaatst) Tuurlijk:

Factuurnummer1 = Year(Date) & "001"

Of:

Fcn = 1
Factuurnummer1 = Year(Date) & Format(Fcn, "0##")

Of:

Factuurnummer1 = Year(Date) * 1000 + 1

Het is maar net wat je nodig hebt.