Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Извлечение втавленных таблиц Excel из Word обратно в Excel / 25 сообщений из 29, страница 1 из 2
  1  все
12.07.2006, 11:53
    #33847363
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
есть документ ворд, туда вставлены таблицы Excel. Не поможет ли кто макросом, чтобы эти таблицы возможно было извлечь назад в Excel, причем в одну книгу, но на разные листы, причем, чтобы ярлыки листов назывались как таблицы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 14:35
    #33848179
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
Неужели не нашел примеров на этот случай? :)

Я так понимаю у тебя таблицы представлены как встроенные объекты. Тогда можно воспользоваться следующим вариантом.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Public Sub FromWordToExcel()
    Dim sh As Word.InlineShape
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWbNew As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    
    Set xlWbNew = xlApp.Workbooks.Add
    
    For Each sh In ActiveDocument.InlineShapes
        If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then
            sh.OLEFormat.ActivateAs ClassType:="Excel.Sheet.8"
            sh.OLEFormat.Activate

            Set xlWb = sh.OLEFormat.Object
            Set xlWs = xlWbNew.Worksheets.Add
            
            xlWb.Worksheets( 1 ).UsedRange.Copy xlWs.Range("A1")
        End If
    Next sh
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 15:47
    #33848585
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
авторНеужели не нашел примеров на этот случай? :) :) да, не нашел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 15:51
    #33848603
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
авторDim xlApp As Excel.Application на это строке ругается так: компайл эрро. юзер тайп нот дефайнд
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 16:37
    #33848831
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
Библиотеку Excel подключил? Если нет, то Tools->References...->Microsoft Excel X.X Object Library.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 16:55
    #33848911
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
AshtonБиблиотеку Excel подключил? Если нет, то Tools->References...->Microsoft Excel X.X Object Library. а по-русски? куда ее подключать, наверное к ворду? но там нет тулс-референс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 16:59
    #33848925
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
видимо мне когда вордец устанавливали, эту тулзу не установили для него.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 17:04
    #33848933
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
а понял, джаст э момент, плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 17:06
    #33848935
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
вобщем в редакторе вижуал бэйсик референсес заблокированы:( придется дома изголяться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 17:27
    #33849005
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
аштон, а если у объекта будет имя, присвоенное ему в ворде через контекстное меню - название, то каким макаром можно еще и это вывести, ну например в название ярлыков листа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 20:40
    #33849364
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
все сработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 20:42
    #33849366
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
прикинь, кто-то вставлял таблыцы в отчет, а их в одном месте не собрал, вот я теперь занимался бы тем, шо исправлял бы чьи-то недостатки неграмотной организации труда:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 20:44
    #33849367
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
авторвобщем в редакторе вижуал бэйсик референсес заблокированы:( придется дома изголяться референсес были заблокированы потому, шо надо сначала перед запуском макроса залезть в вижуал бэйсик, так как после него референсес становятся неактивны.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2006, 20:48
    #33849373
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
аштон, а если у объекта будет имя, присвоенное ему в ворде через контекстное меню - название, то каким макаром можно еще и это вывести, ну например в название ярлыков листа? - вот главный вопрос, которые остался
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 10:14
    #33849942
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
При добавлении названия появляется поле SEQ, которое использяется для нумерации элементов документа. Из этого поля и нужно извлечь название.

Попробуй следующий вариант.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
Private lngI As Long

Public Sub FromWordToExcel()
    Dim sh As Word.InlineShape
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWbNew As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    Dim strCaption As String

    Set xlApp = New Excel.Application
    xlApp.Visible = True
    
    Set xlWbNew = xlApp.Workbooks.Add

    For Each sh In ActiveDocument.InlineShapes
        If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then
            sh.OLEFormat.ActivateAs ClassType:="Excel.Sheet.8"
            sh.OLEFormat.Activate
            
            Set xlWb = sh.OLEFormat.Object
            
            strCaption = fnFindField(lngI)
            
            Set xlWs = xlWbNew.Worksheets.Add
            
            xlWs.Name = strCaption
            xlWb.Worksheets( 1 ).UsedRange.Copy xlWs.Range("A1")
            
            lngI = lngI +  1 
        End If
    Next sh
End Sub

Public Function fnFindField(lngI As Long) As String
    Dim intPos As Integer
    Dim fld As Word.Field
    
    Do
        lngI = lngI +  1 
        intPos = InStr(ActiveDocument.Fields(lngI).Code, "SEQ")
    Loop Until intPos >  0 
    
    Set fld = ActiveDocument.Fields(lngI)
    
    fnFindField = Mid(Trim(fld.Code),  4 , _
      Len(Trim(fld.Code)) - InStr(Trim(fld.Code), "\") -  4 ) & " " & fld.Result
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 12:39
    #33850546
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
этот кода выда ошибку вот здесь

Код: plaintext
Set xlWs = xlWbNew.Worksheets.Add
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 13:17
    #33850761
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
сработал первый код частично, таблиц где-то 100, а застопорилось все на 21:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 13:20
    #33850779
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
еще раз запустил первый код, теперь застопорилось на 8 таблице.

выдал здесь ошибку
Код: plaintext
If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 13:23
    #33850790
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
второй вылете тоже, но на 8 строке, опять ругнулся здэс


Код: plaintext
If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 14:50
    #33851204
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
последний код выводит номера в ярлыки листов, но вылетают оба варианта:( вчера работал на компе помощнее, вылетело на 21 таблице. а сегодня на компе послабее на 8. шо делать, шеф. гипс снимают - клиент уезжает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 14:52
    #33851217
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
еще раз запустил, вылетело сразу, выдал ошибку
Код: plaintext
xlWb.Worksheets( 1 ).UsedRange.Copy xlWs.Range("A1")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 15:09
    #33851300
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
и написал авторметод Copy из класса Range завершен неверно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 15:33
    #33851403
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
Ivan33второй вылете тоже, но на 8 строке, опять ругнулся здэс


Код: plaintext
If sh.OLEFormat.ProgID = "Excel.Sheet.8" Then


точнее на 8 таблица написал

авторProgID для данного объекта отсутствует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2006, 17:15
    #33851898
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
Нэт атвэта:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2006, 10:14
    #33852997
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Извлечение втавленных таблиц Excel из Word обратно в Excel
малчыт аштон:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Извлечение втавленных таблиц Excel из Word обратно в Excel / 25 сообщений из 29, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 476ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2173533]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 315ms
total:  476ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]