Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Прочитать содержимое ячейки таблицы Excel,вставленной в Word - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Прочитать содержимое ячейки таблицы Excel,вставленной в Word (Формулы/Formulas)
Прочитать содержимое ячейки таблицы Excel,вставленной в Word
Отпрос Дата: Понедельник, 25.01.2016, 15:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть word-документ, в него вставлена таблица Excel. Как ее прочитать? Или сохранить в файл?
Речь идет об использовании OLE

P.S. Можно на любом языке, если есть возможность - на Delphi (Free Pascal/Lazarus вообще шикарно)
[moder]Вложите пример такого файла.[/moder]


Сообщение отредактировал SLAVICK - Понедельник, 25.01.2016, 16:45
 
Ответить
СообщениеЕсть word-документ, в него вставлена таблица Excel. Как ее прочитать? Или сохранить в файл?
Речь идет об использовании OLE

P.S. Можно на любом языке, если есть возможность - на Delphi (Free Pascal/Lazarus вообще шикарно)
[moder]Вложите пример такого файла.[/moder]
Автор - Отпрос
Дата добавления - 25.01.2016 в 15:03
Отпрос Дата: Понедельник, 25.01.2016, 20:13 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Или хотя бы подскажите как извлечь этот объект в файл
 
Ответить
СообщениеИли хотя бы подскажите как извлечь этот объект в файл
Автор - Отпрос
Дата добавления - 25.01.2016 в 20:13
Отпрос Дата: Понедельник, 25.01.2016, 20:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вот пример фафла
К сообщению приложен файл: 8302418.docx (23.6 Kb)
 
Ответить
СообщениеВот пример фафла
Автор - Отпрос
Дата добавления - 25.01.2016 в 20:51
krosav4ig Дата: Вторник, 26.01.2016, 00:13 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если документ рядом с exe файлом
внедренный лист сохраняется в текущую папку в файл embedded.xls
[vba]
Код
...

Uses ...,oleauto

...

procedure ExportEmbeddedXlSheet();
Var
    varWDApp,varWDDoc,varOleFormat:OleVariant;
    strPath:string;
begin
    strPath:=ExtractFilePath(ParamStr(0));
    varWDApp:=createoleobject('word.application');
    varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx');
    varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat;
    varOleFormat.activate;
    varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56);
    varWDdoc.close(false);
    varWDApp.Quit
end;
...
[/vba]
varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут
[offtop]
Цитата Отпрос, 25.01.2016 в 20:51, в сообщении № 3
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 26.01.2016, 04:53
 
Ответить
Сообщениеесли документ рядом с exe файлом
внедренный лист сохраняется в текущую папку в файл embedded.xls
[vba]
Код
...

Uses ...,oleauto

...

procedure ExportEmbeddedXlSheet();
Var
    varWDApp,varWDDoc,varOleFormat:OleVariant;
    strPath:string;
begin
    strPath:=ExtractFilePath(ParamStr(0));
    varWDApp:=createoleobject('word.application');
    varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx');
    varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat;
    varOleFormat.activate;
    varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56);
    varWDdoc.close(false);
    varWDApp.Quit
end;
...
[/vba]
varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут
[offtop]
Цитата Отпрос, 25.01.2016 в 20:51, в сообщении № 3
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]
Автор - krosav4ig
Дата добавления - 26.01.2016 в 00:13
китин Дата: Вторник, 26.01.2016, 07:43 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата krosav4ig, 26.01.2016 в 00:13, в сообщении № 4
тут читать у вместо а или й всесто ф?


lol clap hands

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата krosav4ig, 26.01.2016 в 00:13, в сообщении № 4
тут читать у вместо а или й всесто ф?


lol clap hands
Автор - китин
Дата добавления - 26.01.2016 в 07:43
Отпрос Дата: Четверг, 28.01.2016, 14:24 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое, красавчик, вот окончательный вариант (для FreePascal):
[vba]
Код
OLESheet := WordApp.ActiveDocument.Shapes.Item(i).OleFormat;
OLESheet.Activate;
ShowMessage(OLESheet.&object.Activesheet.Cells[ARow, ACol].Text); //Чтение даных
OLESheet.&object.Activesheet.SaveAs(Widestring(Utf8ToSys(filename)));//Сохранение объекта
[/vba]

//Не смог включить в тег delphi


Сообщение отредактировал Отпрос - Четверг, 28.01.2016, 14:25
 
Ответить
СообщениеСпасибо большое, красавчик, вот окончательный вариант (для FreePascal):
[vba]
Код
OLESheet := WordApp.ActiveDocument.Shapes.Item(i).OleFormat;
OLESheet.Activate;
ShowMessage(OLESheet.&object.Activesheet.Cells[ARow, ACol].Text); //Чтение даных
OLESheet.&object.Activesheet.SaveAs(Widestring(Utf8ToSys(filename)));//Сохранение объекта
[/vba]

//Не смог включить в тег delphi
Автор - Отпрос
Дата добавления - 28.01.2016 в 14:24
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Прочитать содержимое ячейки таблицы Excel,вставленной в Word (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!