'======================================================================================================

    Const CONST_strDisk  As String = "X:"

    Const CONST_strSite As String = "https://_________________/"

    Const CONST_strFile As String = "X:\07 КАЧЕСТВО/ACTIONS_OF_THE_DAY2.xlsx"

    Sub Connect_SHarePoint()

    Dim spMap As Object

        Set spMap = CreateObject("WScript.Network")

        Set FSO = CreateObject("Scripting.FileSystemObject")

        'MsgBox "Диск " & Disk & " существует = " & FSO.DriveExists(Disk)

        If FSO.DriveExists(CONST_strDisk) Then spMap.RemoveNetworkDrive CONST_strDisk, True

        spMap.MapNetworkDrive strDisk, CONST_strDisk 'spPath

        DoEvents

    End Sub

    '======================================================================================================

Delete Excel file in SharePoint 2010 library only by using VBA

У меня есть книга Excel. Когда человек нажимает на марку, файлы сохраняются в двух новых папках, необходимо удалить файл Excel в SharePoint.

Я попытался функцию «Kill» в Excel VBA, но говорит, что файл не существует.

функция Убить

Sub DeleteExample3()

'You can use this to delete one xls file in the folder Test

On Error Resume Next

Kill "C:\Users\Ron\Test\ron.xls"

On Error GoTo 0

End Sub

ли какой-либо один имеет успех или пример, убивая файл с помощью VBA ?!

Благодаря

delete vba2,735

Источник Поделиться

Создан 06 сен. 12 boje

• 2 ответа
• Сортировка:
• Активность
• Возраст
• Оценка

1

First your code sample points to a file locally stored on a hard drive, not a SharePoint file.

I'm not an expert in VBA but if you want to delete a SharePoint file from within an Excel file (=client application) I would use/call the SharePoint web services. You can delete a file from a SharePoint list using the lists.asmx web service http://{yourserver}/_vti_bin/lists.asmx

Make sure that the user has delete permissions in SharePoint

Источник Поделиться

Создан 07 сен. 12 Wout

  0

HI W0ut, It is correct that correct that i want's to delete a SharePoint file by clicked a macro in a Excel file. I will look into lists.asmx, and see if this is possible. – boje 08 сен. 12

1

простой путь к сетевому диску в папке Sharepoint

    Dim spMap As Object, spPath As String

    Set spMap = CreateObject("WScript.Network")

    spMap.MapNetworkDrive "X:", spPath

    DoEvents

    Kill "X:\Book1.xls"

    spMap.RemoveNetworkDrive "X:", True

проверки, чтобы увидеть, если она существует целый другой вопрос ...