オートメーション31テンプレートまたは1テンプレート

Question

am私はデータ接続を介して1つの国のデータをインポートし、そのデータでピボットと他のシートを再描画してマクロを実行し、そのExcelレポートを閉じて保存します国。例えばドイツ。私は同じプロセスが起こる他の国のための別の31のテンプレートを持っています。 31個のテンプレートの違いは、データ接続（データベース用のレコードを取得する）と、Report_Germanyのように保存されているファイル名のデータベースSQLクエリです。

SSISでは、単にExcelファイルを開き、各国のマクロを実行するvbsスクリプトを呼び出すプロセスタスクを使用しています。 31種類のSSISタスクを作成する必要はありません。

とにかく、1つのテンプレートを使用して、同じディレクトリに必要な31のExcelレポートを作成できますか？

Answer 1

はい、1つのテンプルを使用して複数のレポートを作成することは可能です。

すべてのピボットテーブルには国と同等のレポートフィルタが必要で、すべてのデータを1つのブックに取り込む必要があります。

次に、フィルタを設定する国を繰り返しループバックし、別の国名でブックを保存することができます。

これを達成するための基本的なコードを以下に示します。

Sub Update_Pivot_filter() 

Dim StaticArray(1 To 3) As String 
Dim strName As String 
Dim lCount As Long 

StaticArray(1) = "Germany" 
StaticArray(2) = "France" 
StaticArray(3) = "Italy" 


For lCount = LBound(StaticArray) To UBound(StaticArray) 

    ActiveWorkbook.Sheets("Sheet1").PivotTables("PivotTable1"). _ 
    PivotFields("Name").CurrentPage = StaticArray(lCount) 
' Change report filter on a pivot table 

    ActiveWorkbook.RefreshAll 
' Refresh all pivot tables 

    ActiveWorkbook.SaveAs Filename:= _ 
     "C:\Temp\Report_" & StaticArray(lCount) & ".xlsx", _ 
     FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
' Save the file with a name matching the filter name 

MsgBox StaticArray(lCount) 

Next lCount 

End Sub 

このアプローチの欠点は、各ワークブックにすべてのデータが含まれていることです。