需要先打开相应的工作薄，例如：WorkBooks.Open "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls"Application.Run "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls" & "!" & 更新日报表
