Vba 什么更新将打开我的工作簿到今天'；谁的日期？

我希望我的工作簿在今天的单元格中打开。第10行列出了2017年的日期。下面列出了我的宏，但行中包含语法错误 'x=格式（日期，“短日期”）'

---

你仍然在使用魔法引号。即使删除该选项，也会在第（10）行出现错误438。然后在“查找”对话框上，当未找到任何内容时，另一个错误正在等待。请按如下方式更改代码：

Sub test()

    Dim rng As Range
    Dim x As String

    Dim wb As Workbook, wb1 As Workbook
    Dim LastRow As Long

    Set wb = Workbooks("2017 Capacity Planner.xlsm")

    Worksheets("Dashboard").Select
    x = (Format(Date, "Short Date"))

    Set rng = Worksheets("Dashboard").Rows(10).Find(What:=x, LookIn:=xlValues)

    If Not rng Is Nothing Then
        rng.Parent.Activate
        rng.Select
    End If


End Sub

---

你仍然在使用魔法引号。即使删除该选项，也会在第（10）行出现错误438。然后在“查找”对话框上，当未找到任何内容时，另一个错误正在等待。请按如下方式更改代码：

Sub test()

    Dim rng As Range
    Dim x As String

    Dim wb As Workbook, wb1 As Workbook
    Dim LastRow As Long

    Set wb = Workbooks("2017 Capacity Planner.xlsm")

    Worksheets("Dashboard").Select
    x = (Format(Date, "Short Date"))

    Set rng = Worksheets("Dashboard").Rows(10).Find(What:=x, LookIn:=xlValues)

    If Not rng Is Nothing Then
        rng.Parent.Activate
        rng.Select
    End If


End Sub

---

什么错误？类型不匹配？我不确定为什么会收到语法错误？第10行列出了2017年的日期，我希望宏打开工作簿并打开到今天日期的单元格。我尝试过几种不同的宏，但都没有成功。啊，因为有神奇的引号。。请参阅@ShaiRado编辑的更新代码。使用

“

而不是

”

谢谢，但是现在我收到一个“运行时错误9-子脚本超出范围”"。在确认

Find

找到某些内容之前，您正在使用

Activate

。您正在查找字符串x。第10行中的值是字符串吗？什么错误？类型不匹配？我不确定为什么会收到语法错误？2017年的日期列在第10行中，我希望宏打开工作簿并打开到今天的d单元格ate。我尝试了几个不同的宏，但没有成功。啊，因为有神奇的引号。请查看@ShaiRado编辑的更新代码。使用

“

而不是

”

谢谢，但现在我收到了一个“运行时错误9-子脚本超出范围”"。在确认

Find

已找到某些内容之前，您正在使用

Activate

。您正在查找字符串x。第10行中的值是否为字符串？为什么需要在.Find之前选择工作表？如果找不到日期，可能会添加一个MsgBox？同意，未更改该部分只是复制了OP的代码并进行了一些更改，但确实如此该部分是多余的。添加.Open到行集wb后效果很好。感谢大家的帮助。非常感谢。为什么需要在.Find之前选择工作表？如果找不到日期，可能会添加一个MsgBox？同意，没有更改该部分，只是复制了OP的代码并做了一些更改，但确保该部分是多余的。这是正确的添加后效果非常好。打开线集wb。感谢大家的帮助。非常感谢。