border
VB 6
 
 
/
  #1 (permalink)  
Antiguo 21-02-2005, 08:18:39
Avatar de Insomnia17
Gran Participación en el Foro
 
Registrado: abr 2004
Posts: 402
Créditos: 10.558
Insomnia17 Valoración +2
Predeterminado Última fila de Excel

Hola

Tengo una lista muy larga de celdas en Excel que estoy intentando pasar a access mediante Visual Basic. Hasta ahora para saber cuando terminaban las filas de Excel miraba los valores de la celda, y si estaban en blanco, es que se habían terminado las filas (todas las filas erán continuas), pero en este caso puedo tener filas vacias entre medio.

Por eso mi pregunta es: Como puedo saber cuantas Filas tiene la hoja de Excel?

--Gracias--
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 21-02-2005, 18:58:38
Buena Participación en el Foro
 
Registrado: feb 2005
Posts: 74
Créditos: 1.154
ChuckyAr Valoración +2
Predeterminado

Insomnia17:

1.-¿ Las filas estan completamente vacias? si es asi las podes eliminar ¿o no?

= Te paso un macro que va a la ultima celda con datos (Columna A), pero es una macro para excel, tal ves agregando algunas cosas funque en VB = te voy a buscar si encuentro para VB,.

Sub ULTIMAFILA_Insomnia17()

'voy a la ultima celda de Excel (columna A)
Range("A65536").Select
'Voy para arriba a encontrar el primer dato (de abajo arriba)(Columna A)
Selection.End(xlUp).Select

End Sub

Bueno talves te marié un poco, pero la macro anda barbaro, siemrpe y cuando los datos esten desde la columna A, sino camba la A por la letra.

Bueno si no sabes donde poner la macro avisame que te esplico

Salu2
--------------------------
DEDE VB: (lo consegui en la red y lo reforme para este caso), puede que la instruccion 7 no sea exactamente así, la 4 hay que cambiar el nombre del archivo, la 5 la hoja a abrir

Dim objetoexcel As Excel.Application
Set objexcel = New Excel.Application
objetoexcel.Visible = False
objetoexcel.Workbooks.Open FileName:="c:\Insomnia17"
objetoexcel.Sheets("hoja1").Select
objetoexcel.Range("A65536").select
objetoexcel.Selection.End(xlUp).Select
objetoexcel.ActiveWorkbook.Save
objetoexcel.ActiveWindow.Close

Suerte y comentame si fue util mi intento de ayuda
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 22-02-2005, 08:38:12
Avatar de Insomnia17
Gran Participación en el Foro
 
Registrado: abr 2004
Posts: 402
Créditos: 10.558
Insomnia17 Valoración +2
Predeterminado

Gracias :smt002

Si funciona perfectamente, es justo lo que buscaba. Ademas con unas minimas modificaciones se ajusta perfectamente a mi programa.

Dejo el código que he utilizado finalmente (que es casi el mismo que el de ChuckyAr)

Código:
    Dim objetoexcel As Excel.Application
    Dim ultima As Single
    
    Set objetoexcel = New Excel.Application
    objetoexcel.Visible = False
    objetoexcel.Workbooks.Open FileName:=ruta
    objetoexcel.Range("A65536").Select
    objetoexcel.Selection.End(xlUp).Select
    ultima = objetoexcel.activecell.Row
    objetoexcel.ActiveWorkbook.Save
    objetoexcel.ActiveWindow.Close
La única diferencia es que utilizo 'ruta' para darle la dirección de la hoja de excel (cogida de un common dialog) y que guardo la ultima fila en una variable (tipo single, con integer no entra).

--Gracias--
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Obtener la ultima fila del listview al insertar ... Black_devil Visual Basic 6.00 2 26-01-2008 03:37:40
Seleccionar la ultima fila(Datagriview) Battusai Visual Basic .NET 1 05-11-2007 14:44:24
detectar última fila con SpecialCells telu VBA (Excel, Word, Outlook, Access) 2 26-07-2007 01:35:15
Eliminar Fila Excel g_sick22 VBA (Excel, Word, Outlook, Access) 4 18-06-2007 16:07:41
Eliminar fila excel nonnato Visual Basic 6.00 4 07-06-2006 13:31:37


La franja horaria es GMT. Ahora son las 10:58:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design