b*****o 发帖数: 817 | 1 为什么总是出现
run time error '424'
object required
Private Sub RunSAS1_Click()
Dim RunSAS1 As Object
Dim folder As String
Dim dsn As String
Dim outdir As String
Dim charvar As String
Dim numvar As String
outdir = TxtOutdir.Text
charvar = TxtCharVar.Text
numvar = TxtNumVar.Text
dsn = File1.FileName
folder = File1.Path
If Len(dsn) > 0 Then
pos = InStr(dsn, ".")
dsn = Left(dsn, pos - 1)
Set RunSAS1 = CreateObject("SAS.Application")
RunSAS1.Submit (" %let dir=" & folder & " ;")
RunSAS1.Submit (" %let dsn=" & dsn & "; ")
RunSAS1.Submit (" %let outdir=" & outdir & " ; ")
RunSAS1.Submit (" %let charvar=" & charvar & " ; ")
RunSAS1.Submit (" %let numvar=" & numvar & " ; ")
RunSAS1.Submit (" %inc 'C:\Project1\sas\RunSAS1.sas'; ")
RunSAS1.Visible = False
RunSAS1.quit
MsgBox "RunSAS1 Completed"
Else
MsgBox "No Data file selected"
End If
End Sub |
|