Excel 创建工作簿,向其发送值,然后为用户打开它

Excel 创建工作簿,向其发送值,然后为用户打开它,excel,vba,Excel,Vba,现在,插入日期的行出现溢出错误 With ActiveSheet Dim wbNewAudit As Workbook: Set wbNewAudit = Workbooks.Open("\\JACKSONVILLE-DC\Common\SOP's for JV\SOP Audits\2019\" & NewAuditFileName, True, True) wbNewAudit.Worksheet

现在,插入日期的行出现溢出错误

        With ActiveSheet
            Dim wbNewAudit As Workbook: Set wbNewAudit = Workbooks.Open("\\JACKSONVILLE-DC\Common\SOP's for JV\SOP Audits\2019\" & NewAuditFileName, True, True)            
            wbNewAudit.Worksheets(1).Range("A1") = "SOP Title: " & .Cells(ActiveRow, 3)
            wbNewAudit.Worksheets(1).Range("E1") = "Date: " & Format(Now, “MM / dd / yyyy”)
        End With

将引号更改为直接引号:
格式(现在是“MM/dd/yyyy”)
通过BigBen

将引号更改为直接引号:
格式(现在是“MM/dd/yyyy”)
通过BigBen

哪一行应该发送值?最后一个?它应该发送什么值?听起来您的问题可能是依赖于
ActiveSheet
。您是对的。如果我将其更改为静态值(如123),它会将其发送到工作簿。我应该如何引用从中提取数据的工作表?刚刚在上面发布了一个编辑。将引号更改为直接引号:
格式(现在是“MM/dd/yyyy”)
。应该用哪一行发送值?最后一个?它应该发送什么值?听起来您的问题可能是依赖于
ActiveSheet
。您是对的。如果我将其更改为静态值(如123),它会将其发送到工作簿。我应该如何引用从中提取数据的工作表?刚刚在上面发布了一个编辑。将引号更改为直接引号:
格式(现在是“MM/dd/yyyy”)