как обработать файл Excel
Доброго здравия!
Есть файл *.xls создаётся программой PowerINSPECT КИМ типа "Faro",
он содержит координаты точек замеров и некоторую информацию,
нужен файл в формате *.txt с записью только значений координат
(x, y, z) для некоторых точек замеров.
ps
нет возможности передать оригинал файла,
поэтому выкладываю вид файла рисунком
ps2
буду благодарен любым примера по данному вопросу
Ваш Тигрис.
Есть файл *.xls создаётся программой PowerINSPECT КИМ типа "Faro",
он содержит координаты точек замеров и некоторую информацию,
нужен файл в формате *.txt с записью только значений координат
(x, y, z) для некоторых точек замеров.
ps
нет возможности передать оригинал файла,
поэтому выкладываю вид файла рисунком
ps2
буду благодарен любым примера по данному вопросу
Ваш Тигрис.
Плохо, что не даешь файл, было бы проще и тебе и нам, а так вот попробуй
Перебираешь по ячейкам столбец D, если там есть Tolerance, проверяешь в этой строке в стобце B имя точки. Если нужная точка, то нижележащие три ячейки в столбце G это X,Y,Z
Open "c:\myfile" for Output as #1
For each c in Range("D")
if c = "Tolerance" then
i=c.row
if Cells(i,2)="Точка 2" then '--- нужная точка
print #1, Cells(i,2)
print #1, Cells(i+1,7), Cells(i+2,7), Cells(i+3,7)
print #1,
end if
end if
next c
close
Перебираешь по ячейкам столбец D, если там есть Tolerance, проверяешь в этой строке в стобце B имя точки. Если нужная точка, то нижележащие три ячейки в столбце G это X,Y,Z
Open "c:\myfile" for Output as #1
For each c in Range("D")
if c = "Tolerance" then
i=c.row
if Cells(i,2)="Точка 2" then '--- нужная точка
print #1, Cells(i,2)
print #1, Cells(i+1,7), Cells(i+2,7), Cells(i+3,7)
print #1,
end if
end if
next c
close