AnonymousThe 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.