использование ms office в работе компаса

Автор lik, 22.05.07, 16:27:18

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

lik

кто поможет перевести таблицу из excel в  формат табличного графика (Ftt) библиотеки построения графиков FTDraw, чтоб компас мог строить функционально зависимые кривые

Bordes

Цитата: lik от 22.05.07, 16:27:18
кто поможет перевести таблицу из excel в  формат табличного графика (Ftt) библиотеки построения графиков FTDraw, чтоб компас мог строить функционально зависимые кривые


Для таблицы из двух столбиков, возможно поможет вот такой макрос:

Sub conv()

Dim r As Range

Set r = Application.Selection

Count = r.Count / 2

Open "GrafDat.ftt" For Output Access Write As #1

Print #1, "[InitialData]"
Print #1, "RegCount=" + CStr(Count + 1)
Print #1, "[TableData]"

For i = 1 To Count

Print #1, "X" + CStr(i) + "=" + CStr(r.Cells(i, 1).Value)
Print #1, "F" + CStr(i) + "=" + CStr(r.Cells(i, 2).Value)
Next i

Close #1

End Sub

Использование:
Выделить два столбца данных (слева Х справа F) и запустить макрос.
При нормальном завершении будет создан файл с GrafDat.ftt с заданными данными. !!!! Возможно в этом файле придется заменить запятые в числах на точки !!!! И все.

Slaviation


llex