Ребята Здравствуйте! пытаюсь записать не получается что не так я делаю?
| Код |
Sub записать() '
F = FreeFile
Open App.Path & "\изделие.CSV" For Input As #F
z = Input(LOF(F), #F)
a = InputBox("Информация", "что записываем", "записать")
'====
Write #F, a & ";" 'ЗДЕСЬ ПЫТАЮСЬ ЗАПИСАТЬ
'=====
Do Until EOF(F) Or i >= 5
Input #F, s
Form1.Combo1.AddItem Split(s, ";")(0) '
i = i + 1
Loop
Close #F
End Sub
|
я понял где ошибка
| Код |
Sub записать() '
Open App.Path & "\изделие.CSV" For Output As #F
z = Input(LOF(F), #F)
a = InputBox("Информация", "что записываем", "записать")
'====
Write #F, a & ";" ' но все же хотелось бы записать в первую или в последнюю строку
Close #F
End Sub
|
|
)