Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
UDF & Add-in Issue
All -
I have a UDF that works fine in a regular Excel workbook module. However, when I convert the excel workbook into an add-in the function no longer works. I copied it back to a regular Excel module and it works fine. What am I doing wrong with the conversion of the function to the Add-in? Here is the function: Function DoesFileExist (PathFileName as String) as Boolean On Error GoTo FileDoesNOTExist If Len(PathFileName) then If (GetAttr(PathFileName) and vbDirectory) < 1 then DoesFileExist = True End if End if Exit Function FileDoesNOTExist: DoesFileExist = False End Function My other UDF work just fine in the Add-in. Thanks for any help you can give me. MSweetG222 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
UDF & Add-in Issue
Option Explicit
Sub test() MsgBox FileExists("C:\Rubbish.xls") End Sub Function FileExists(sFileName As String) As Boolean FileExists = Not ( Dir( sFileName ) = "" ) End Function "MSweetG222" wrote: All - I have a UDF that works fine in a regular Excel workbook module. However, when I convert the excel workbook into an add-in the function no longer works. I copied it back to a regular Excel module and it works fine. What am I doing wrong with the conversion of the function to the Add-in? Here is the function: Function DoesFileExist (PathFileName as String) as Boolean On Error GoTo FileDoesNOTExist If Len(PathFileName) then If (GetAttr(PathFileName) and vbDirectory) < 1 then DoesFileExist = True End if End if Exit Function FileDoesNOTExist: DoesFileExist = False End Function My other UDF work just fine in the Add-in. Thanks for any help you can give me. MSweetG222 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
UDF & Add-in Issue
Thank you for your assistance!!
-- Thx MSweetG222 "Patrick Molloy" wrote: Option Explicit Sub test() MsgBox FileExists("C:\Rubbish.xls") End Sub Function FileExists(sFileName As String) As Boolean FileExists = Not ( Dir( sFileName ) = "" ) End Function "MSweetG222" wrote: All - I have a UDF that works fine in a regular Excel workbook module. However, when I convert the excel workbook into an add-in the function no longer works. I copied it back to a regular Excel module and it works fine. What am I doing wrong with the conversion of the function to the Add-in? Here is the function: Function DoesFileExist (PathFileName as String) as Boolean On Error GoTo FileDoesNOTExist If Len(PathFileName) then If (GetAttr(PathFileName) and vbDirectory) < 1 then DoesFileExist = True End if End if Exit Function FileDoesNOTExist: DoesFileExist = False End Function My other UDF work just fine in the Add-in. Thanks for any help you can give me. MSweetG222 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
same issue | Charts and Charting in Excel | |||
Sum Issue Help! | Excel Discussion (Misc queries) | |||
Issue with zero/# issue!! | Excel Worksheet Functions | |||
With and End With issue | Excel Programming | |||
VBE Issue | Excel Programming |