excel - 在 Excel VBA 中重命名 SharePoint 文档库文件
问题描述
我必须重命名 SharePoint 文档库中的所有文件。
当我将所有文件下载到本地 C 驱动器时,代码就可以工作了。在 Windows 资源管理器中指向共享 SharePoint 网络驱动器“https:\...”时,它不起作用。
我可以通过 Windows 资源管理器手动重命名此共享 SharePoint 网络驱动器上的文件。
我通读了一张名为“Microsoft”的表格 A 列的单元格,其中提到了 SharePoint 文档。oldFile 和 newFile 字段的值没问题,但只要我指向共享的 Sharepoint 网络驱动器,“名称”功能就不起作用。
Sub RenameMicroSoft()
'Dim oldFile As Variant
Sheets("Sheet1").Select
Columns("A:A").Select
Selection.ClearContents
Row = 4
renfiles = 0
uitval = 0
Cells(1, 1) = "Renamed files:"
Cells(3, 1) = "Uitval"
folder = InputBox("Folder:", "Geef folder")
If folder = "" Then Exit Sub
If Right(folder, 1) <> "/" Then
folder = folder + "/"
End If
Sheets("Microsoft").Select
For inprow = 2 To (Range("A2", Range("A2").End(xlDown)).Count + 1)
Prefix = UCase(Left(Cells(inprow, 1), 6))
If (Prefix = "RD NL ") Or (Prefix = "RD FR ") Or (Prefix = "RD UK ") Then
poshyph = InStr(1, Cells(inprow, 1), " - ")
posdot = InStr(1, Cells(inprow, 1), ".")
lang = Mid(Cells(inprow, 1), 4, 2)
oldFile = folder + Cells(inprow, 1)
NewFile = folder + "Realdolmen_CV_" + Cells(inprow, 2) + "_" + lang
If poshyph <> 0 Then
NewFile = NewFile + Mid(Cells(inprow, 1), poshyph)
Else
NewFile = NewFile + Mid(Cells(inprow, 1), posdot)
End If
NewFile = Replace(NewFile, ".DOCX", ".docx")
NewFile = Replace(NewFile, ".DOC", ".doc")
'oldFile = Replace(oldFile, " ", "%20")
'NewFile = Replace(NewFile, " ", "%20")
'rename files
'On Error Resume Next
Name oldFile As NewFile
Cells(inprow, 10) = NewFile
renfiles = renfiles + 1
Else
If Left(oldFile, 14) <> "Realdolmen_CV_" Then
Cells(Row, 1) = oldFile
Row = Row + 1
uitval = uitval + 1
End If
End If
Next
Sheets("Sheet1").Cells(1, 2) = renfiles
Sheets("Sheet1").Cells(3, 2) = uitval
End Sub
解决方案
推荐阅读
- node.js - 在 NodeJS 中从视频中获取缩略图时面临问题
- python - 更新python中的模拟对象
- javascript - 在本机反应中处理大型资源文件
- flutter - 同一流(QuerySnapshot)可以与不同页面上的多个 StreamBuilder 一起使用吗? - -扑
- c# - 奇怪的视觉伪影
- macos - 使用 swiftUI 在 macOS 中强制单击以编辑列表中的文本
- python - 列表理解中的多个索引
- javascript - Javascript数组填充空项
- python - Flask 测试中的 dict/json 有效负载问题 - 字节类型的对象不是 JSON 可序列化的
- python - 绘制子图的seaborn箱线图的观察次数(python)