自动保存特定的工作簿

Sub Autosave() 
    Dim FileName As String 
    FileName = Sheets("Sheet1").Range("A1").Text 

    ActiveWorkbook.SaveAs FileName:="C:\Users\PC\Desktop\" & FileName _ 
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub

如何保存已开自动保存特定的工作簿

来源

2016-05-08 David Syriac

循环，如果你正在谈论保存工作簿是开放的只是使用'ActiveWorkbook.Save' – MatthewD

我有一个保存打开的excel文件的代码，但挑战在于我打开了2个以上的工作簿。子宏1（）表（ “工作表Sheet”）选择表（ “工作表Sheet”）复制结束子子自动保存（） ActiveWorkbook.SaveAs文件名：。。=“C：\用户\ PCname \桌面\“表格（”Sheet1“）。范围（”A1“）。文本，_ FileFormat：= xlOpenXMLWorkbookMacroEnabled，CreateBackup：= False End Sub 第一个代码从所有计算完成的原始文件创建新书。新文件名是“Book1” 第二个代码保存活动工作簿，但不保存新创建的书。 –

特定的工作簿您可以通过打开的工作簿这样

For Each w In Application.Workbooks 

    'You can simply save the current book 
    w.Save 

    'Or get the name and save it to a location as you were 

    Dim FileName As String 
    FileName = ActiveWorkbook.Name 
    ActiveWorkbook.SaveAs FileName:="C:\Users\PC\Desktop\" & FileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

Next w

来源

2016-05-08 16:56:41 MatthewD

自动保存特定的工作簿

回答

相关问题