各位大大~
小妹需要另存新檔的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 的值就可以了