enviar valor a excel

[psalm23]

Hola aqui otra vez pidiendo ayuda ojala alguien me pudiera ayudar, como paso el valor de una variable digamos "A" a una celda especifica de una plantilla u hoja en excel ya creada

[lansix]

Te refieres a copiar de una hoja a otra? Segun entiendo yo tendrias que hacer esto:

Teniendo en cuenta que tienes 4 labels. Serian :

1. 1 para la fila.
2. 1 para la columna ( estos 2 indicaran la celda ala que quieres copiar la variable)
3. 1 para la hoja a copiar.

El codigo seria asi :

Private Sub Command1_Click()

Sheets(HojaSeleccionada).select
Cells(FilaSeleccionada,ColumnaSeleccionada) = Variable que tu desees

End Sub

[hugo180486]

Mira este pequeño codigo te servira, basciamente lo que hace es abrir un Excel y poner valores, tambien puedes hacerlo con un INSERT INTO pero aqui los valores que pongas no podras colocarlos en la celda que quieres, cuando trabajas con INSERT el Excel se convierte en BD tipo Acess por poner un ejemplo

Saludos, comenta si te sirvio.

Código vb:

Dim ExApp   As Excel.Application
    Dim ExLibro As Excel.Workbook
    Dim i       As Integer
    
    Set ExApp = New Application
    
    Set ExLibro = ExApp.Workbooks.Open("C:\Prueba.xlsx") '// Abrir libro deseado, y asignarlo a la variable objeto
    
    '// Poner los valores
    With ExLibro.Worksheets("Prueba")
        .Cells(1, 1).Value = "Lista del 1 al 100"
        .Cells(1, 1).EntireColumn.AutoFit
        For i = 1 To 100
            .Cells(i + 1, 1).Value = i
        Next
    End With
    
    '// Cerrar el libro y guardar cambios por default
    ExLibro.Close True
    
    Set ExApp = Nothing
    Set ExLibro = Nothing
 

[psalm23]

si si me sirvio gracias