*****SOS*****

krisiun82 · Post by **krisiun82** » Tue Jun 27, 2006 11:41 am

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

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

mikem4600 · Post by **mikem4600** » Tue Jun 27, 2006 12:29 pm

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

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

krisiun82 · Post by **krisiun82** » Tue Jun 27, 2006 2:42 pm

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