0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 108
1

Перенос таблицы из Word в Excel

14.06.2016, 11:30. Показов 13207. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго дня. появилась такая проблемка: есть электронная заявка(таблица в Excel) и есть вордовский документ который мы получаем от клиента.в вордовском документе таблица с такими же столбцами как и в электронной заявке. так вот в чем проблема, как мне привязаться из экселя к ворду? что бы можно было перенести данные из ворда в эксель. использовать ctrl+с и ctrl+v не рекомендуется, т.к. хотел бы сделать перенос через кнопку на форме. вордовский файлик всегда будет лежать в одном месте.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2016, 11:30
Ответы с готовыми решениями:

Перенос таблицы из Excel в Word
С новым годом, товарисчи программисты и простые смертные! :) Счастья вам и здоровья в новом году, а...

Перенос данных с таблицы Excel по закладкам word
Макрос в excel считывает с ячейки первого столбца название закладки(назавания закладок я вношу в...

Перенос данных из ячеек таблицы Excel в соответствующие ячейки шаблона Word
Здравствуйте !Передо мной на производственной практике поставили задачу:есть заполненная таблица...

Перенос изменяющейся таблицы с листа Excel в место метки в шаблоне Word
Искал тут в разных местах как что сделать, но мои навыки в VBA примерно на 2 с "+"... Попробую как...

5
5613 / 1596 / 415
Регистрация: 23.12.2010
Сообщений: 2,397
Записей в блоге: 1
14.06.2016, 11:56 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Копирование_в_Excel_таблицу_из_Word()
    Dim i%, j%, S$, DocFullName$, WA As Object, oMyDoc As Object
    DocFullName = "C:\Temp2\Doc1.docx"
    Set WA = CreateObject("Word.Application")
    WA.Visible = True
    Set oMyDoc = WA.Documents.Open(DocFullName)
    For i = 1 To oMyDoc.Tables(1).Rows.Count
        For j = 1 To oMyDoc.Tables(1).Columns.Count
          S = oMyDoc.Tables(1).cell(i, j).Range.Text
          S = Replace(S, Chr(7), "") 'Удаление символа конца ячейки Word
          Cells(i, j) = S
        Next j
    Next i
    oMyDoc.Close 0
    WA.Quit False
    Set oMyDoc = Nothing: Set WA = Nothing
End Sub
1
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 108
14.06.2016, 13:16  [ТС] 3
очень круто) а можно что бы данные начинали вводиться с 23 строки?)
0
5613 / 1596 / 415
Регистрация: 23.12.2010
Сообщений: 2,397
Записей в блоге: 1
14.06.2016, 13:37 4
Можно
Visual Basic
1
 Cells(i+22, j) = S
1
0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 108
17.06.2016, 10:35  [ТС] 5
Цитата Сообщение от KoGG Посмотреть сообщение
DocFullName = "C:\Temp2\Doc1.docx"
здесь мы указываем непосредственно путь к файл. может подскажете, как сделать, что бы мы могли выбирать этот файл сами? т.е. открывалось окно выбора файла, мы там его выбирали, ну и дальше всё как есть)

Добавлено через 45 минут
использовал
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:", _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), ""))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function
и вроде бы нормально работает)
0
5613 / 1596 / 415
Регистрация: 23.12.2010
Сообщений: 2,397
Записей в блоге: 1
17.06.2016, 10:40 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .InitialFileName = "C:\"
        .ButtonName = "OK"
        .Filters.Clear
        .Filters.Add Description:="Файлы Word", _
            Extensions:="*.doc*"
        If .Show = 0 Then
            Exit Sub
        End If
        DocFullName = .SelectedItems(1)
        .Filters.Clear
    End With
0
17.06.2016, 10:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2016, 10:40
Помогаю со студенческими работами здесь

Перенос таблицы excel в word
Всем привет. Столкнулся с небольшой проблемой. В прикрепленном файле вы найдете excel Договор и...

Перенос таблицы из Word в Excel
Есть таблица MS Word. В ячейках данные, состоящие из нескольких строк текста. Мне нужно это все...

Перенос данных из Excel или таблицы Word в DataGridView простым копированием ячеек
Нигде не могу найти, как организовать перенос данных из Excel или таблицы Word в DataGridView...

Перенос данных из Excel в Word (на основе Word шаблона)
Пожалуйста помогите, приведите какой-то пример как организовать этот процесс нужно из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru