FoxClub Forums > Visual Foxpro, Foxpro for DOS > как подключиться к Р7-Офис и вывести данные в него ::

• Войти

как подключиться к Р7-Офис и вывести данные в него
Sergeynizamov Сообщений: 72 Дата регистрации: 21.09.2018	Sergeynizamov 06.07.23 06:52:55 Доброе время суток! ребята подскажите пожалуйста как сделать вывод или скиньте ссылку на тему, в интернете гуглил с первого раза не нашёл ответа! До этого пользовался офисом от майкрософт LoExcel=createobject("Excel.application") LoExcel.WorkBooks.add LoExcel2=LoExcel.Application LoExcel = GetObject("","Excel.Sheet") LoExcel2.Sheets(1).Name = "НаименованиеКниги" и т.д. тут тем много ответов много и выводов разных! если кто сталкивался поделитесь опытом! буду рад

как подключиться к Р7-Офис и вывести данные в него

Sergeynizamov

Сообщений: 72
Дата регистрации: 21.09.2018

Sergeynizamov

06.07.23 06:52:55

Доброе время суток! ребята подскажите пожалуйста как сделать вывод или скиньте ссылку на тему, в интернете гуглил с первого раза не нашёл ответа!
До этого пользовался офисом от майкрософт


LoExcel=createobject("Excel.application")
LoExcel.WorkBooks.add
LoExcel2=LoExcel.Application
LoExcel = GetObject("","Excel.Sheet")
LoExcel2.Sheets(1).Name = "НаименованиеКниги"

и т.д.
тут тем много ответов много и выводов разных!
если кто сталкивался поделитесь опытом! буду рад

Re: как подключиться к Р7-Офис и вывести данные в него
Sergeynizamov Сообщений: 72 Дата регистрации: 21.09.2018	Sergeynizamov 06.07.23 07:58:09 Нашёл на официальном сайте код для программистов, но теперь не до конца понять не могу как им воспользоваться, точнее создать и выводить данные builder.CreateFile("xlsx"); LoExcel = CreateFile("xlsx") var oWorksheet = Api.GetActiveSheet(); oWorksheet = Api.GetActiveSheet(); oRange = oWorksheet.GetRange("B11"); oRange.SetValue("1"); oRange.Select(); oAreas = oRange.GetAreas(); oItem = oAreas.GetItem(1); oRange = oWorksheet.GetRange('A5'); oRange.SetValue("The first item from the areas: "); oRange.AutoFit(false, true); oWorksheet.GetRange('B5').Paste(oItem); LoExcel.SaveFile("xlsx", "GetItem.xlsx"); LoExcel.CloseFile();

Re: как подключиться к Р7-Офис и вывести данные в него

Sergeynizamov

Сообщений: 72
Дата регистрации: 21.09.2018

Sergeynizamov

06.07.23 07:58:09

Нашёл на официальном сайте код для программистов, но теперь не до конца понять не могу как им воспользоваться, точнее создать и выводить данные


*builder.CreateFile("xlsx");
LoExcel = CreateFile("xlsx")
*var oWorksheet = Api.GetActiveSheet();
    oWorksheet = Api.GetActiveSheet();
    oRange = oWorksheet.GetRange("B11");
    oRange.SetValue("1");
    oRange.Select();
    oAreas = oRange.GetAreas();
     oItem = oAreas.GetItem(1);
    oRange = oWorksheet.GetRange('A5');
    oRange.SetValue("The first item from the areas: ");
    oRange.AutoFit(false, true);
    oWorksheet.GetRange('B5').Paste(oItem);
    LoExcel.SaveFile("xlsx", "GetItem.xlsx");
LoExcel.CloseFile();

Re: как подключиться к Р7-Офис и вывести данные в него
Sergeynizamov Сообщений: 72 Дата регистрации: 21.09.2018	Sergeynizamov 06.07.23 08:00:24 Нашёл на официальном сайте код для программистов, но теперь не до конца понять не могу как им воспользоваться, точнее создать и выводить данные builder.CreateFile("xlsx"); LoExcel = CreateFile("xlsx") var oWorksheet = Api.GetActiveSheet(); oWorksheet = Api.GetActiveSheet(); oRange = oWorksheet.GetRange("B11"); oRange.SetValue("1"); oRange.Select(); oAreas = oRange.GetAreas(); oItem = oAreas.GetItem(1); oRange = oWorksheet.GetRange('A5'); oRange.SetValue("The first item from the areas: "); oRange.AutoFit(false, true); oWorksheet.GetRange('B5').Paste(oItem); LoExcel.SaveFile("xlsx", "GetItem.xlsx"); LoExcel.CloseFile(); Исправлено 1 раз(а). Последнее : Sergeynizamov, 06.07.23 08:01

Re: как подключиться к Р7-Офис и вывести данные в него

Sergeynizamov

Сообщений: 72
Дата регистрации: 21.09.2018

Sergeynizamov

06.07.23 08:00:24

Нашёл на официальном сайте код для программистов, но теперь не до конца понять не могу как им воспользоваться, точнее создать и выводить данные
*builder.CreateFile("xlsx");
LoExcel = CreateFile("xlsx")
*var oWorksheet = Api.GetActiveSheet();
oWorksheet = Api.GetActiveSheet();
oRange = oWorksheet.GetRange("B11");
oRange.SetValue("1");
oRange.Select();
oAreas = oRange.GetAreas();
oItem = oAreas.GetItem(1);
oRange = oWorksheet.GetRange('A5');
oRange.SetValue("The first item from the areas: ");
oRange.AutoFit(false, true);
oWorksheet.GetRange('B5').Paste(oItem);
LoExcel.SaveFile("xlsx", "GetItem.xlsx");
LoExcel.CloseFile();

Исправлено 1 раз(а). Последнее : Sergeynizamov, 06.07.23 08:01

Re: как подключиться к Р7-Офис и вывести данные в него
ssa Сообщений: 12962 Откуда: Москва Дата регистрации: 23.03.2005	ssa 06.07.23 08:56:28 Воспользоваться готовым решением, создающим нужный и файл и избавляющем от необходимости привязываться к конкретному программному продукту. Файлики типа XLSX давно делаются без участия Excel, Р7-Офис и т.д. ------------------ Лень - это неосознанная мудрость.

Re: как подключиться к Р7-Офис и вывести данные в него

ssa

Сообщений: 12962
Откуда: Москва
Дата регистрации: 23.03.2005

ssa

06.07.23 08:56:28

Воспользоваться готовым решением, создающим нужный и файл и избавляющем от необходимости привязываться к конкретному программному продукту.
Файлики типа XLSX давно делаются без участия Excel, Р7-Офис и т.д.

------------------
Лень - это неосознанная мудрость.

Re: как подключиться к Р7-Офис и вывести данные в него
Sergeynizamov Сообщений: 72 Дата регистрации: 21.09.2018	Sergeynizamov 06.07.23 09:37:03 где можно посмотреть пример! пожалуйста скиньте ссылку

Re: как подключиться к Р7-Офис и вывести данные в него
PaulWist Сообщений: 14530 Дата регистрации: 01.04.2004	PaulWist 06.07.23 10:08:10 Sergeynizamov где можно посмотреть пример! пожалуйста скиньте ссылку forum.foxclub.ru ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: как подключиться к Р7-Офис и вывести данные в него
Sergeynizamov Сообщений: 72 Дата регистрации: 21.09.2018	Sergeynizamov 06.07.23 10:59:57 PaulWist Sergeynizamov где можно посмотреть пример! пожалуйста скиньте ссылку forum.foxclub.ru Спасибо огромное буду разбираться и кстати много чего интересного открыл для себя

Re: как подключиться к Р7-Офис и вывести данные в него
sadovod Автор Сообщений: 1 Дата регистрации: 14.08.2023	sadovod 14.08.23 17:41:19 Здравствуйте. Удалось решить задачу? Сам с ней сейчас столкнулся, информации очень мало.

Re: как подключиться к Р7-Офис и вывести данные в него
Sergeynizamov Сообщений: 72 Дата регистрации: 21.09.2018	Sergeynizamov 17.10.23 14:27:22 к сожалению, пока не получилось сделать, т.к. стоят другие задачи, поэтому, пока в процессе разбора, я даже подключится не могу! видел в одном месте подключение, там вроде можно через javascript подключится, но это не точно

Re: как подключиться к Р7-Офис и вывести данные в него

Sergeynizamov

Сообщений: 72
Дата регистрации: 21.09.2018

Sergeynizamov

17.10.23 14:27:22

к сожалению, пока не получилось сделать, т.к. стоят другие задачи, поэтому, пока в процессе разбора,
я даже подключится не могу! видел в одном месте подключение, там вроде можно через javascript подключится, но это не точно

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 16 (Гостей: 16)