Venus AUEB Forum

Εχω ενα τρομερο προβλημα στη δουλεια.
Εχω σε ενα excell καποια ονοματα αρχειων π.χ sample.ram τα οποια πρεπει να περιεχουν μεσα μια γραμμη απο συγκεκριμενη πληροφορια που επισης εχω στο excell.
Υπαρχει τροπος να δημιουργησω αυτα τα αρχεια αυτοματα και να βαλω μεσα την πληροφορια που θελω???

Σωστε με.....

Χμ, το πρώτο πράγμα που μου κατέβηκε είναι να χρησιμοποιήσεις την VBA (Visual Basic for Applications) του Excel. Μπρείς να γράψεις ένα απλό προγραμματάκι σε VB που να κάνει αυτό που λές.

Ένας δεύτερος τρόπος που μου έρχεται είναι να κάνεις export το αρχείο του Excel σε ένα text format (π.χ. CSV) και να το χρησιμοποιήσεις με όποια γλώσσα προγραμματισμού σου αρέσει για να ελέγχεις αυτό που λές.

To καταφερα με τον πρωτο τροπο που λες....
Εγραψα το παρακατω σκριπτακι στην VB

Private Sub CommandButton2_Click()
Dim f1 As String
Dim f2 As String
Dim f3 As String
f1 = "c:\ram\"
Dim i As Integer



For i = kati To katiallo
f2 = Worksheets("Sheet1").Cells(i, 7).Value
f3 = f1 & f2

Set fso = CreateObject("Scripting.FileSystemObject")
Set report = fso.OpenTextFile(f3, 8, True, 0)
report.WriteLine Worksheets("Sheet1").Cells(i, 8).Value

report.Close
Set report = Nothing
Set fso = Nothing
Next i


End Sub