Ejecutar macro desde VB
Publicado por
diana (1 intervención) el 08/09/2011 17:12:55
Listo, encontre como hacerlo funcionar, les dejo el codigo por si algun dia alguien lo necesita.
Saludos y Suerte!!
Dim obWSMgr As New SASObjectManager.ObjectFactory
Dim obSAS As SAS.Workspace
Dim obStoredProcessService As SAS.StoredProcessService
Dim cc() As SAS.LanguageServiceCarriageControl
Dim lt() As SAS.LanguageServiceLineType
Dim listLines() As String
Dim i As Integer
Set obSAS = obWSMgr.CreateObjectByServer("", True, Nothing, "", "")
obSAS.LanguageService.Submit ""
Set obStoredProcessService = obSAS.LanguageService.StoredProcessService
obStoredProcessService.Repository = "file:C:\RUTA ARCHIVOS SAS\"
obStoredProcessService.Execute "NOMBRE_ARCHIVO_SAS", ""
obSAS.LanguageService.Submit ("%PruebaMacro("¶metro1 & ","¶metro2&","¶metro3&");")
obSAS.LanguageService.FlushListLines 32, cc, lt, listLines
For i = 0 To UBound(listLines)
txtOutput.Text = txtOutput.Text & listLines(i) & vbCrLf '"LOG" & obSAS.LanguageService.FlushLog(100000)
Next