Exportar un excel

27/03/2006 - 00:45 por Yangernet | Informe spam
Hola a todos!!

Tengo un error q no puedo solucionar lo que quiero es exportar el nombre de
una etiqueta q tiene el nombre de "Sales" al rango A1 del Excel

Relaizo lo siguiente:

Imports Excel

Public Class Form1
Inherits System.Windows.Forms.Form

Dim excelapp As Excel.Application
Dim mybook As Workbook
Dim mysheet As Worksheet

Private Sub txtExcel_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtExcel.Click

excelapp = New Excel.Application

excelapp.Visible = True

excelapp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)

excelapp.Worksheets.Add(, excelapp.Worksheets(1), )
mysheet = mybook.Worksheets(1) >>>>>>>> ACA SE PRODUCE EL ERROR
mysheet.Activate()

mysheet.Range("A1").Value = "Sales"
End Sub
End Class

Me sale un aviso :

"Excepción no controlada del tipo 'System.NullReferenceException' en Excel.exe

Información adicional: Referencia a objeto no establecida como instancia de
un objeto."

NO SE CUAL ES LA FALLA? :s

Espero q me puedan ayudar a solucionar esto gracias!!!..
 

Leer las respuestas

#1 Luis Miguel Blanco
27/03/2006 - 14:57 | Informe spam
Hola Yangernet

En lugar de usar la colección Worksheets, usa mejor Sheets, como puedes ver
en el siguiente bloque de código:

'/////////////////////////
excelapp = New Excel.Application
excelapp.Visible = True
excelapp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)
excelapp.Sheets.Add(, excelapp.Worksheets(1), )
mysheet = excelapp.Sheets(1)
mysheet.Activate()
mysheet.Range("A1").Value = "Sales"
'/////////////////////////

Espero que de esta forma ya te funcione.
Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"Yangernet" wrote:

Hola a todos!!

Tengo un error q no puedo solucionar lo que quiero es exportar el nombre de
una etiqueta q tiene el nombre de "Sales" al rango A1 del Excel

Relaizo lo siguiente:

Imports Excel

Public Class Form1
Inherits System.Windows.Forms.Form

Dim excelapp As Excel.Application
Dim mybook As Workbook
Dim mysheet As Worksheet

Private Sub txtExcel_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtExcel.Click

excelapp = New Excel.Application

excelapp.Visible = True

excelapp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)

excelapp.Worksheets.Add(, excelapp.Worksheets(1), )
mysheet = mybook.Worksheets(1) >>>>>>>> ACA SE PRODUCE EL ERROR
mysheet.Activate()

mysheet.Range("A1").Value = "Sales"
End Sub
End Class

Me sale un aviso :

"Excepción no controlada del tipo 'System.NullReferenceException' en Excel.exe

Información adicional: Referencia a objeto no establecida como instancia de
un objeto."

NO SE CUAL ES LA FALLA? :s

Espero q me puedan ayudar a solucionar esto gracias!!!..

Preguntas similares