Работа с файлами и строками в VBA

[Abdukhafiz]

Привет всем... Помогите открыть файл и искать нужные данные и добавить их в определенные ячейки.

[alex77755]

примерно так(текстовик должен быть рядом):

Option Explicit
Option Compare Text

Sub QWERT()
Dim M() As String
Dim S_T() As String
Dim F_T() As String
Dim T1() As String
Dim T2() As String
Dim R
Dim REZ(1 To 2, 1 To 4)
   Dim File As String, CF As String   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = Application.ActiveWorkbook.Path & "\file.txt"   'ycтановим имя файла и пyть
   Open File For Binary As #1   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл
   M = Split(CF, vbNewLine)
   
For R = 1 To UBound(M) - 1
    If Split(M(R), ";")(0) = "first Text" Then F_T = Split(M(R), ";")
    If Split(M(R), ";")(0) = "Second Text" Then S_T = Split(M(R), ";")
    If Split(M(R), ";")(0) = "Text1" Then T1 = Split(M(R), ";")
    If Split(M(R), ";")(0) = "Text2" Then T2 = Split(M(R), ";")
Next R
For R = 1 To 4
REZ(1, R) = (Val(S_T(R)) - Val(F_T(R))) / Val(S_T(R))
REZ(2, R) = (Val(T2(R)) - Val(T1(R))) / Val(T2(R))
Next R
[e5:h6] = REZ
End Sub

[Abdukhafiz]

не работает.. на строке

If Split(M(R), ";")(0) = "First Text" Then F_T = Split(M(R), ";")

выводит ошибку

[alex77755]

Непроверенного не выкладываю.
Какой офис?

[alex77755]

Попробуй так: иногда некоторые офисы не хотят кушать короткий вызов функций

Option Explicit
Option Compare Text

Sub QWERT()
Dim M() As String
Dim S_T() As String
Dim F_T() As String
Dim T1() As String
Dim T2() As String
Dim R
Dim REZ(1 To 2, 1 To 4)
   Dim File As String, CF As String   'объявим пеpеменнyю для имени файла и его cодеpжимого
   File = Application.ActiveWorkbook.Path & "\file.txt"   'ycтановим имя файла и пyть
   Open File For Binary As #1   'откpоем файл для чтения
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла
   Close #1   'закpыть файл
   M = VBA.Split(CF, vbNewLine)
   
For R = 1 To UBound(M) - 1
    If VBA.Split(M(R), ";")(0) = "first Text" Then F_T = VBA.Split(M(R), ";")
    If VBA.Split(M(R), ";")(0) = "Second Text" Then S_T = VBA.Split(M(R), ";")
    If VBA.Split(M(R), ";")(0) = "Text1" Then T1 = VBA.Split(M(R), ";")
    If VBA.Split(M(R), ";")(0) = "Text2" Then T2 = VBA.Split(M(R), ";")
Next R
For R = 1 To 4
REZ(1, R) = (Val(S_T(R)) - Val(F_T(R))) / Val(S_T(R))
REZ(2, R) = (Val(T2(R)) - Val(T1(R))) / Val(T2(R))
Next R
[e5:h6] = REZ
End Sub

[Abdukhafiz]

У меня офис 2010...
Второй вариант выводить ту же ошибку.

[alex77755]

У меня 2010 портабле, 2007 установлен, 2003 портабле и у истановлен.
Никто не жалуется! везде работает!!

[Алексей Кулаков]

Чаще всего ошибка при работе строковых функций (Mid, Left, Split и др.) возникает, когда нарушена ссылка на библиотеку (не важно какую). Зайдите в VBA в Tools\References. Возможно там подключёна библиотека, ссылка на которую выдаёт ошибку (Missing). Попробуйте ссылку востановить (или хотя бы отключить библиотеку) и снова запустить макрос. Скорее всего ошибка исчезнет.