保存为date和时间不起作用

它应该保存为文件名：文件夹\testing位置“单元格C27中的内容”，然后是数据和时间。 我得到：'008 11 2015 00 00 00'。 如何使用“/”和“：”清除这个问题？ 注意前面的0只是我使用的testing编号。

此外，这个macros是在testing软件使用的模板中，这就是为什么它必须使用Auto_open，但另一个问题是，当它保存为非模板文件时，打开它会尝试在非模板文件中运行macros。 我怎样才能使macros不保存或在文件/非模板文件保存禁用？

Sub Auto_Open() Dim FileName As String Dim FilePath As String Dim FileDate As String MyNote = "Is Cell 'C27' Overview Information" & SavePath & " Location_1,2,3,or 4?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo) If Answer = vbYes Then FilePath = "C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test" FileName = Sheets("Data").Range("C27").Text ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName Dim FileCopyName As String Dim FileCopyPath As String FilePath = "C:\Users\aholiday\Desktop\Backup" FileName = Sheets("Data").Range("C27").Text FileDate = Format(Date, "mm dd yyyy hh mm ss") ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName & FileDate MsgBox "File was saved!" MyNote = "Open FRF Data Sheet?(After Forth Test Only)" Answer = MsgBox(MyNote, vbQuestion + vbYesNo) If Answer = vbYes Then Workbooks.Open ("FRF_Data_Sheet_Template.xlsm") Else MsgBox "Ready for Next Test, Please Exit." End If Else MsgBox "File was not saved, Please Use Location_1,2,3or,4 Durring SIG ATM Test" End If End Sub 

解决了：

  Sub Auto_Open() With Range("A30") .Value = Time .NumberFormat = "h-mm-ss AM/PM" End With Dim FileName As String Dim FilePath As String Dim FileDate As String MyNote = "Is Cell 'B27' Overview Information" & SavePath & " Location1,2,3,or 4?" Answer = MsgBox(MyNote, vbQuestion + vbYesNo) If Answer = vbYes Then FilePath = "C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test" FileName = Sheets("Data").Range("C27").Text ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName Dim FileCopyName As String Dim FileCopyPath As String Dim FileTime As String FilePath = "C:\Users\aholiday\Desktop\Backup" FileName = Sheets("Data").Range("B27").Text FileTime = Sheets("Data").Range("A30").Text ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName & FileTime & ".xlsx", FileFormat:=xlOpenXMLWorkbook MsgBox "File was saved!" MsgBox "Ready for Next Test, Please Exit." Else MsgBox "File was not saved, Please Use Location_1,2,3or,4 Durring SIG ATM Test" End If End Sub 

Answer 1

你不能有一个文件名。

对于date部分，请使用格式化function。 您可以使用“MM-dd-yyy”来定义date格式

 ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName & Format(FileDate, "MM-dd-yyyy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook 

使用FileFormat：= xlOpenXMLWorkbook将其保存为没有macros的工作簿。