通过VBA打开Sharepoint文件进行输入

Question

我正在使用分片网络驱动器上的文本文件来存储打印机规格，但由于跨团队访问问题，我们希望将文件移动到 Sharepoint。大公司，比网络驱动器授权更容易管理对共享点文件的访问。

宏在继续其他检查之前读取打印机信息。 我当前的命令是： 打开“N:\TPrint.txt”输入#1

仅仅更改 SharePoint 的路径是行不通的。我尝试了在网上找到的其他一些解决方案，但均无济于事。我们正在使用 SharePoint Online。

如有任何帮助，我们将不胜感激。

我已经尝试过http路径，我已经离开了iff http并将/更改为。

Answer 1

此函数采用位于共享点中的 Excel 文件的文件路径。
它将打开文件，读取从 A1 到最后一个单元格的所有单元格，该单元格不为空。
它将再次关闭您的“服务器”并返回文本。

Public Function ReadPrinter(FilePath As String) As String

    Dim WB As Workbook
    Dim rng As Range
    Dim i As Long
    Dim Text As String
    
    WB.Open FilePath
    Set Rng = WB.Worksheets("Sheet1").Range("A1")
    Do Until rng.Offset(i, 0).Formula = ""
        Text = Text & rng.Offset(i, 0).Formula
    Loop
    WB.Close(True) 'SaveChanges = True
    ReadPrinter = Text

End Function

我在现实生活中的应用程序中使用它（带有错误处理）以实现与您类似的用途。
2 个价值观：

Sheet1
A1

只是一个例子。
您仍然需要实现如何将文本放入工作簿中，但这应该不会太难。