マクロで効率よく繰り返すにはどのような構成をしたらよいか教えてください

excel名「a」～「a(99)」のSheetを一つのエクセルに移動させるマクロになってます
普通に移動させるとSheet名が「a」～「a(99)」になってしまうので「Sheet1」～「Sheet100」になるように直しています
マクロ初心者でうまく繰り返し機能が使えず一つずつ入力しました
下記マクロをどうすればスマートに繰り返しできるようになるか教えてください

Sub 読込み()
'
' 読込み Macro
'

'
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a.xlsx"
Sheets("a").Select
Sheets("a").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a").Select
Sheets("a").Name = "Sheet1"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (1).xlsx"
Sheets("a (1)").Select
Sheets("a (1)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (1)").Select
Sheets("a (1)").Name = "Sheet2"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (2).xlsx"
Sheets("a (2)").Select
Sheets("a (2)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (2)").Select
Sheets("a (2)").Name = "Sheet3"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (3).xlsx"
Sheets("a (3)").Select
Sheets("a (3)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (3)").Select
Sheets("a (3)").Name = "Sheet4"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (4).xlsx"
Sheets("a (4)").Select
Sheets("a (4)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (4)").Select
Sheets("a (4)").Name = "Sheet5"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (5).xlsx"
Sheets("a (5)").Select
Sheets("a (5)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (5)").Select
Sheets("a (5)").Name = "Sheet6"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (6).xlsx"
Sheets("a (6)").Select
Sheets("a (6)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (6)").Select
Sheets("a (6)").Name = "Sheet7"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (7).xlsx"
Sheets("a (7)").Select
Sheets("a (7)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (7)").Select
Sheets("a (7)").Name = "Sheet8"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (8).xlsx"
Sheets("a (8)").Select
Sheets("a (8)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (8)").Select
Sheets("a (8)").Name = "Sheet9"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (9).xlsx"
Sheets("a (9)").Select
Sheets("a (9)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (9)").Select
Sheets("a (9)").Name = "Sheet10"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (10).xlsx"
Sheets("a (10)").Select
Sheets("a (10)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (10)").Select
Sheets("a (10)").Name = "Sheet11"

Sheets(11)～Sheets(98)省略

Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (98).xlsx"
Sheets("a (98)").Select
Sheets("a (98)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (98)").Select
Sheets("a (98)").Name = "Sheet99"
Workbooks.Open Filename:="C:\３Ｄ検査書\変換後データ\a (99).xlsx"
Sheets("a (99)").Select
Sheets("a (99)").Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets("a (99)").Select
Sheets("a (99)").Name = "Sheet100"

ActiveWorkbook.Save
End Sub

No.1 ベストアンサー 回答者： fji 回答日時： 2016/11/03 21:09

以下のマクロでどうでしょうか。

Sub 読込み()
'
' 読込み Macro
'
Dim i As Long
Dim name As String
For i = 0 To 99
If i = 0 Then
name = "a"
Else
name = "a (" & i & ")"
End If
Workbooks.Open filename:="C:\３Ｄ検査書\変換後データ\" & name & ".xlsx"
Sheets(name).Select
Sheets(name).Move Before:=Workbooks("テキスト変換.xlsm").Sheets(1)
Sheets(name).Select
Sheets(name).name = "Sheet" & (i + 1)
Next i

ActiveWorkbook.Save
End Sub

この回答へのお礼

早速の回答ありがとうございます
大変助かりました
ありがとうございます

お礼日時：2016/11/03 21:14