Подключите нашего Telegram-бота для уведомлений о новых проектах
Вставить таблицу из Excel в Word VB.NET
Разместить заказ
N
Заказчик
Отзывы фрилансеров:
+ 1
- 0
Зарегистрирован на сайте 12 лет и 10 месяцев
Бюджет:
2000 руб
24.38 $ — 21.45 €
Исполнитель определен:
Роман Савенко
Здравствуйте!
Мне нужно вставить таблицу из Excel в Word средствами VB.NET. Работаю в Visual Studio 2010.
Написал следующий код:
Dim WB As Excel.Workbook = applicationObject.ActiveWorkbook
Dim wd As New Word.Document
Dim sh_curr As Excel.Worksheet
Dim cel_curr As Excel.Range
Dim tbl_name As String = "название_листа"
Dim tbl_range As String = "название_диапазона"
Dim tbl_bm As String = "закладка"
wd.Bookmarks.Item(tbl_bm).Select()
sh_curr = WB.Worksheets(tbl_name)
cel_curr = sh_curr.Range(tbl_range)
cel_curr.Copy()
wa.Selection.PasteExcelTable(False, False, False)
Иногда таблица не вставляется и выдается следующая ошибка:
"Метод или свойства не доступны, поскольку буфер обмена пуст или содержит неверные данные"
Вот похожая ситуация (только там VBA, а у меня VB.NET):
Слышал, что можно вставлять таблицы в Ворд с помощью XML.
Хотелось бы решить эту проблему.
Мне нужно вставить таблицу из Excel в Word средствами VB.NET. Работаю в Visual Studio 2010.
Написал следующий код:
Dim WB As Excel.Workbook = applicationObject.ActiveWorkbook
Dim wd As New Word.Document
Dim sh_curr As Excel.Worksheet
Dim cel_curr As Excel.Range
Dim tbl_name As String = "название_листа"
Dim tbl_range As String = "название_диапазона"
Dim tbl_bm As String = "закладка"
wd.Bookmarks.Item(tbl_bm).Select()
sh_curr = WB.Worksheets(tbl_name)
cel_curr = sh_curr.Range(tbl_range)
cel_curr.Copy()
wa.Selection.PasteExcelTable(False, False, False)
Иногда таблица не вставляется и выдается следующая ошибка:
"Метод или свойства не доступны, поскольку буфер обмена пуст или содержит неверные данные"
Вот похожая ситуация (только там VBA, а у меня VB.NET):
Слышал, что можно вставлять таблицы в Ворд с помощью XML.
Хотелось бы решить эту проблему.
Разделы:
Опубликован:
09.01.2016 | 16:11