Подскажите! Как Получить таблицу Excel-таблицу из Wordа?
Т.е. есть документ word, в него вставлена таблица excel - не могу до нее жобраться.

Up

яйцо в утке, утка в зайце, заяц в шоке?

зачем такие извращения?

док не я придумывал))
работают уже так

снеси ворд и скажи что теперь работать будут только в экселе.

Word.Documents.Tables не пройдет, не те таблицы

(6)так они ж делают эти таблицы в экселе, они их не сохраняют?

Hostess_of_Love- треп великое дело, но желательно по теме :)
есть что-нибудь?

гуру - Up

(0) на каждой строчке таблицы создай закладку и перебирай их в цикле из 1С

(9) чо ап то? запускай запись макроса, потыкай в эту таблицу, измени любую ячейку и посмотри как макрос к ней обращается

запись макроса не создаст код при работе таким типом диаграмм (встроенным экс. диаграммам в ворде). кури коллекцию InlineShapes документа

только эта фича доступна начиная с SP2 2007 офиса вроде, до этих версий ПРОГАММНЫЙ доступ к chart есть только в экселе.

программный :)
а вот твоя табличка датасурс:

ActiveDocument.InlineShapes.Item(1).Chart.ChartData.Activate


отходил, про таблы писал выше - не проходит, макрос не запускается на этой таблице manyak - прав, все это испробовано )) поэтому я здесь, считай 1 раз)

(14) код робит?

нет, на Chart - ошибка чтения (((

какой офис? если до 2007 sp2 то не выдет

2010

но на фирме, наверное, меньше, формат файла doc

должен робить

если doc - то точно 2003 или старее, т.е. на машине где запускать обязательно должен быть офис 2007 sp2 или новее

у тебя и в 2010 не робит получается?

да, обгуглился уже за сегодня (

Должен робить 100%

проверяй терь тогда свойство у item'а что есть диаграмма/график там ведь и другое может быть:


If ActiveDocument.InlineShapes.Item(1).HasChart Then
   ActiveDocument.InlineShapes.Item(1).Chart.ChartData.Activate
End If

может ты не с тем item-ом работаешь. ты проверяешь работу в VBA или уже в 1С через COm обьект?

в 1С COM/
Ошибка при получении значения атрибута контекста (Chart)
   воттактоженикак = Word.ActiveDocument.InlineShapes.Item(1).Chart.ChartData.Activate;

проверь сначала в VBA - робит?
ну и код этот - просто отрывает и показывает эксель табличку с данными  для диаграммы. те просто увидеть надо или поменять/выдернуть данные для заноса в 1С?

просто увидеть и выдернуть данные для заноса в 1С

позжа буду - продолжим, дети на улицу зовут :)

wrd=новый COMОбъект("word.Application");
wrd.visible=1;
wrd.Documents.Open ("C:\mail\г.doc");
wrd.ActiveDocument.InlineShapes.Item(1).Chart.ChartData.Activate();
у меня все работает, табличка с данными открывается

v8.2?

док точно из 2003 офиса

открывается файл или табличка в файле??
где она должна открыться?

как ты читаешь данные из этой таблички?

до считывания данных еще не докопал, но программно 8.2.15.289 - она визуально открывается. даже если и файл 2003 - все робит, главное открывать его в новых офисах. программно получается тоже самое что сам интерактивно: выбрать поле диаграммы в вордовском файле, появиться раздел "Работа с диаграммами" на верху ленты и будет закладка "конструктор" в которой есть кнопка "Изменить данные" по нажатию на нее загрузиться эксель и видно табличку с исх. данными для диаграммы.

в 8.1.13.41 тож все работает

данные можно прочитать из SeriesCollection

да, сам файл doc с табличкой у меня открывается, пару раз щелкаешь на табличку - открывается и табличка, я не могу найти как программно вытащить данные из этой таблички??

я ж написал - данные в SeriesCollection

лови :)

wrd=новый COMОбъект("word.Application");
wrd.visible=1;
wrd.Documents.Open ("C:\mail\г.doc");
my_values=новый comsafearray(wrd.ActiveDocument.InlineShapes.Item(1).Chart.SeriesCollection(1).Values);
my_values=my_values.Выгрузить();
для z=0 по my_values.количество()-1 цикл
       сообщить (my_values[z]);
конеццикла;

хз, не идет у меня
Ошибка при получении значения атрибута контекста (Chart): Произошла исключительная ситуация (0x80004001)
   my_values = новый comsafearray(Word.ActiveDocument.InlineShapes.Item(1).Chart.SeriesCollection(1).Values);
по причине:
Произошла исключительная ситуация (0x80004001)

может что установить надо

ес. не лень, попробуй на моем файле
http://files.mail.ru/TBI5XO

я не то совсем делал - сори, сча разберемся,у мну не так

зовите Абрахамса, он наставить вас на верный путь

зовем! )

VBA

ActiveDocument.InlineShapes.Item(1).OLEFormat.Edit
Set xls = GetObject(, "Excel.Application")
MsgBox xls.Workbooks(1).Worksheets(1).Cells(4, 2).Text


теперь как то надо получить экземляр запушенного экселя в ворде


wrd=новый COMОбъект("word.Application");
wrd.visible=1;
wrd.Documents.Open ("C:\mail\график.doc");
wrd.ActiveDocument.InlineShapes.Item(1).OLEFormat.Edit();

вот лови, вроде робит, проверь:

wrd=новый COMОбъект("word.Application");
wrd.visible=1;
wrd.Documents.Open ("C:\mail\график.doc");
wrd.ActiveDocument.InlineShapes.Item(1).OLEFormat.Edit();
xls= ПолучитьCOMОбъект(, "excel.Application");
сообщить (xls.Workbooks(1).Worksheets(1).Cells(4, 1).value);

manyak !!!
супер!
спасибо! с меня причитается )

заразы полосатые инет отрубили.

в (14) бредятина

в (51) куйня несусветная

(52) дурачек ты

(52) в (14) да согласен, так как думал у него интегрированный график экселевский Chart  - бегло прочитал топик :) смотри (45), ну а (51) рабочий код - не звезди

могу звездеть сколь попало, ибо так (51) нельзя

+ рабочий - до поры

чисто в плане знаний - растолкуй в чем плохо (51)? я сам 1С как хобби чисто

так то понятно в иделе activeworkbook и activesheet юзать

wrd=новый COMОбъект("word.Application");
wrd.visible=1;
док=wrd.Documents.Open ("C:\mail\график.doc");
Шейпы=док.InlineShapes;
Шейпы.Item(1).OLEFormat.Edit();
//далее не адекватно, ибо гетобъектов может оказаться масса, а не только тот что тут создан
xls= ПолучитьCOMОбъект(, "excel.Application");
сообщить (xls.Workbooks(1).Worksheets(1).Cells(4, 1).value)

activeworkbook и activesheet - нельзя пользовать никогда (несколько категорично, но сермяжно)

согласен, эт частный случай, WdInlineShapeType проверять надо у item'а

но ни как не  "куйня несусветная" :))))

(64) ну уж тут не попишешь, актв - не имеет на право существовать
(конечно, несколько безапеляционно, но лучче так, чем потом - почему)

для полного счатья, еще бы данные вытянуть из таблички, не кривые

всмысле кривые?

типа на экране одно, а выводить другое? :)

у тебя ж там в экселе два листа:

Worksheets(1) - "Брошиус"
Worksheets(2) - "Стокота 1176, 1177, 1178"

у тебя активен второй, нужно писать Worksheets(2) :)

Cells(4, 1).value - значение
Cells(4, 1).text - выводит так же как на экране

я понял, уже поправил)

спасибо!