我在Excel工作表模块中有以下功能，该模块向SQL发送SAS个查询：
Function run_query(query)
Dim app ' application
Dim project ' Project object
Dim sasProgram ' Code object (SAS program)
Set app = CreateObject("SASEGObjectModel.Application.5.1")
Set project = app.New
Set sasProgram = project.CodeCollection.Add
sasProgram.Text = "PROC SQL;" + query + " QUIT;"
sasProgram.Run
app.Quit
End Function
它有时像魅力一样，并且通常不会，因为它要求我的凭据（由命令sasProgram.Run触发，因为它是调试器停止的地方），我没有＆＃39 ;找到一种方法来使错误或成功，重现。
我已将credentials persistence设置为Persist for user，但我仍有问题。
我还尝试将Autentification设置为None (attempt anonymous connection)和Windows integrated (Uses your current windows account)，但没有一个改变了这种情况。