附加文件时出现“运行时错误'91':对象变量或未设置块变量”

时间:2019-10-02 06:38:44

标签: vba outlook

我正在尝试为目录中的所有文件抓取一个目录,并且仅附加最新修改的文​​件。

我有附加文件的代码。

我从本质上像这样的代码开始

{
"hireSchedules": [
    {
        "plant": "7246054",
        "num" : "79",
        "hire": "1137277"
     },
    {
        "plant": "7246055",
        "num" : "80",
        "hire": "1137278"
     }
    ]
}

我想修改代码以查找上次修改的文件,并且仅附加该文件。

public class HireSchedule
{
    public string plant { get; set; }
    public string num { get; set; }
    public string hire { get; set; }
}

public class RootObject
{
    public List<HireSchedule> hireSchedules { get; set; }
}

我希望它能爬过每个文件,将其与下一个文件进行比较,然后附加上一个为LastModified的文件。

它引发以下错误:

  

“运行时错误'91':对象变量或未设置块变量”

1 个答案:

答案 0 :(得分:0)

您将变量ClientDirectory视为对象,但是在原始代码中,它是一个简单的字符串。这就是为什么您的行:

ClientDirectory = "S:\Client Folder\" & JobLocation & "\Site Drawings\"

失败。

您还错过了在Dir操作中使用此变量并将其结果存储在requiredPDFs变量中的情况。那就是包含文件名的变量。