1

Столкнулся с трудностью, нужно экспортировать таблицу из excel файла в word. Может кто подсказать, как это реализовать? (может быть у кого нибудь уже есть готовый вариант)

2 ответа 2

2

Есть библиотеки для работы с Microsoft Office:

Microsoft.Office.Interop.Excel и Microsoft.Office.Interop.Word Добавь их в проект через NuGet и будет тебе счастье.

Реализация:

        using Word = Microsoft.Office.Interop.Word;

        Word.Application wdapp = new Word.Application();
        Word.Document wddoc = wdapp.Documents.Add();
        string xlSheetPath = @"D:\\New\\1.xlsx"; \\ **Путь к файлу Excel**
        string ext = xlSheetPath.Substring(xlSheetPath.LastIndexOf("."),
            xlSheetPath.Length - xlSheetPath.LastIndexOf("."));
        int xlVersion = (xlSheetPath.Substring(xlSheetPath.LastIndexOf("."),
            xlSheetPath.Length - xlSheetPath.LastIndexOf(".")) == ".xls") ? 8 : 12;
        wdapp.Selection.Fields.Add(wdapp.Selection.Range, Word.WdFieldType.wdFieldLink,
            "Excel.Sheet." + xlVersion.ToString() + " " + xlSheetPath + " Лист1!R1C1:R13C5 \\a \\f 5 \\h", true); \\ **Выбор нужного диапазона для переноса**
        wdapp.Visible = true;
8
  • Уже добавлял. Вообще пробовал по вот этому методу. Но так и не понял, как его реализовать. cyberforum.ru/windows-forms/thread809561.html
    – Furianec
    8 ноя 2017 в 7:38
  • "Приложению Word не удалось создать связи с указанным объектом. Вставьте объект непосредственно в файл без использования связи." А в самом word документе написано "Ошибка! Ошибка связи." Диапазон брал вот такой (A1G1:A290G290 я же правильно его указал? Мне нужно от А1 до G290.)
    – Furianec
    8 ноя 2017 в 8:30
  • Furianec Переведите в R1C1 формат, в коде указано, что интексаторы ячеек только в таком формате
    – Rifter
    8 ноя 2017 в 9:01
  • В общем так и не получилось сделать как у вас. Не понимаю, что с этой строчкой не так. wdapp.Selection.Fields.Add(wdapp.Selection.Range, Word.WdFieldType.wdFieldLink, "Excel.Sheet." + xlVersion.ToString() + " " + xlSheetPath + " Лист1!R1C1:R13C5 \\a \\f 5 \\h", true); \\ Выбор нужного диапазона для переноса
    – Furianec
    9 ноя 2017 в 6:01
  • @Furianec На пальцах: R1C1 - Row 1, Column 1 (это A1) : R13C5 - Row 13, Column 5 (это E13), все что в пределах этого диапазона - экспортируется в другой файл.
    – Rifter
    9 ноя 2017 в 7:33
0

Сделал вот так.

   Word.Application wdapp = new Word.Application();
        Word.Document wddoc = wdapp.Documents.Add();
        string xlSheetPath = textBox1.Text;
        string ext = xlSheetPath.Substring(xlSheetPath.LastIndexOf("."),
            xlSheetPath.Length - xlSheetPath.LastIndexOf("."));
        int xlVersion = (xlSheetPath.Substring(xlSheetPath.LastIndexOf("."),
            xlSheetPath.Length - xlSheetPath.LastIndexOf(".")) == ".xls") ? 
 8 : 12;
        Microsoft.Office.Interop.Excel._Application xlApp = new 
  Excel.Application();
        xlApp.Visible = true;
        Excel.Workbook workbook = xlApp.Workbooks.Open(xlSheetPath);
        Excel.Worksheet worksheet = workbook.Sheets[1];

        Word._Application wdApp = new Word.Application();
        wdApp.Visible = true;
        Word.Document document = wdApp.Documents.Add();
        document.PageSetup.Orientation = 
    Word.WdOrientation.wdOrientLandscape;

        worksheet.Range["A1", "G6"].Copy();
        document.Range().PasteSpecial();

        workbook.Close();
        xlApp.Quit();

Но теперь не понимаю, как сделать, что бы текст с других столбцов переезжал на другую страницу, если хотя бы в 1 столбце текст не влезал на страницу. Может кто подсказать, как это реализовать?

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.