Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > данные из textbox –а в Excel

Автор: observateur 8.3.2007, 20:58

Как мне записать данные из textbox –а в Excel-овскую лист последователно.
Private Sub Command1_Click()
Open "d:\hello.txt" For Output As #1
Print #1, Text1.Text
Print #2, Text1.Text
Print #3, Text1.Text
Print #4, Text1.Text
Close #1
End Sub
Дает ошибку…помогите чайнику…

Автор: Kirill89 8.3.2007, 21:22

Причем тут excel?
Ты пытаешься просто записать данные в файл последовательно?
тогда так

Код


Dim textout As String
Open "d:\hello.txt" For Output As #1 
textout = Text1.Text 
Print #1, textout 
textout = Text2.Text 
Print #1, textout 
textout = Text3.Text 
Print #1, textout 
Close #1 
End Sub

#1 - это не значение строки, а номер файла. В идеале, надо писать:

Код


Dim file As Integer
file=FreeFile()
Open "d:\hello.txt" For Output As #file
print #file, 'первая строка
print #file, 'вторая строка
print #file, '.......................
Close #file