シートの移動方法です。
下図で言うと、例えば最前面の「Sheet4」を左右にずらすことです。
使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。
'一番左へ移動
Excel_App.ActiveSheet.Move Before:=Excel_App.Worksheets(1)
'一番右へ移動
Excel_App.ActiveSheet.Move After:=Excel_App.Worksheets(Excel_App.Worksheets.Count)
'左から数えて3番目のシートの左へ移動
Excel_App.ActiveSheet.Move Before:=Excel_App.Worksheets(3)
'左から数えて3番目のシートの右へ移動
Excel_App.ActiveSheet.Move After:=Excel_App.Worksheets(3)
'右から数えて4番目のシートの左へ移動
Excel_App.ActiveSheet.Move Before:=Excel_App.Worksheets(Excel_App.Worksheets.Count - 4 + 1)
'右から数えて4番目のシートの右へ移動
Excel_App.ActiveSheet.Move After:=Excel_App.Worksheets(Excel_App.Worksheets.Count - 4 + 1)
|