Quiero hacer lo siguiente:
Que cuando le de click al Boton guardar, aparte de guardar en una DB, también guarde en un archivo de Excel. Para que guarde en excel tiene que ser en la ultima fila vacia y de ahí inserte los datos de cada TextBox en cada celda. y que cada vez que se guarde lo haga en la siguiente Fila vacía.
El código de Guardar es el siguiente:
'Guardar en excel.'
Dim app As New Microsoft.Office.Interop.Excel.Application
Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
Dim wb = app.Workbooks.Add("C:\Users\gdjgrico\Documents\PruebaNPI.xlsm")
Dim ws = wb.Worksheets.Add("Sheet1")
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
Dim UltimaFila As Long
UltimaFila = app.Range("A" & app.Rows.Count).End(XlDirection.xlUp).Row
UltimaFila += 1
app.Visible = True
app.UserControl = True
app.Worksheets.Application.Cells(UltimaFila, 1) = txtfecha.Value
app.Worksheets.Application.Cells(UltimaFila, 2) = lblTecnico.Text
Me arroja el siguiente error:
System.Runtime.InteropServices.COMException
HResult=0x800A03EC
Mensaje = Exception from HRESULT: 0x800A03EC
Origen = <No se puede evaluar el origen de la excepción>
Seguimiento de la pila:
<No se puede evaluar el seguimiento de la pila de excepciones>
El error me lo arroja en la linea:
Dim ws = wb.Worksheets.Add("Sheet1")
Todo esto en Visual Basic.
Esta es mi interfaz de Captura:
El botón Guardar aparece cuando se fallo una prueba o cuando paso toda la prueba. Y guarda en la Base de Datos.
Espero me puedan ayudar.
wb.Worksheets.Add()
pues a este método parece que no le puedes pasar el nombreDim ws = wb.Worksheets.Add()
y cambie tambien las siguientes lineas:ws.Cells(UltimaFila, 1) = txtfecha.Value
ws.Cells(UltimaFila, 2) = lblTecnico.Text
y si funciona pero lo hace en un documento nuevo. no abre el que yo quieroDim ws = wb.Worksheets.get_Item("Sheet1")