自动保存特定的工作簿

Question

find_by(followed_id: other_user.id)

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

Answer 1

您可以像这样循环打开工作簿

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