首页 > 解决方案 > 创建工作簿,向其发送值,然后为用户打开它

问题描述

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

        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

标签: excelvba

解决方案


将引号改为直引号:Format(Now, "MM / dd / yyyy")via BigBen


推荐阅读