Запись значений тэга в excell при помощи Basic
Здравствуйте, помогите, пожалуйста со скриптом по открытию excel, записью значения тэга и закрытием excel
Ответы 4
Здравствуйте!
Пытаюсь выполнить указанные скрипты, но не получается.
Строчка
err=Excel.CreateTemplate
выдает результат 4. В документации такой код не описан.
В чем может быть причина?
Пытаюсь выполнить указанные скрипты, но не получается.
Строчка
err=Excel.CreateTemplate
выдает результат 4. В документации такой код не описан.
В чем может быть причина?
День добрый.
Код - 4, это признак того что скрипт работает в режиме отладки. С Excel под отладкой работать не получится, только в "мониторе"
Пытаюсь выполнить указанные скрипты, но не получается.
Строчка
err=Excel.CreateTemplate
выдает результат 4. В документации такой код не описан.
В чем может быть причина?
Код - 4, это признак того что скрипт работает в режиме отладки. С 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.