Question

我已经在互联网上进行搜索，试图找到一种从共享点站点删除文件的方法。我正在努力使自己找到的东西能够正常工作，老实说，这可能是因为我不太了解编码，并且有一些不足之处。

基本上，我要做的是在更改文件中的复选框（将复选框分配给单元格G3）时将文件“移动”到另一个文件夹。我知道我无法移动打开的文件，但是我认为可以保存一个新文件，因为新文件将是活动文件，因此我可以返回并删除旧文件。

当文件不在SharePoint上时，我可以使用“ Kill OldFile”的编码来完成所有这些工作，但是在进行大量在线搜索之后，我意识到在SharePoint中不起作用，并且尝试了各种我发现没有成功的“解决方案”。希望大家都能指出正确的方向。

这就是我所拥有的...

Dim Filname As String    Dim FilPath As String
Dim NewFilPath As String
Dim OldFile As String
Dim LobjXML As Object

Filname = Sheets("Dashboard").Range("B12").Value & " " & Sheets("Dashboard").Range("B11").Value
FilPath = ActiveWorkbook.Path
OldFile = FilPath & "/" & Filname & ".xlsm"

If FilPath = "http://teams/sites/CREW/AssociateMovementExcel/Sensitive" And Sheets("Dashboard").Range("G3") = False Then
    NewFilPath = Sheets("File Path").Range("B3").Value & Filname & ".xlsm"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=NewFilPath, FileFormat:=52
    Set LobjXML = CreateObject("Microsoft.xmlhttp")
        LobjXML.Open "Delete", OldFile, False
        LobjXML.Send
      Set LobjXML = Nothing
    Application.DisplayAlerts = True
End If

除删除旧文件外，所有其他操作均有效。新文件将保存在应该保存到的位置，但是我无法删除旧文件。

老实说，我是从网上撤出的，并不是100％地确定某些编码的含义（例如“ Microsoft.xmlhttp”和“ Delete”）。从“ Set LobjXML = create ...”到“ Set LobjXML = Nothing”的所有内容我都不太确定。我觉得我应该在这些区域中还有其他内容，并且发帖人希望有人更新这些字段。我只是不知道他们应该更新到什么。

最后，我确认“ OldFile”确实显示了我要删除的文件的正确路径和名称。

欢迎任何帮助。

从SharePoint网站删除文件

0 个答案: