Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Способы передачи данные Visual Basic.Net в Excel Добавлено: 21.04.10 20:52  

Автор вопроса:  vladigasparo
Привет всем!
Люди дорогие у меня вот какая проблема. Я хочу программным путем передать данные Visual Basic.Net (Visual Studio 2008) в Excel 2007. Вот код, через которого произвожу действия:

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

'Открыть новую книгу Excel
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add

'Добавить данные в ячейки первого листа новой книги
oSheet = oBook.Worksheets(1)

oSheet.Range("A1").value = "My Name"
oSheet.Range("A1").Font.Size = 12
oSheet.Range("A1").HorizontalAlignment = 2

'Сохранить книгу и закрыть Excel
oBook.SaveAs("D:\Blank.xls")
oExcel.Quit()

но во время компиляции (F5) на строке
oBook = oExcel.Workbooks.Add

выводится следующая ошибка: "Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD)):"
Присоединяю библиотеку: Project > Add Reference ... > Раздел COM > Microsof Excel 12.0 Object Library, но все равно не получается.
Если кто-нибудь из вас сталкивался с такой проблемой, пожалуйста помогите.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 turBO



ICQ: 451232820 

Вопросов: 9
Ответов: 13
  Web-сайт: blitz3d.at.ua
 Профиль | | #1 		Добавлено: 01.05.10 21:22
Попробуй несколько по-другому.
  1. Public Sub EXPORT_TO_EXCEL(ByVal FileName As String)
  2.         Dim xlApp As Excel.Application
  3.         Dim xlWorkBook As Excel.Workbook
  4.         Dim xlWorkSheet As Excel.Worksheet
  5.         Dim misValue As Object = System.Reflection.Missing.Value
  6.         Dim i As Integer
  7.         Dim j As Integer
  8.  
  9.         xlApp = New Excel.ApplicationClass
  10.         xlWorkBook = xlApp.Workbooks.Add(misValue)
  11.         xlWorkSheet = xlWorkBook.Sheets("Лист1")
  12.  
  13.         Try
  14.             xlWorkSheet.Cells(1, 1) = "data1"
  15.             xlWorkSheet.SaveAs(FileName)
  16.             xlWorkBook.Close()
  17.         Catch ex As Exception
  18.             MsgBox(ex.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Файл не будет сохранён!")
  19.         End Try
  20.         xlApp.Quit()
  21.  
  22.         releaseObject(xlApp)
  23.         releaseObject(xlWorkBook)
  24.         releaseObject(xlWorkSheet)
  25.  
  26.         MsgBox("Файл " & FileName & " успешно сохранён")
  27.     End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам