Guardar datos de formulario en otro libro de Excel
Tengo un formulario para capturar datos en un libro con nombre "NOTA", Lo que intento hacer es que los datos contenidos en los textbox sean guardados en otro libro con "x" nombre pero que éste no se abra al ejecutar la macro. Tengo este código me funciona parcialmente pero abre el libro donde se guardan los dato y me sale un error que se requiere un objeto:
Private Sub CommandButton6_Click()
Dim OExcel As Object
Dim OSheet As Object
Dim ruta As String
Set OExcel = CreateObject("Excel.Application")
OExcel.Workbooks.Add
Range("A1048576").End(xlUp).Offset(1, 0).Select
OExcel.ActiveSheet.Cells(1, 1) = TextBox1 'contenido del text
OExcel.ActiveSheet.Cells(1, 2) = TextBox2 'contenido del label
ruta = App.Path & "c:\PROYECTO\Libro1.xlsx" & ".xlsx" 'En esta linea me sale error!
' guarda
OExcel. ActiveSheet. Save ruta
Cierra el Exc.
OExcel. ActiveSheet. Quit
End Sub
Sin me pueden ayudar a solucionar este codigo.
1 Respuesta
Claro que sale error... por dos motivos
App... ¿qué cosa es? Debes haber adaptado la macro de otra... y se te quedó eso.
Y estas concatenando dos veces .xlsx
Cambia:
ruta = App.Path & "c:\PROYECTO\Libro1.xlsx" & ".xlsx"
por
ruta = "c:\PROYECTO\Libro1.xlsx"
Por otro lado, aun corrigiendo eso, pronostico que podrías tener un error después en la linea que ejecuta el método Save... ya que si vas a indicar un nombre deberías usar SaveAs
Además en tu codigo tienes que volver a poner el apostrofo al comentario de la antepenultima fila
' Cierra el Exc. te falta agregar el apostrofo
Buena suerte.
