Excel.Algunas funciones en VBA

Ver el tema anterior Ver el tema siguiente Ir abajo

Excel.Algunas funciones en VBA

Mensaje por gbp el Sáb Oct 31 2009, 05:47

Aqui os dejo algunas funciones simples que pueden ser utiles.
Copiar y pegar en un módulo y listo

Devuelve TRUE si el fichero existe
Private Function FileExists(fname) As Boolean
' Returns TRUE if the file exists
Dim x As String
x = Dir(fname)
If x <> "" Then FileExists = True _
Else FileExists = False
End Function

Devuelve el nombre dl fichero de una cadena con ruta+fichero
Private Function FileNameOnly(pname) As String
' Returns the filename from a path/filename string
Dim i As Integer, length As Integer, temp As String
length = Len(pname)
temp = ""
For i = length To 1 Step -1
If Mid(pname, i, 1) = Application.PathSeparator Then
FileNameOnly = temp
Exit Function
End If
temp = Mid(pname, i, 1) & temp
Next i
FileNameOnly = pname
End Function


Devuelve TRUE si existe la ruta

Private Function PathExists(pname) As Boolean
' Returns TRUE if the path exists
Dim x As String
On Error Resume Next
x = GetAttr(pname) And 0
If Err = 0 Then PathExists = True _
Else PathExists = False
End Function

Devuelve TRUE si existe un nombre de rango
Private Function RangeNameExists(nname) As Boolean
' Returns TRUE if the range name exists
Dim n As Name
RangeNameExists = False
For Each n In ActiveWorkbook.Names
If UCase(n.Name) = UCase(nname) Then
RangeNameExists = True
Exit Function
End If
Next n
End Function

Devuelve TRUE si existe la hoja
Private Function SheetExists(sname) As Boolean
' Returns TRUE if sheet exists in the active workbook
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err = 0 Then SheetExists = True _
Else SheetExists = False
End Function

Devuelve TRUE si el libro ya está abierto
Private Function WorkbookIsOpen(wbname) As Boolean
' Returns TRUE if the workbook is open
Dim x As Workbook
On Error Resume Next
Set x = Workbooks(wbname)
If Err = 0 Then WorkbookIsOpen = True _
Else WorkbookIsOpen = False
End Function


Última edición por gbp el Sáb Oct 31 2009, 05:57, editado 1 vez




Ayuda para navegar por el foro

LIVE AS IF YOU WERE TO DIE TOMORROW. LEARN AS IF YOU WERE TO LIVE FOREVER. - MOHANDAS GANDHI
Invitado -- "Interesante...:

Ver tu historial de navegación Google.
Ver la información de tus cuentas Google y mas..
Extraer el sonido de un video a mp3
Editor de imagenes online


gbp
..
..

Fecha de inscripción : 08/09/2009

Volver arriba Ir abajo

Re: Excel.Algunas funciones en VBA

Mensaje por Araghon el Sáb Oct 31 2009, 05:54

aplauso gbp . ok1 .




SALUDOS Invitado

Araghon
..
..

Fecha de inscripción : 07/09/2009
Localización : En Gondor

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.