Goedendag,
Ik wil graag de waarden uit een aantal textboxen wegschrijven naar een komma gescheiden text bestand, daarvoor gebruik ik nu
Ik heb echter het gevoel dat deze manier van “comma separated” een beetje amateuristisch is. Daarnaast werkt dit prima bij 1 textbox maar eigenlijk heb er meer, is er dus een manier om dit op een “nettere” komma gescheiden te maken en om een loop toe te voegen waardoor al de textboxen automatisch af worden gelopen?
Intussen heb ik zelf al een deel van de oplossing gevonden, met deze code:
krijg ik mooi dat textboxen 1 t/m 4 worden weggeschreven in een textfile maar ze worden onder elkaar weggeschreven iemand enig idee hoe ik dit gewoon achter elkaar kan krijgen?
Bij voorbaat dank,
Barry
Ik wil graag de waarden uit een aantal textboxen wegschrijven naar een komma gescheiden text bestand, daarvoor gebruik ik nu
Code:
'Open browse window om bestand te selecteren
NewFN = Application.GetSaveAsFilename("C:\Documents and Settings\Test", "Text File (*.txt), *.txt")
sFile = NewFN
If NewFN = False Then
Exit Sub
Else
Dim cCont As Control
Dim vaFields As Variant
'set and open file for output
FNum = FreeFile()
Open NewFN For Append As FNum
Print #FNum, dDate; ","; TextBox1.Value
Close #FNum
End IfIntussen heb ik zelf al een deel van de oplossing gevonden, met deze code:
Code:
dDate = DateSerial(Year(Date), Month(Date), Day(Date))
FNum = FreeFile()
Open NewFN For Append As FNum
Print #FNum, dDate; ","
For xx = 1 To 4
TextBoxxx = xx
Print #FNum, xx; ","
Next xx
Close #FNumBij voorbaat dank,
Barry
Laatst bewerkt:
