我需要在点击批准按钮后,将一个文件从一个SharePoint文件夹移动到另一个文件夹。
我收到了错误信息。
"user defined type not defined"
Private Sub Approve_Click()
Dim sDocPath As String
Dim sFileName As String
Dim sTargetPath As String
Dim sSourcePath As String
Dim sDriveLetter As String
Dim fso As FileSystemObject
Dim net As WshNetwork
sDriveLetter = "S:"
sFileName = "WorkBook.xlsm"
Set fso = New FileSystemObject & CreateObject("Scripting.FileSystemObject")
sDocPath = ThisWorkbook.path
‘sDocPath = ConvertPath(sDocPath)
Set net = New WshNetwork & CreateObject("WScript.Network")
Debug.Print "Path to map: " & sDocPath
net.MapNetworkDrive sDriveLetter, sDocPath
sSourcePath = sDriveLetter & "\https:\\xxxxxOrder%20Form\" & sFileName
Debug.Print "Source: " & sSourcePath
sTargetPath = sDriveLetter "\https:\\xxxxxxxxxxxxxxxxxxx\" & sFileName
Debug.Print "Target: " & sTargetPath
fso.CopyFile sSourcePath, sTargetPath, True
net.RemoveNetworkDrive sDriveLetter
Set net = Nothing
Set fso = Nothing
End Sub
您需要添加引用 "Microsoft Scripting Runtime":
VBA编辑器 ' 工具 ' 参考资料 更多信息请看。https:/trumpexcel.comvba-filesystemobject。
这个方法被称为 早订 你可以像下面一样使用它(inkluding intelli sense)。
Dim fso As FileSystemObject
Set fso = New FileSystemObject
或者你用 迟装 (不设置引用),也没有intelli sense,那么你需要使用下面的代码。
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
但你的代码看起来就像是两者的混合体,无法使用。
Set fso = New FileSystemObject & CreateObject("Scripting.FileSystemObject")
同样的 Set net = New WshNetwork & CreateObject("WScript.Network")
必须使用参考文献 "Windows脚本主机对象模型" 和。
Dim net As WshNetwork
Set net = New WshNetwork
或后期装订和:
Dim net As Object
Set net = CreateObject("WScript.Network")