運行時錯誤91對象變量未設置

Question

當我上線時

oApp.Namespace（FileNameZip）.CopyHere oApp.Namespace（FolderName）.items

我得到：

運行時錯誤91，未設置對象變量

將創建zip文件，該文件將在工作文件夾中以及要壓縮的文件中。 我已經檢查了我的變量，它們是正確的。

Sub Zip_genie()
    Dim FileNameZip, FolderName, oFolder
    Dim strDate As String, DefPath As String
    Dim oApp As Object

    DefPath = "c:\users\" & Environ("Username") & "\documents\Appraiser_Genie\working\"
    If Right(DefPath, 1) <> "\" Then
        DefPath = DefPath & "\"
    End If

    ChDir DefPath

    FileNameZip = "report.zip"

    Set oApp = CreateObject("Shell.Application")

    'Create empty Zip File
    NewZip (FileNameZip)

    FolderName = DefPath
    Debug.Print (FolderName)
    Debug.Print (FileNameZip)
    'Copy the files to the compressed folder
    oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items

    'Keep script waiting until Compressing is done
    On Error Resume Next
    Do Until oApp.Namespace(FileNameZip).items.count = _
        oApp.Namespace(FolderName).items.count
            Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    On Error GoTo 0

    'MsgBox "You find the zipfile here: " & FileNameZip

End Sub

Answer 1

嘗試指定zip文件的完整路徑名。

例如，不僅僅是：

FileNameZip = "report.zip"

采用：

FileNameZip = "c:\users\" & Environ("Username") & "\documents\Appraiser_Genie\target\report.zip"

...或您的report.zip文件在哪里