日监测报表自动生成Sub 生成完整监测日报表() Dim templateWs As Worksheet Dim sourceWs As Worksheet Dim newWs As Worksheet Dim todayName As String Dim i As Integer Dim randNum As Double Dim response As VbMsgBoxResult ' ===== 第1步:检查模板和源工作表是否存在 ===== On Error Resume Next Set templateWs