Запись значений тэга в excell при помощи Basic
Здравствуйте, помогите, пожалуйста со скриптом по открытию excel, записью значения тэга и закрытием excel
Ответы 4
День добрый.
Код - 4, это признак того что скрипт работает в режиме отладки. С Excel под отладкой работать не получится, только в "мониторе"
Пытаюсь выполнить указанные скрипты, но не получается.
Строчка
err=Excel.CreateTemplate
выдает результат 4. В документации такой код не описан.
В чем может быть причина?
Код - 4, это признак того что скрипт работает в режиме отладки. С Excel под отладкой работать не получится, только в "мониторе"
Здравствуйте!
Пытаюсь выполнить указанные скрипты, но не получается.
Строчка
err=Excel.CreateTemplate
выдает результат 4. В документации такой код не описан.
В чем может быть причина?
Пытаюсь выполнить указанные скрипты, но не получается.
Строчка
err=Excel.CreateTemplate
выдает результат 4. В документации такой код не описан.
В чем может быть причина?
День добрый.
Здравствуйте, помогите, пожалуйста со скриптом по открытию excel, записью значения тэга и закрытием excel
// пример 1
var
D: Integer;
begin
// создать новый документ Excel
if Excel.CreateTemplate = 0 then
begin
// ячейке А1 присвоить значение 100
Excel.Cell[‘A1’] := 100;
// получить значение из ячейки B2
D := Excel.Cell[‘B2’];
// сохранить документ на диске с именем “test”
Excel.Save(C:\test);
// после выполнения методов Show, Close – скрипт теряет контроль над открытым
// документом Excel, выполнение одного из этих методов обязательно, т.к. если этого
// сделать то запущенный экземпляр Excel останется в памяти.
Excel.Close;
end;
end;
// пример 2
// использования диалога открытия файлов
var
D: Integer;
OpenDialog: TOpenDialog;
begin
// создание диалога открытия файлов
OpenDialog := TOpenDialog.Create(nil);
try
// установить фильтр для файлов которые будут отображаться в диалоге открытия
OpenDialog.Filter := 'Excel|*.xls';
// стартовая директория для диалога
OpenDialog.InitialDir := 'C:\';
// показать диалог открытия файлов
if OpenDialog.Execute then
begin
// в OpenDialog.FileName имя выбранного пользователем файла
if Excel.OpenTemplate(OpenDialog.FileName) <> 0 then
Exit;
// ……
// Ваш код для работы с документом Excel
// ……
Excel.Show;
end;
finally
// уничтожить диалог выбора файлов
OpenDialog.Free;
end;
end.
Все заработало.