Question

我正在设置一个新的SharePoint列表，我想将前四/五列上载到SharePoint（它们在名称和内容上匹配），然后上载第12列，因为它包含SharePoint的第五列。在您问我没有权限之前，我没有权限或权限来更改第12列的位置，因为该文档应该具有特定的格式。

作为VBA的新手，我不确定我是否了解如何连接到SharePoint网站（尤其是此列表），然后上传excel数据。我之前已经手动上传了excel数据，但是我想使这一过程自动化，所以我可以运行一个宏来上传工作表中的项目（现在我只希望它们能够成功上传，以便以后可以对重复项进行分类）。我不要求提供代码的文档草稿，我只能使用一些熟悉Excel-VBA / SharePoint交互的人的帮助和指示。

我是VBA的新手，所以我突然打开了包含我的数据的工作簿（但没有打开工作表）（我选择使用打开文件方法，因为我不是唯一使用此宏的方法，所以我决定允许人们导航到他们的目录。

Sub UploadUntimed()
    Dim my_FileName As Variant
    my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
    If my_FileName <> False Then
        Workbooks.Open Filename:=my_FileName
    End If
End Sub

Answer 1

请尝试这个。

Private Sub CreateList()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    RowCtr = 1
    Set folder = fs.GetFolder("http://your_url_here/") '<=Variable Location
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub

也，尝试这个。

Sub UpdateSpecificCells()

'If nobody has the file checked out
If Workbooks.CanCheckOut("http://your_url_here/ExcelList.xlsb") = True Then
Application.DisplayAlerts = False

'Open the file on the SharePoint server
Workbooks.Open Filename:="http://your_url_here/ExcelList.xlsb", UpdateLinks:=xlUpdateLinksNever


ActiveSheet.Cells(2, 7).Value = 100
ActiveSheet.Cells(3, 7).Value = 200
ActiveSheet.Cells(4, 7).Value = 300


'Close the workbook
Workbooks("ExcelList.xlsb").Save
Workbooks("ExcelList.xlsb").Close

End If
End Sub

是否可以使用VBA将Excel列表的各个部分上传到SharePoint列表？

1 个答案: