1

我需要将我们现有的系统链接到我们的共享点站点以检索文档。

我可以从该站点打开一个文档，但是当我打开一个窗口时，我会询问我是要“签出并打开”还是只是“打开”。

如何在我的代码中设置此值，以便始终打开文档而不签出。

这是我的代码：

Dim runFile
Dim rsDoc

Set rsDoc = CreateObject("ADODB.Recordset")
rsDoc.Open "Select xalFileName as Filename from DocumentLinks where xalReference = '"&Trim(controls("M1TextBox1").Value&"'"), Connection, adOpenStatic, adLockBatchOptimistic, adCmdText

If rsDoc.EOF Then
    Call App.MessageBox("The document code is not valid, please speak to Keith",vbInformation,"Data updated")

Else
    Do While Not rsDoc.EOF
        sFile = rsDoc.Fields("Filename")

        Set runFile = CreateObject("WScript.Shell")
            runFile.Run Chr(34) & sFile & Chr(34), 1, False
        Set runFile = Nothing

        rsDoc.MoveNext
        Loop
End If
rsDoc.Close
4

0 回答 0