pasar una variable de visual basic 6.0 a una celda en excel

psalm23

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

jmvd70

Bovino adicto
#3
O.O

Saludos partner

Creo que lo que necesitas es algo así:

Sub LlenaCelda(ByRef pSheet As Worksheet, ByVal pRow As Integer, ByVal pCol As Integer, ByVal pCont As Variant, ByVal pWidth As Integer, ByVal pBol As Boolean, ByVal pNum As Boolean)
pSheet.Cells(pRow, pCol).Value = pCont
If pWidth > 0 Then
pSheet.Cells(pRow, pCol).ColumnWidth = pWidth
End If
pSheet.Cells(pRow, pCol).Font.Size = 9
pSheet.Cells(pRow, pCol).Font.Bold = pBol
If pNum Then
pSheet.Cells(pRow, pCol).NumberFormat = "###,###,###,##0.00"
End If
End Sub

donde:

pSheet es la hoja
pRow es la fila (en número)
pCol es la columna (en número)
pCont es el contenido
pWidth es el ancho de la celda
pBol es el Bold de la letra
pNum para indicar si el contenido es numérico.

Suerte.
 
Arriba