17-01-16, 18:15
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Γιώργο, όπως ήταν διαμορφωμένος ο κώδικας, παρουσιάζοντας διάφορα InputBox, έδινε τη δυνατότητα προσθήκης στο αρχείο πολλών αριθμών.
Γι’ αυτό που θέλεις δοκίμασε τον κώδικα: Κώδικας: Sub CreateTextFile(sFile As String)
Dim nFile As Integer, sNum As String
'Ο επόμενος ελεύθερος αριθμός για ταυτότητα αρχείου
nFile = FreeFile
'Άνοιγμα αρχείου για εγγραφή δεδομένων
Open sFile For Output As #nFile
sNum = Nz(Forms!StartForm.CurrentSVN, "")
If sNum <> "" Then
Print #nFile, "[" & sNum & "]"
End If
Close #nFile
End Sub
|