Столкнулся с трудностью, нужно экспортировать таблицу из excel файла в word. Может кто подсказать, как это реализовать? (может быть у кого нибудь уже есть готовый вариант)
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;
-
Уже добавлял. Вообще пробовал по вот этому методу. Но так и не понял, как его реализовать. cyberforum.ru/windows-forms/thread809561.html– Furianec8 ноя 2017 в 7:38
-
"Приложению Word не удалось создать связи с указанным объектом. Вставьте объект непосредственно в файл без использования связи." А в самом word документе написано "Ошибка! Ошибка связи." Диапазон брал вот такой (A1G1:A290G290 я же правильно его указал? Мне нужно от А1 до G290.)– Furianec8 ноя 2017 в 8:30
-
Furianec Переведите в R1C1 формат, в коде указано, что интексаторы ячеек только в таком формате– Rifter8 ноя 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); \\ Выбор нужного диапазона для переноса– Furianec9 ноя 2017 в 6:01
-
@Furianec На пальцах: R1C1 - Row 1, Column 1 (это A1) : R13C5 - Row 13, Column 5 (это E13), все что в пределах этого диапазона - экспортируется в другой файл.– Rifter9 ноя 2017 в 7:33
Сделал вот так.
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 столбце текст не влезал на страницу. Может кто подсказать, как это реализовать?