opslaan harde schijf

[goossenrobert]

beste programmeurs,

is het mogenlijk om gegevens die op een formulier staan (in textboxen) op te slaan op de harde schijf met een commandoknop op hetzelfde formulier?

het liefst dat deze gegevens opgeslagen worden in een word of excel bestand.
Het zou dan makkelijk zijn dat de naam van het bestand gelijk is aan de datum van uitvoering.

wie kan mij helpen?

 

[Axel Hagg]

Dag goossenrobert,

Invoegen UserForm1 waarop het gewenste aantal TextBoxen en een CommandButton1

CommandButton1_Click
Dim i as Integer

For i = 1 To 5
ActiveWorkBook.Sheets(1).Cells(1, i) = Choose(i, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5).Value
Next
ActiveWorkBook.SaveAs FileName:="C:\Gegevens " & Format(Now, "dd-MM-yyyy") & ".xls"
End Sub

Om mee te beginnen. Succes!

 

[goossenrobert]

Axel,

de code die u heeft opgegeven werk perfect!

Alleen was het niet helemaal de bedoeling dat de gegevens die op het fomulier staan worden geprint in de werkmap waar het formulier zich bevind.

Het is de bedoeling dat de gevegevens in een NIEUWE werkmap worden geplaatst.

is het mogelijk dat deze gegevens in een nieuwe werkmap worden geplaats en dan opgeslagen? Er staan namelijk gegevens in de werkmap waar het formulier zich bevind waarmee het formulier rekend. Deze gegegevens moeten dus niet in het nieuwe opgeslagen .xls komen..

mvg,

Robert

 

[Axel Hagg]

Dag GoossenRobert,

Probeer bijgaande macro eens.