Visual Basic - INSERTAR DATOS DESDE VISUAL STUDIO EN UN ARCHIVO EXISTENTE DE EXCEL

Life is soft - evento anual de software empresarial
 
Vista:

INSERTAR DATOS DESDE VISUAL STUDIO EN UN ARCHIVO EXISTENTE DE EXCEL

Publicado por Kitzelys (2 intervenciones) el 20/09/2023 21:01:10
Estoy intentando abrir un archivo de Excel ya existente y que en las celdas especificadas aparezca los datos que voy agregando en los textBox de mi programación. Estoy utilizando este código:


Dim Excelapp = New Microsoft.Office.Interop.Excel.Application
Dim libro = Excelapp.Workbooks.Add

libro.Sheets(1).Cells(1, 13) = TextBox1.Text
libro.SaveAs(Filename:="C:\Users\tecnilab\Desktop\test\tmr-100.xlsx")
Label25.Text = "El registro fué enviado con éxito"
Excelapp.Quit()
libro = Nothing
Excelapp = Nothing

Pero no me funciona.

Podrían por favor ayudarme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

INSERTAR DATOS DESDE VISUAL STUDIO EN UN ARCHIVO EXISTENTE DE EXCEL

Publicado por pello (1 intervención) el 29/09/2023 09:39:16
este es un ejemplo de guardado de una tabla en un excel

If Not System.IO.Directory.Exists(strDir) Then
MkDir(strDir)
End If

strFicheroExcel = strDir & "nombre de excel" & Format(Now, "hhmmss") & "_TEMP.xls"

UltraGridExcelExporter1 = New Infragistics.Win.UltraWinGrid.ExcelExport.UltraGridExcelExporter()
UltraGridExcelExporter1.Export(IdsGrdOFs, strFicheroExcel)

objXL = CreateObject("Excel.Application")
If objXL Is Nothing Then
MostrarMensajeEnPantalla("Aviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
objXL.Visible = True
objXL.Workbooks.OpenText(strFicheroExcel, , , 1, , , , True)
objXL.Workbooks(1).Worksheets(1).Name = "nombre"
objXL.Workbooks(1).Saved = True
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar