Экспорт таблицы из Excel в Word файл

@Furianec · Регистрация: 06.06.2014

Author24 — интернет-сервис помощи студентам

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

Добавлено через 23 часа 26 минут
Сделал вот так.

C#

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;
 
 
            //wdapp.Selection.Fields.Add(wdapp.Selection.Range, Word.WdFieldType.wdFieldLink,
            //    "Excel.Sheet." + xlVersion.ToString() + " " + xlSheetPath + " Лист1!A1G1:A290G290 \\a \\f 5 \\h", true);
            //wdapp.Visible = true;
 
            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 столбце текст не влезал на страницу. Может кто подсказать, как это реализовать?

Добавлено через 3 часа 29 минут
Что никто не знает, как заставить текст с других столбцов дублироваться на следующей странице, если хотя бы в 1 столбце текст не помещается на 1 странице?

@Furianec · 11.11.2017, 09:54 **[ТС]**

Поправил немного код, а то не красиво выглядело все.

C#

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 doc = wdApp.Documents.Add();
            doc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape;
 
            object start = 0;
            object end = 0;
            Word.Range tableLocation = doc.Range(ref start, ref end);
            doc.Tables.Add(tableLocation, worksheet.UsedRange.Rows.Count, worksheet.UsedRange.Columns.Count);
 
            for (int i = 1; i <= worksheet.UsedRange.Rows.Count; i++)
            {
                for (int j = 1; j <= worksheet.UsedRange.Columns.Count; j++)
                {
                    var val = worksheet.UsedRange.Cells[i, j].Value;
                    if (val != null)
                    {
                        string date = val.ToString();
                        if (j == 5 && date.Contains("0:00:00"))
                        {
                            val = date.Replace(" 0:00:00", "");
                        }
                        doc.Tables[1].Cell(i, j).Range.Text = val.ToString();
                    }
                }
                doc.Tables[1].Rows[i].Alignment = WdRowAlignment.wdAlignRowCenter;
            }
 
            doc.Tables[1].Rows[1].HeadingFormat = -1;
            doc.Tables[1].Rows[1].Range.Bold = 1;
            
            for (int i = 1; i <= 7; i++)
            {
                doc.Tables[1].Rows[1].Cells[i].VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter;
                doc.Tables[1].Rows[1].Cells[i].Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
            }
            doc.Tables[1].Columns[1].SetWidth(wdApp.Application.CentimetersToPoints(1.5f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Columns[2].SetWidth(wdApp.Application.CentimetersToPoints(1.9f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Columns[3].SetWidth(wdApp.Application.CentimetersToPoints(2.8f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Columns[4].SetWidth(wdApp.Application.CentimetersToPoints(3f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Columns[5].SetWidth(wdApp.Application.CentimetersToPoints(4f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Columns[6].SetWidth(wdApp.Application.CentimetersToPoints(12f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Columns[7].SetWidth(wdApp.Application.CentimetersToPoints(3f), Word.WdRulerStyle.wdAdjustNone);
            doc.Tables[1].Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle;
            doc.Tables[1].Borders.OutsideLineStyle = WdLineStyle.wdLineStyleSingle;
            doc.Tables[1].Range.Font.Name = "Times New Roman";
            doc.Tables[1].Range.Font.Size = 11F;
            doc.SaveAs(@textBox2.Text);
            workbook.Close();
            xlApp.Quit();

Но решение проблемы я так и не нашел. Еще раз объясню суть проблемы. Мне нужно, что бы получилось, как на скриншоте. Что бы текст с 1,2,3,4,5,7 колонок дублировались на другую страницу, если в 6 столбце текст не влезал на одну страницу. Помогите пожалуйста. Не имею представления, как мне это сделать.

@Furianec · 13.11.2017, 14:58 **[ТС]**

Намекните хотя бы с чего начать.

Добавлено через 17 часов 31 минуту
Я не верю, что никто не знает. Это вообще возможно как-то сделать? Как-то отследить по границе таблицы или еще как-то. Уже 1.5 недели пытаюсь сделать и никак не получается. Помогите пожалуйста. На Stack Overflow создал вопрос, там то же тишина.

@Furianec 0 / 0 / 4 Регистрация: 06.06.2014 Сообщений: 81
	13.11.2017, 14:58 [ТС]	3
	Намекните хотя бы с чего начать. Добавлено через 17 часов 31 минуту Я не верю, что никто не знает. Это вообще возможно как-то сделать? Как-то отследить по границе таблицы или еще как-то. Уже 1.5 недели пытаюсь сделать и никак не получается. Помогите пожалуйста. На Stack Overflow создал вопрос, там то же тишина. 0