各位大大~
小妹需要另存新档的VBA程式码，还有~是否能在另存时
出现一个对话BOX要求使 ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

另存新档指令为

With Application
ActiveWorkbook.Save Filename:=你想要的名称
End With

作法一应该是要先跳 inputbox 让人填入日期、工单号码、作业目的，
ex.

Sub 另存新档()
  With Application
   Dim 日期 As String, 工单号码 As String, 作业目的 As String
   日期 = InputBox("请输入日期",)
   工单号码 = InputBox("请输入工单号码",)
   作业目的 = InputBox("请输入作业目的",)
   ActiveWorkbook.Save Filename:="日期+工单号码+作业目的"
  End With
End Sub

作法二就是让日期..... = sheet 的值就可以了