開いているブックを特定の条件を満たすすべてのブックを保存するExcelマクロ

Question

開いているブックを実行し、各ブックの内容に応じて特定の名前で保存するマクロを作成する方法を教えてください。各ブックはワークシート "ブック1"で一意の列見出しを持つため、セルA1のテキストでブックを決定できます。セルA1 = "Interest"の場合、Y：\ risk \ CCY.csvとしてアクティブブックを保存し、アクティブブックをY：\ risk \ IR.csvとして保存します。開いているブックが条件を満たすまで、開いているすべてのブックをループします。

Answer 1

VBAでの経験はありますか？私はマクロレコーダーを使って保存方法を見つけました。私は次のコードを作ってそれをテストしたが、うまくいった。私はそれを2回実行しようとしましたが、ファイルを上書きしたいのであれば私にメッセージが表示されました。しかし、他のエラーハンドリングは組み込まれていません。

Sub SaveWorkbooks() 

Dim WB As Workbook 
Dim FileName As String, FolderPath As String 
Dim SaveWorkbook As Boolean 

FolderPath = "Y:\risk" 
ChDir FolderPath 

For Each WB In Workbooks 
    Select Case WB.Sheets(1).Range("A1").Value 
     Case Is = "Currency" 
      FileName = "CCY" 
     Case Is = "Interest" 
      FileName = "IR" 
     Case Else 
      FileName = "" 
    End Select 
    'Make sure it's not saving not applicable workbooks 
    If FileName <> "" Then SaveWorkbook = True Else SaveWorkbook = False 

    If SaveWorkbook = True Then 
     ActiveWorkbook.SaveAs FileName:=FolderPath & "\" & FileName & ".xlsx", _ 
      FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
    End If 

Next WB 

End Sub 

Answer 2

私は同意します、これは私の目を読むことを傷つけます。今回は例外を作成します。

Sub SaveWorkbooks() 
Dim workbookObj As Workbook 

For Each workbookObj In Excel.Workbooks 
    If workbookObj.Sheets("Book1").Range("A1").Value = "whatever" Then 
     workbookObj.Save 
     workbookObj.Close 
    End If 
Next workbookObj 

'Clean up 
Set workbookObj = Nothing 
End Sub