Customer Center

Welcome back

My Account Logout
#4810
Anonymous
Inactive

The first project i've done this for above works just fine! But now i'm getting an error with a new project;
Run-time error '438;:
Object doesn't support this property or method

Any ideas? One thing i can thing of is this is a csv file but i'm not certain thats the reason. The previous file was ,ftexcel but i dont think the macro cares the file type because really the only function its doing is renaming header info in the file and saving. 

Another difference is running the macro via d.t.appl.run is called in an Action and not a subroutine. Below is what i currently have.
__________________________________________________
Sub runXLSeCashSplit()
    Dim startDir As String
    Dim currFile As String
    startDir = "\directorydname"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set mainfolder = fso.GetFolder(startDir)
    Set filecollection = mainfolder.Files
    For Each File In filecollection
        currFile = mainfolder & "" & File.Name
        f("filename") = currFile
        If currFile Like "\directorydnamefile_########.csv" Then 
           D.Open_ f("filename"), ftDelimited
           Wait 3
           D.t.appl.Run "PERSONAL.XLSB!macroname"
           Wait 3
  
              DoEvents
        End If
    Next
    D.Close_
End Sub

__________________________________________
*EDIT*
I'm pretty sure the problem is that it's attempting to overwrite an existing file. I believe this is due to some of the saveas prompts. So i've either got to figure out how to fix this in the macro, or just have a process copy the files out of my directory and save them to a new location.
*EDIT* again
It definitely isnt due to overwriting the file. 
When i  run the macro directly in Excel it works fine and does everything i expect it to. But when i call it from boston workstation it doesnt work.