Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - Almacenar datos

Life is soft - evento anual de software empresarial
  Imprimir  
Vista:

Almacenar datos

Publicado por Nico SM (1 intervención) el 04/05/2007 03:05:45
consulta de basic dentro de EXCEL.... me estoy armando un programita para esciribr datos y que me los guarde en el excel!

lo que hice hasta ahora es armarme toda la arquitectura fisica (es decir, los campos, los botones y bla bla bla)...

mi pregunta es como hago para cuando aprieto el boton INGRESAR (que lo cree yo).. me guarde todo lo que escribí en cada campo del programa en disitntos campos de una tabla en excel...

por ejemplo, tengo un textbox donde escribi de que banco es
otro de Observaciones donde se escribe el nombre
otro de numero de expediente donde va el numero de expediente
etc, etc

... y lo que quiero es que cuando apriete "ingresar" cada uno de los datos escritos en los textbox me los escriba automaticamente en distintas columnas (llamadas Banco, observacion, numero de expediente, etc etc) UBICADAS EN EL EXCEL....

idem no solo con eso sino con unos Option button que segun la que elija que el nombre del costado me lo pase a otrac olumna dentro del excel...

muchas gracias y espero que alguien me ayudeeeee
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:Almacenar datos

Publicado por charlyg (5 intervenciones) el 05/05/2007 22:16:48
Nico, como va...

aca te tiro algo, que estuve usando para crear un excel:

para tu ejemplo seria asi:
Private Sub btnIngresar_Click()
On Error GoTo fallo
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim Fil As Long
Dim Col As Long
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
xlWS.Cells(1, 1).Value = "Banco"
xlWS.Cells(1, 2).Value = "Observaciones"
xlWS.Cells(1, 3).Value = "Nro. Expediente"
xlWS.Cells(2,1).Value = txtBanco.Text
xlWS.Cells(2, 2).Value = txtObs.Text
xlWS.Cells(2, 3).Value = txtNroExp.Text
- es decir, asignas directamente de los TextBox a las celdas y las tratas como pared ordenados (x,y).
' etse es el lugar donde se crea el nuevo archivo de excel
xlWS.SaveAs "C:\ArchivoExcel.xls"
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
MsgBox ("Archivo creado en C:\"), vbInformation
Exit Sub
' en caso de algun error tira este mensaje
fallo:
MsgBox ("No se creo el archivo"), vbInformation
End Sub

'''''''''''''''''''
'esto lo podes utilizar para cargar datos desde un flexgrid:

CantReg = CantReg + 1
For Fil = 2 To CantReg
For Col = 1 To 6
On Error Resume Next
xlWS.Cells(Fil, Col) = Grilla.TextMatrix(Fil - 1, Col - 1)
Next Col
Next Fil

''''''''''''''''''
'para hacer uso de formatos de Excel tenes que agregar la Referencia: "Microsoft Excel 10.0 Object Library"...... 10.0 o inferiror, segun la version que tengas del Office, puede ser 8.0 tambien.

espero que sirva, 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:Almacenar datos

Publicado por Alberto Garcia C (13 intervenciones) el 08/05/2007 23:20:35
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet


Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add

'Envia Encabezados
xlWS.Cells(2, 7).Value = ListaArchivosC

xlWS.Cells(3, 3).Value = xxLar1
xlWS.Cells(4, 3).Value = xxLar2
xlWS.Cells(5, 3).Value = xxLar3

xlWS.Cells(3, 16).Value = xxTempM
xlWS.Cells(4, 16).Value = xxLar4
xlWS.Cells(5, 16).Value = xxLar5
xlWS.Cells(6, 16).Value = TCEA
xlWS.Cells(7, 16).Value = TCDA....etc


xlWS.SaveAs Ruta
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing

y Listo : )
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