Excel マクロ アクティブシートの指定について
こんにちは。Excelでマクロを作成しています。あるファイルを開きマクロを実行すると、日々エクスポートしているExcelファイルのシートが開き、自動的にそのシートにピボットテーブルを実行し集計するマクロを作成しています。ファイルの指定はファイル名が毎日日付のファイル名(例:02-12等)になるので、[ファイルを開く]ダイアログを表示させ、そこから指定することにしました。ただ、シート名もファイル名と同じなのですが、どうしてもそのシート名でしか作成できません。現在アクティブなシートにピボットを実行するようにするには、どうすればいいでしょうか。
下記に作成したVBを記載しておきます。
Fname = Application.GetOpenFilename(FileFilter:="Excel ファイル (*.xls), *.xls")
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'02-12'!R1C1:R91C23").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ピボットテーブル3").AddFields RowFields:=Array("所属名", _
"受付担当者")
ActiveSheet.PivotTables("ピボットテーブル3").PivotFields("状況").Orientation = _
xlDataField
・・・
上記の02-12の部分がシート名になるのですが、このシート名は毎日変化していきます(次の日は、02-13 など)。どのように作成すればいいでしょうか。
よろしくお願いします。
お礼
遅くなりました。ありがとうございます。