ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенести данные из таблицы Excel в ворд
8 сообщений из 8, страница 1 из 1
Перенести данные из таблицы Excel в ворд
    #38391817
Bronn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bronn
Гость
Помогите пожалуйста, как можно быстро перевести данные из приведённой экселевской таблицы в приведённую таблицу в ворде (она заполнена для примера)?
...
Рейтинг: 0 / 0
10.09.2013, 10:38
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38391818
Bronn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bronn
Гость
Вот таблица в ворде.
...
Рейтинг: 0 / 0
10.09.2013, 10:38
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38391842
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если это единоразовая задача, то на мой взгляд надо с помощью формул воссоздать эту табличку в экселе (сделать один блок и растянуть), а потом скопипастить в ворд.
...
Рейтинг: 0 / 0
10.09.2013, 10:50
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38392422
Bronn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bronn
Гость
Единоразовая, а можно поподробнее - как? У меня ms office 2003.
...
Рейтинг: 0 / 0
10.09.2013, 15:37
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38392478
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Набросал пример
1) Допиливаете формулы по аналогии с тем, что я написал
2) Выделяете прямоугольник ячеек, покрашенный красненьким
3) Растягиваете вниз на необходимую величину
4) Результат - в Ворд
...
Рейтинг: 0 / 0
10.09.2013, 16:06
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38393091
Bronn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bronn
Гость
Огромное спасибо за помощь, проблема решена.
...
Рейтинг: 0 / 0
11.09.2013, 07:24
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38396089
Фотография Surrogate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Surrogate
Участник
Примерно в одно время с появлением данной темы, поступила задача экспортировать в ворд на лист А3 спецификацию из эксель.
Задача была не очень горящая, только сейчас завершил. Может кому еще пригодится :)
Код: vbnet
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.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
Sub Word_PasteTableFromExcel()
Dim wd As Word.Document
Set wd = ActiveDocument
Dim oExcel As Excel.Application
Set oExcel = CreateObject("Excel.Application")
Dim sp As Excel.Workbook
Dim sht As Excel.Sheets
Dim tr As Object
Dim tc As Object
Dim qx As Integer
Dim qy As Integer
pth = Word.ActiveDocument.Path
Dim ffs As FileDialogFilters
Dim sFileName As String
oExcel.Visible = True
Dim fd As FileDialog
Set fd = oExcel.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.InitialFileName = pth
 Set ffs = .Filters
    With ffs
        .Clear
        .Add "Excel", "*.xls*"
    End With
oExcel.FileDialog(msoFileDialogOpen).Show
End With
sFileName = oExcel.FileDialog(msoFileDialogOpen).SelectedItems(1)
Set sp = oExcel.workbooks.Open(sFileName)
sp.Activate
Dim ur As String
Dim UserRange As Excel.Range
ur = oExcel.InputBox(Prompt:="Âûáåðèòå äèàïàçîí A2:Gxxx", Title:="Âûáîð äèàïàçîíà")
Set UserRange = sp.ActiveSheet.Range(ur)
UserRange.Copy
wd.Content.Paste
Dim tb As Table
Set tb = wd.Tables(1)
    With tb
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Selection.Sections(1)
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        With .Borders
            .DistanceFrom = wdBorderDistanceFromPageEdge
            .AlwaysInFront = True
            .SurroundHeader = True
            .SurroundFooter = True
            .JoinBorders = False
            .DistanceFromTop = 24
            .DistanceFromLeft = 24
            .DistanceFromBottom = 24
            .DistanceFromRight = 24
            .Shadow = False
            .EnableFirstPageInSection = True
            .EnableOtherPagesInSection = True
            .ApplyPageBordersToAllSections
        End With
        End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
        Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=1, RulerStyle:=wdAdjustNone
    Selection.MoveRight Unit:=wdCharacter, Count:=20, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Selection.Rows.HeadingFormat = wdToggle
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints
    Selection.Tables(1).PreferredWidth = CentimetersToPoints(39.45)
    oExcel.CutCopyMode = False
    sp.Close , savechanges = False
oExcel.Quit
End Sub


Прошу прощения за отсутствие комментариев…
...
Рейтинг: 0 / 0
13.09.2013, 14:22
| Ответить | Цитировать | Написать  
Перенести данные из таблицы Excel в ворд
    #38396094
Фотография Surrogate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Surrogate
Участник
прошу прощения упустил крокозябры в одной из строк кода.
Код: vbnet
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.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
Sub Word_PasteTableFromExcel()
Dim wd As Word.Document
Set wd = ActiveDocument
Dim oExcel As Excel.Application
Set oExcel = CreateObject("Excel.Application")
Dim sp As Excel.Workbook
Dim sht As Excel.Sheets
Dim tr As Object
Dim tc As Object
Dim qx As Integer
Dim qy As Integer
pth = Word.ActiveDocument.Path
Dim ffs As FileDialogFilters
Dim sFileName As String
oExcel.Visible = True
Dim fd As FileDialog
Set fd = oExcel.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.InitialFileName = pth
 Set ffs = .Filters
    With ffs
        .Clear
        .Add "Excel", "*.xls*"
    End With
oExcel.FileDialog(msoFileDialogOpen).Show
End With
sFileName = oExcel.FileDialog(msoFileDialogOpen).SelectedItems(1)
Set sp = oExcel.workbooks.Open(sFileName)
sp.Activate
Dim ur As String
Dim UserRange As Excel.Range
ur = oExcel.InputBox(Prompt:="Выберите диапазон A2:Gxxx", Title:="Выбор диапазона")
Set UserRange = sp.ActiveSheet.Range(ur)
UserRange.Copy
wd.Content.Paste
Dim tb As Table
Set tb = wd.Tables(1)
    With tb
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Selection.Sections(1)
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        With .Borders
            .DistanceFrom = wdBorderDistanceFromPageEdge
            .AlwaysInFront = True
            .SurroundHeader = True
            .SurroundFooter = True
            .JoinBorders = False
            .DistanceFromTop = 24
            .DistanceFromLeft = 24
            .DistanceFromBottom = 24
            .DistanceFromRight = 24
            .Shadow = False
            .EnableFirstPageInSection = True
            .EnableOtherPagesInSection = True
            .ApplyPageBordersToAllSections
        End With
        End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
        Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=1, RulerStyle:=wdAdjustNone
    Selection.MoveRight Unit:=wdCharacter, Count:=20, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Selection.Rows.HeadingFormat = wdToggle
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints
    Selection.Tables(1).PreferredWidth = CentimetersToPoints(39.45)
    oExcel.CutCopyMode = False
    sp.Close , savechanges = False
oExcel.Quit
End Sub
...
Рейтинг: 0 / 0
13.09.2013, 14:25
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перенести данные из таблицы Excel в ворд
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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