Excel y Visual Basic como ?????

Iniciado por ::: Devil :::, 16 Abril 2007, 06:20 AM

0 Miembros y 1 Visitante están viendo este tema.

::: Devil :::

hola necesito un favor de ustedes me han dicho que en el msflexgrid se puede agregar datos y se puede modificar y eso mi caso es este

estoy haciendo un programa que me saque un control de gestion de una empresa la cual lleva ahorita todo eso en excel y yo lo que quiero es traer ese formato de excel a visual basic por medio del msflexgrid(si saben algo mas sencillo).

otro caso es este trayendo ese formato de excel a vb yo pudiera hacer los mismo como si lo estubiera haciendo en excel es decir sacar las funciones que me daba en excel las cuales son suma y resta y el porcentaje.

yo lo que quiero en si es traer ese formato de excel a vb para hacer todo eso sin necesidad de enrollarme tanto haciendo codigo para que me saque porcentaje y todo lo demas, claro tengo que escribir y poder modificar lo que traiga en excel
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
mi codigo es este
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
en el frm_Lectura tengo este
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Private Sub Form_Load()
Inicio
Caracteristicas
FormatearTabla
LlenadoDeTabla
End Sub
---------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Finalizar
End Sub
---------------------------------------------------------------
Private Sub mnuSalir_Click()
ApliNudos.Quit
End
End Sub

-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
y en el modulo que seria Lectura(Lectura.bas) tengo este
-------------------------------------------------------------------------------
Option Explicit

Public ApliNudos As Excel.Application
Public LibroNudos As Excel.Workbook
Public HojaNudos As Excel.Worksheet
Public RangoNudos As Excel.Range
Public CeldaVacia As Integer
Public Columnas As Integer
Public Filas As Integer
Public i As Integer, j As Integer
Public Sub Caracteristicas()
Set HojaNudos = LibroNudos.Sheets(1)
Set RangoNudos = HojaNudos.Rows(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Column
End If
Columnas = CeldaVacia
Set RangoNudos = HojaNudos.Columns(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Row
End If
Filas = CeldaVacia
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub Finalizar()
Set ApliNudos = Nothing
Set LibroNudos = Nothing
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub FormatearTabla()
With frmLectura.grdNudos
.Cols = Columnas
.Rows = Filas
.Visible = True
End With
End Sub

Public Sub Inicio()
Set ApliNudos = CreateObject("Excel.Application")
Set LibroNudos = ApliNudos.Workbooks.Open(App.Path & "\Nudos1.xls")
End Sub

Public Sub LlenadoDeTabla()
Set HojaNudos = LibroNudos.Worksheets(1)
For i = 1 To Columnas - 1
frmLectura.grdNudos.Col = i
For j = 1 To Filas - 1
frmLectura.grdNudos.Row = j
frmLectura.grdNudos.Text = HojaNudos.Cells(j, i)
Next j
Next i
End Sub

Sub Main()
frmLectura.Show
End Sub
NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA

::: Devil :::

sera que no me pueden ayudar o no tienen idea de lo que es por favor diganme
NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA

CeLaYa

pues podrías usar un objeto Ole pala cargar el archivo de excel en una ventana del VB, y luego por medio de código "jalar" los resultados a variables del VB
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.

::: Devil :::

sas eso es lo que quiero que me expliquen un poquito que estoy medio trancado no me recuerdo de mucho tenia tiempo que no programaba en visual basic y quiero que me expliquen un poco de como hacer esto
NI TU NI NADIEN PORDRAN CONMIGO SOY MAS FUERTE QUE LA ENVIDIA.

ESTO ESTA DEDICADO A LOS QUE ME JODEN LA VIDA

cuntur

#4
.