From PB, how to call Microsoft Excel MACRO funtion with a parameter?

[eastar]

This is the MACRO in excel file test.xls:
-----------------------------------------
Sub Test_csv_file(file_name As String)

Range("L8").Select
ChDir "C:\TEMP"
Workbooks.Open Filename:=file_name
ActiveWindow.SmallScroll Down:=-27
Range("A1:B6").Select
Selection.Copy
Application.CutCopyMode = False
ActiveWorkbook.SaveAs
Filename:="C:\TEMP\TEST_MACRO.csv", FileFormat:= _
xlCSVMSDOS, CreateBackup:=False

End Sub

-----------------------------------------------------------

When I call this MACRO from PB:

oleobject appXL
appXL = create OleObject
appXL.ConnectToNewObject("Excel.Application")
appXL.Workbooks.Open("C:\TEMP\test.xls")
ls_filename = "C:\TEMP\TEST_MACRO.xls"
li_ret = appXL.Run ("Test_csv_file(~"" + ls_filename +
"~")")

I got 2015 for li_ret and the code did nothing.

Anybody any idea?

Thanks

[Wheeley]

On 5 Nov 2009 13:20:07 -0800, eastar wrote:

Try

li_ret = appXL.Run ("Test_csv_file", ls_filename)

Wheeley