Question

我正在尝试查找包含与其他文件相同的日期的行。但是在定义行号的行上有错误91。有人可以帮助我解决这个问题吗？成功找到了'mth'。

Sub abc()

    Dim x As Workbook
    Dim y As Workbook
    Dim WB As Workbook
    Dim PCFilePath As String
    Dim PCFile As String
    Dim RSFilePath As String
    Dim RSFile As String
    Dim mth As Date
    Dim row_mth As Long
    Dim Date1 As Date
    Dim Date2 As Date

    PCFilePath = Worksheets("Sheet1").Range("B2")
    PCFile = Worksheets("Sheet1").Range("B3")
    RSFilePath = Worksheets("Sheet1").Range("B8")
    RSFile = Worksheets("Sheet1").Range("B9")
    mth = Worksheets("Sheet1").Range("B5")

    Workbooks.Open (PCFilePath & PCFile), UpdateLinks:=0
    Set x = Workbooks.Open(PCFilePath & PCFile)

    Workbooks.Open (RSFilePath & RSFile), UpdateLinks:=0
    Set y = Workbooks.Open(RSFilePath & RSFile)

    Set WB = ThisWorkbook

    row_mth = y.Sheets("Sheet1").Range("B:B").Find(What:=mth, LookIn:=xlValues).Row

Answer 1

使用Range.Find时，日期可能会很棘手，它可能取决于格式，并且VBA中的“日期”数据类型与工作表上的不同。一种存储为Double，另一种存储为VBA Date数据类型。

代替尝试：

Dim mth as Double

或

.Find(What:=CDbl(mth), ...

查找包含特定日期的行。错误91

1 个答案: