'Добавляем новые данные
Open "C:\data.csv" For Append As #1
'Перезаписываем существующие данные!
Open "C:\data.csv" For Output As #1
сохранение инфы в файл *.csv
Помогите реализовать следующий проект.
Есть форма (приложена), необходимо чтобы инфа из ячеек, после щелчка по кнопке "сохранить", сохранялась в файле с расширением *.csv
Пробовал применить способ описанный в теме, но ничего не получилось, выдает ошибку
(приложена)
Помогите решить проблему. Спасибо
У вас я не вижу ни одного текстового поля.
Чтобы не гадать о причине ошибки, приведите код, в котором сохраняете данные в csv-файл.
Ваши данные располагаются просто в ячейках, поэтому вам лучше использовать метод SaveAs или организовать цикл по ячейкам.
ниже приведены скрины
Оговорюсь сразу - в программировании - я полный чайник.
Укажите пожалуйста на мои ошибки, и по возможности расписать поэтапно код. Спасибо!
скрины внизу
как видно на первом из них, текст сохраняется в виде одной строки без пробелов, как сделать так чтобы каждое слово было в своей ячейке (в горизонтальном положении)
внизу привел код кнопки сохранения.
Вопрос № 2
при сохранении новой информации текст не добавляется а просто заменяет предыдущий, что необходимо дописать что-бы новая инфа добовлялась по порядку.
Вопрос №3
Как сделать так чтобы после того как нажали кнопку и текст сохранился, текстовые поля очищались, а в низу скажем в какой либо ячейке высвечивался статус - скажем "Сохранено удачно", либо неудачно - если инфа не сохранилась ?
Спасибо
У вас действительно должны быть текстовые поля или вы их добавили только для корректной работы кода, который вы взяли за основу?
Цитата: serjii
Так, с сохранением разобрался, информация сохраняется в файл, но немного не в том виде как мне надо
скрины внизу
как видно на первом из них, текст сохраняется в виде одной строки без пробелов, как сделать так чтобы каждое слово было в своей ячейке (в горизонтальном положении)
внизу привел код кнопки сохранения.
Вопрос № 2
при сохранении новой информации текст не добавляется а просто заменяет предыдущий, что необходимо дописать что-бы новая инфа добовлялась по порядку.
Вопрос №3
Как сделать так чтобы после того как нажали кнопку и текст сохранился, текстовые поля очищались, а в низу скажем в какой либо ячейке высвечивался статус - скажем "Сохранено удачно", либо неудачно - если инфа не сохранилась ?
Спасибо
скрины внизу
как видно на первом из них, текст сохраняется в виде одной строки без пробелов, как сделать так чтобы каждое слово было в своей ячейке (в горизонтальном положении)
внизу привел код кнопки сохранения.
Вопрос № 2
при сохранении новой информации текст не добавляется а просто заменяет предыдущий, что необходимо дописать что-бы новая инфа добовлялась по порядку.
Вопрос №3
Как сделать так чтобы после того как нажали кнопку и текст сохранился, текстовые поля очищались, а в низу скажем в какой либо ячейке высвечивался статус - скажем "Сохранено удачно", либо неудачно - если инфа не сохранилась ?
Спасибо
По вопросу №1. Насколько я понимаю, вы хотите хранить табличные данные в текстовом файле, где каждая строка содержит значения полей таблицы, между которыми вставлен некий разделитель (например, пробел или точка с запятой)?
По вопросу №2. Нужно открыть файл в режиме добавления данных:
Код:
По вопросу №3. Очистка текстовых полей:
Код:
Text1=""
Text2=""
'и так далее...
Text2=""
'и так далее...
Цитата: _art_
По вопросу №1. Насколько я понимаю, вы хотите хранить табличные данные в текстовом файле, где каждая строка содержит значения полей таблицы, между которыми вставлен некий разделитель (например, пробел или точка с запятой)?
По вопросу №2. Нужно открыть файл в режиме добавления данных:
По вопросу №3. Очистка текстовых полей:
По вопросу №2. Нужно открыть файл в режиме добавления данных:
Код:
'Добавляем новые данные
Open "C:\data.csv" For Append As #1
'Перезаписываем существующие данные!
Open "C:\data.csv" For Output As #1
Open "C:\data.csv" For Append As #1
'Перезаписываем существующие данные!
Open "C:\data.csv" For Output As #1
По вопросу №3. Очистка текстовых полей:
Код:
Text1=""
Text2=""
'и так далее...
Text2=""
'и так далее...
Art - спасибо, "For Append As #1 " помогло !!! Спасибо!
Код:
Private Sub CommandButton1_Click()
Dim FileNum As Integer
FileNum = FreeFile
Open "C:\data.csv" For Append As #FileNum
Print #FileNum, Text1
Print #FileNum, Text2
Close #FileNum
End Sub
Dim FileNum As Integer
FileNum = FreeFile
Open "C:\data.csv" For Append As #FileNum
Print #FileNum, Text1
Print #FileNum, Text2
Close #FileNum
End Sub
Вот тебе код:
hFile = FreeFile
Open sAppPath & "file1" For Binary As hFile
For i = 1 To 100
Put hFile, , "a" & Formati, "0000000000"
Next
Close hFile
Dim x As String
x="a" & Formati, "0000000000"
hFile = FreeFile
Open sAppPath & "file2" For Binary As hFile
For i = 1 To 100
Put hFile, , x
Next
Close hFile
Dim y As Variant
y="a" & Formati, "0000000000"
hFile = FreeFile
Open sAppPath & "file2" For Binary As hFile
For i = 1 To 100
Put hFile, , y
Next
Close hFile