Visual Basic para Aplicaciones - nesecito help

Life is soft - evento anual de software empresarial
 
Vista:

nesecito help

Publicado por juan francisco (4 intervenciones) el 16/06/2008 20:02:10
hola a todos.
lo que necesito es si se puede enviar el contenido de un textbox a un lugar especifico de una hoja en excel, si alguien sabe pido el favor que me deje un codigo de ejemplo porque es lo unico que me esta faltando, soy un poco nuevo en esto de los informes, se los agradesco
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

RE:nesecito help

Publicado por Juan Urrutia (1 intervención) el 16/06/2008 21:40:39
hola Amigo espero te sirva esto

Private Sub Command1_Click()
Dim oExcel As Excel.Application
Dim oHoja As Excel.Worksheet

Set oExcel = New Excel.Application

oExcel.Workbooks.Add
oExcel.Application.Visible = True

Set oHoja = oExcel.Sheets(1)

oHoja.Cells(1, 1) = "Hola Mundo"

Set oExcel = Nothing
Set oHoja = Nothing
End Sub

con ese codigo tienes que agregar la referencia de tu Excel

Microsoft Excel (Version) Object Library
la ventaja de usar la referencia es que puedes ver las propiedades y eventos de la hoja y aplicacion de Excel

si no quieres que dependa de la referencia

entonces has esto

Private Sub Command1_Click()
Dim oExcel As Object
Dim oHoja As Object

Set oExcel = CreateObject("Excel.Application")

oExcel.Workbooks.Add
oExcel.Application.Visible = True

Set oHoja = oExcel.Sheets(1)

oHoja.Cells(1, 1) = "Hola Mundo"

Set oExcel = Nothing
Set oHoja = Nothing
End Sub
_________________________________________________
cuando desees hacer algo mas en Excel desde VB, te recomiendo que en el Excel hasas lo que desees grabandolo en una macro....luego te vas al VB y ahi acomodas el codigo...

saludos
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

RE:nesecito help

Publicado por JuanC (243 intervenciones) el 16/06/2008 22:44:46
si estás trabajando en VBA una forma de hacerlo es

[A1] = UserForm1.TextBox1.Text

Saludos desde Baires, JuanC
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