Чтение из Txt файла

  • Автор темы Hryv
  • Дата начала
Статус
Закрыто для дальнейших ответов.
H

Hryv

#1
Помогите, плиз, кому не трудно
Я, в принципе программировать умею, но с VB практически не сталкивался
А тут понадобился макрос для EXCEL
Вот упрощенная формулировака задачи (имея пример, я сам доделаю)

1. Надо открыть файл по фиксированному пути (например C:\путь\файл.txt)
2. Этот текстовый файл содержит 2 строки, в каждой строке число в формате nn...n.nn
3. Эти числа надо записать в открытый в EXCEL файл в заранее известные ячейки
Например: Лист1!A1 и Лист2!B2
4. Закрыть файл

Спасибо
 

Gamlet

Well-known member
08.01.2007
525
0
#2
http://www.vbnet.ru/samples/download.aspx?id=726 - открытие файлов, в вба так же. Как залить в эксель ячейку, не знаю.
чтоб числа были- при чтении открывай переменной типа стринг, потом сравняй лонг переменную с ней.
Вроде заливать в ячейки так: Лист1.a1="тект", может что то путаю.
 
T

Tanya

#3
Код:
' Первый параметр - имя файла
' Следующие - (неважно сколько, от 1) адреса ячеек
Sub nn(fName As String, ParamArray arrCells())
Dim s As String
Dim arrLines() As String
Dim iEnd As Integer
Dim i As Integer

'arrCells - адреса ячеек, куда будем вставлять
'определяем верхнюю границу массива переданных адресов
iEnd = UBound(arrCells)

' если нет адресов - так что тут делать ))) молча уходим
If iEnd = -1 Then Exit Sub

If Len(Dir$(fName)) > 0 Then
' заполняем буфер пробелами по размеру файла
s = Space(FileLen(fName))

' открываем и читаем файл
Open "e:\1.txt" For Binary As #1
Get #1, , s

Close #1

If Len(s) Then
' если в файле что-то было разбиваем его на массив строк
arrLines = Split(s, vbCrLf)

' определяем соответствие количества строк и количества переданных адресов
If iEnd > UBound(arrLines) Then iEnd = UBound(arrLines)
For i = 0 To iEnd
' и по адресам записываем значения
' без проверок число или нет записано - что есть то и пишем
Range(arrCells(i)).Value = arrLines(i)
Next i
Else
MsgBox "Нет данных!"
End If
Else
MsgBox "Нет данных!"
End If

End Sub

Sub kk()
' проверочный макрос
'Call nn("e:\1.txt", "Лист1!A1", "Лист2!B2")
Call nn("e:\1.txt")
End Sub
Проверочный макрос лучше все же так делать:
Код:
Sub kk()
' проверочный макрос
Call nn("e:\1.txt", "Лист1!A1", "Лист2!B2")
End Sub
 

Gamlet

Well-known member
08.01.2007
525
0
#4
Еще раз убеждаюсь, что мое место должна занять Tanya.
 
H

Hryv

#5
Tanya, спасибо
Все работает

Была небольшая неточность, открывался файл не из параметра а из строки Open "e:\1.txt" For Binary As #1
но я еще до запуска заметил и подправил

Отдельное спасибо, за то что очень универсально сделано
Мне осталось сделать только нужное количество вызовов nn() с нужными параметрами и моя задача полностью решена :)
 
T

Tanya

#6
Код:
Была небольшая неточность, открывался файл не из параметра а из строки Open "e:\1.txt" For Binary As #1
но я еще до запуска заметил и подправил
О! Да! Вот так всегда, стараешься, стараешься и где-нибудь закрадется неточность ...
Вроде мелочь, а осадок остается )))
 
Статус
Закрыто для дальнейших ответов.