Question

我已经编写了以下VBA代码以使SAS流程自动化。

  Rem Start the SAS server
  Dim SASws As SAS.Workspace
  Dim SASwsm As New SASWorkspaceManager.WorkspaceManager
  Dim strError As String
  Set SASws = SASwsm.Workspaces.CreateWorkspaceByServer _
    ("MySAS", VisibilityProcess, Nothing, "", "", strError)
  Dim code_location As String, code_name As String, param_str As String
  Dim param_flag As Boolean
  code_location = "file:" & ThisWorkbook.Sheets("Control").Range("B2").Value
  code_name = ThisWorkbook.Sheets("Control").Range("C2").Value
  param_flag = ThisWorkbook.Sheets("Control").Range("C4").Value
  If param_flag = True Then
  param_str = ThisWorkbook.Sheets("Control").Range("D5").Value
  Else: param_str = "ds=Sasuser.Export_output"
  End If

  Rem Run the stored process
  Dim SASproc As SAS.StoredProcessService
  Set SASproc = SASws.LanguageService.StoredProcessService
  SASproc.Repository = code_location
  SASproc.Execute code_name, "ds=Sasuser.Export_output"
  'SASproc.Repository = "file:C:\Duopa_Repository\SAS_Codes\Weekly"
  'SASproc.Execute "weekly_refresh_run.sas", "ds=Sasuser.Export_output"

  Rem Shut down the SAS server
  SASwsm.Workspaces.RemoveWorkspaceByUUID SASws.UniqueIdentifier
  SASws.Close
  Set SASws = Nothing

除了使用proc导入方法导入csv文件的SAS代码以外，所有SAS代码似乎都可以通过此方法工作。有人可以解释一下为什么吗

预先感谢

vba / sas-通过VBA运行SAS时，Proc导入csv会产生问题

0 个答案: