uchas gracias por anticipado por su ayuda. necesitaria saber como insertar el valor de un texbox en una casilla de un documento excel que ya existe.
tengo esta formula, pero lo que hace es que me crea un documento
Dim oExcel As object
Dim oBook As object
Dim oSheet As object
Dim textbox As object
'Start a new workbook in Excel
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.add
'Add data to cells of the first worksheet in the new workbook
oSheet = oBook.Worksheets(3)
oSheet.Range("c3").Value = "TextBox4"
oSheet.Range("c5").Value = "TextBox3"
oSheet.Range("c7").Value = "TextBox2"
oSheet.Range("c9").Value = "textbox1"
'Save the Workbook and Quit Excel
oExcel.Quit()
oBook.SaveAs("e:\miquel\grado superior\2º\projecte\programa\definitivo\definitiv o\calculs clio III.xls")
oExcel.Visible = True
oExcel.UserControl = True
y esta otra que poseo me abre el documento, pero no se manejarla
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
' botón que ejecuta la rutina para buscar y reemplzar en la hoja
string TextBox1, TextBox2, TextBox3, TextBox4, False
' Rutina que busca en la hoja y reemplaza todo
Dim PathXls As String
Dim Hoja As String
Dim TextoFind As String
Dim TextoReplace As String
Dim AppXls As Object
' verifica si existe el path del archivo xls
If Len(Dir(PathXls)) = 0 Then
MsgBox("No se ha encontrado la ruta el Libro", vbCritical)
Exit Sub
End If
If Hoja = vbNullString Or _
TextoFind = vbNullString Or _
TextoReplace = vbNullString Then
MsgBox("No se indicaron algunos parámetros", vbCritical)
Exit Sub
End If
' Nuevo objeto de Excel Application
AppXls = CreateObject("Excel.Application")
' abre el libro
AppXls.Workbooks.Open = ("e:\miquel\grado superior\2º\projecte\programa\definitivo\definitiv o\calculs clio III.xls")
' opcional ( excel no visible )
AppXls.Visible = True
' Ejecuta el método Replace, indicando el Sheet, y las opciones de búsqueda y reemplazo
AppXls.ActiveWorkbook.Sheets(3).Application.Cells. Replace(What:=TextoFind, _
Replacement:=TextoReplace, _
LookAt:=2, _
SearchOrder:=2, _
MatchCase:=Match_Case)
AppXls.ActiveWorkbook.Save()
' cierra y elimina la referencia de Excel
AppXls.quit()
AppXls = Nothing
End Sub
alguien me puede echar una mano por favor?
