POR QUE NO SE DETECTA LA SUB O FUNCION "EXISTEARCHIVO"
Publicado por DAVID MA (1 intervención) el 20/08/2020 17:02:13
BUEN DIA.
SILICITO DE SU APOYO, NO SOY EXPERTO EN VBA. MI PROBLEMA ES QUE TENGO UN CODIGO PARA QUE MI ARCHIVO SOLO SE ABRA CUANDO DETECTE QUE EXISTE OTRO ARCHIVO EN LA MISMA PC, FUNCIONA BASTANTE BIEN, SIN EMBARGO COPIE EL CODIGO PARA PONERLO EN OTRO LIBRO Y AL MOMENTO DE CORRER LA MACRO NO ME DETECTA QUE ES UNA FUNCION. EL CODIGO ES EL SIGUIENTE:
CUANDO SE CORRE LA MACRO ME MANDA ERROR QUE NO SE DETECTA SUB O FUNCION Y ME RESALTA DONDE DICE "ExisteArchivo", . ESE ES MI PROBLEMA, PORQUE EN UN ARCHIVO SI CORRE BIEN Y EN OTRO NO DETECTA LA FUNCION?????
SILICITO DE SU APOYO, NO SOY EXPERTO EN VBA. MI PROBLEMA ES QUE TENGO UN CODIGO PARA QUE MI ARCHIVO SOLO SE ABRA CUANDO DETECTE QUE EXISTE OTRO ARCHIVO EN LA MISMA PC, FUNCIONA BASTANTE BIEN, SIN EMBARGO COPIE EL CODIGO PARA PONERLO EN OTRO LIBRO Y AL MOMENTO DE CORRER LA MACRO NO ME DETECTA QUE ES UNA FUNCION. EL CODIGO ES EL SIGUIENTE:
1
2
3
4
5
6
7
8
9
Sub Workbook_Open()
Application.ScreenUpdating = False
Dim W As Worksheet
On Error Resume Next
If Not (existeArchivo("C:\WINDOWS\SETUPDF2PC.INI")) Then
MsgBox "SIN PERMISOS. PONGASE EN CONTACTO CON EL CREADOR", vbCritical + vbOKOnly, "ATENCI?N"
ThisWorkbook.Close True
Exit Sub
End If
CUANDO SE CORRE LA MACRO ME MANDA ERROR QUE NO SE DETECTA SUB O FUNCION Y ME RESALTA DONDE DICE "ExisteArchivo", . ESE ES MI PROBLEMA, PORQUE EN UN ARCHIVO SI CORRE BIEN Y EN OTRO NO DETECTA LA FUNCION?????
Valora esta pregunta
0