Code: Select all
Dim mgr As New EViews.Manager
Dim app As EViews.Application
Dim program_to_call As String
prog_path = "C:\EV_Auto_test\Space test\interpolate_q"
Set app = mgr.GetApplication(ExistingOrNew)
app.Run "run " & prog_path
Moderators: EViews Gareth, EViews Jason, EViews Moderator, EViews Matt
Code: Select all
Dim mgr As New EViews.Manager
Dim app As EViews.Application
Dim program_to_call As String
prog_path = "C:\EV_Auto_test\Space test\interpolate_q"
Set app = mgr.GetApplication(ExistingOrNew)
app.Run "run " & prog_path
Code: Select all
app.Run "run """ & prog_path & """"
Users browsing this forum: No registered users and 31 guests