PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAspara över en XLTMspara över en XLTM
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2020-11-03 10:50
 

 Hej

Försöker göra en inköpsorder i excel och har lyckats få till ett ordernummer som ökar med 1 varje gång filen öppnas, problemet är att jag måste spara ner det senaste värdet i .xltm filen för att inte nästa ska bli samma. 

Hur sparar man över en xltm fil varje gång den öppnas?

Nytt inlägg
 2020-11-03 13:00
 

 Hej hej

Thisworkbook.saveas filnamn, 53

Är dock bättre att använda en liten textfil för hantering av order nummer. 

/c

Nytt inlägg
 2020-11-09 19:47
 

Tjena! 

Vill du köra kortvaraianten om hur man kan köra detta mot textfil Christian? 

Mvh
Johan

Nytt inlägg
 2020-11-10 14:50
 
 Ändrad av Christian  på 2020-11-10 15:51:13

 Hej hej

Spara en textfil med ett ordernummer i, döp filen till myordernr. Ordernumret kan endast innehålla siffror och är begränsat till 10 siffor. Annars får man lösa det annorlunda.

Därefter kan man hämta nästa ordernummer med nedan funktion

Mvh 

Christian

Function rwOrderNr() As Long    

    'Läs ut gammalt order nummer från textfil

    Dim file As String: file = ThisWorkbook.Path & "\" & "myordernr.txt"

    Dim txtF As Long: txtF = FreeFile

    Open file For Input As txtF

    Dim oldOrderNr As Long: oldOrderNr = Input(LOF(txtF), txtF)

    Close txtF        

    'Läs in nya ordernumret till textfil

    Open file For Output As txtF

    Print #txtF, oldOrderNr + 1

    Close txtF    

    'Returnera nya ordernumret

    rwOrderNr = oldOrderNr + 1    

End Function

 

 

 

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAspara över en XLTMspara över en XLTM

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter