VBA - ランタイムエラー1004

Question

VBAを使用してローカルのxlsmファイルをSharePointオンラインにアップロードしようとしています。ファイルは、ユーザーがファイルを保存した後にSharePointに自動的にアップロードされます。 概念は、ユーザーがxlsmファイルを保存した後、コピーされたファイルを含む新しいフォルダを作成し、そのフォルダ内のコピーされたファイルをSharePointにアップロードします。アップロード後、フォルダは削除されます。

しかし、私は私が考えられる理由をご確認くださいによる

ランタイムエラー1004

にフォルダにファイルを保存することができませんよ、ファイル名/パスは、フォルダを存在しています正常に作成されました。

ファイルが別のプログラムで使用されていないため、Excelのみがファイルを実行します。

このフォルダは新しく作成されたもので、空のフォルダであり、同じ名前のファイルは含まれていません。

私はすべてのパスをチェックしなかったし、彼らはすべて正しいです。

これは、すべてのヘルプ私のコード

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 

Dim UploadToSharepoint As Boolean 

Dim SharePointLib As String 
Dim myPath As String 
Dim folderPath As String 
Dim objNet As Object 
Dim FS As Object 
Dim copyPath As String 
Dim copyFilePath As String 

folderPath = Application.ActiveWorkbook.path 
myPath = Application.ActiveWorkbook.FullName 
SharePointLib = "https://company.com/folder/subfoler" 
copyPath = folderPath + "\copyPath" 
MsgBox "This is the folderPath = " & folderPath & vbNewLine & "This is the filepath = " & myPath & vbNewLine & "The copyPath is = " & copyPath 

If Not FolderExists(copyPath) Then 
    FolderCreate (copyPath) 
End If 

SharePointLib = SharePointLib & FileNameWithExt(myPath) 
ThisWorkbook.SaveCopyAs (copyPath) 

Exit Sub 

loadFailed: 
UploadToSharepoint = False 

End Sub 

であるとの提案が高く評価されています。ありがとうございました。

Answer 1

copyPathはフォルダだけですが、SaveCopyAsの引数はファイル名の完全なパスにする必要があります。

この試してみてください：あなたは `Cの名前を使用してファイルを保存しようとしている ThisWorkbook.SaveCopyAs copyPath & "\filename.xlsx"