オープン時にソートを掛けて読み込みでエラーします。

質問

シートに読み込んで、このブックを一度保存？
または、何かしらの処置してからでないと、
ソートは駄目なのでしょうか？
毎回の作業のため、できれば一度にと思い。。
マクロ記録でそのままはりつけたのですが、
★でデバック止まります　TT
先生、アドバイス願います

Application.DisplayAlerts = False
Workbooks.Open Filename:="C:仕事\" & sName & ".xls"
Sheets(sName).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Windows(sName & ".xls").Close
Sheets(sName).Name = "営業" & sName
Application.DisplayAlerts = True

'ソート
★ Range("B5:AC20").Select
Selection.Sort Key1:=Range("H5"), Order1:=xlAscending, Key2:=Range("D5") _
, Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal, DataOption3:=xlSortNormal

MsgBox "営業" & sName & " をソートして読み込みました"
Worksheets("main").Activate

回答No.2

onlyrom · ベストアンサー

原因は、ソートをするシートを明示してないからでしょう。

以下のように、Select、Key1,2,3のRangeオブジェクトの前に
ActiveSheetを付加してシートを明示してみてください。

'---------------------------------------------------
'ソート
　ActiveSheet.Range("B5:AC20").Select
　Selection.Sort _
　　　Key1:=ActiveSheet.Range("H5"), Order1:=xlAscending, _
　　　Key2:=ActiveSheet.Range("D5"), Order2:=xlAscending, _
　　　Key3:=ActiveSheet.Range("C5"), Order3:=xlAscending, _
　　　Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
　　　Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
　　　DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
　　　DataOption3:=xlSortNormal
'---------------------------------------------------

また、ソートの場合は、範囲をSelectする必要はなく直接ソートできます。
'-------------------------------------------
'ソート
　ActiveSheet.Range("B5:AC20").Sort _
　　Key1:=ActiveSheet.Range("H5"), Order1:=xlAscending, _
　　Key2:=ActiveSheet.Range("D5"), Order2:=xlAscending, _
　　Key3:=ActiveSheet.Range("C5"), Order3:=xlAscending, _
　　Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
　　Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
　　DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
　　DataOption3:=xlSortNormal
'-----------------------------------------------------

外しましたらご容赦！(^^;;;

お礼

うれしいです、どんピシャです^^！ありがとうございました。
理想の処理にまた一歩近づきました！！

回答No.1

hige_082

Dim sName As String
sName = "book2"
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Documents and Settings\tomita\My Documents\" & sName & ".xls"
Sheets(sName).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Windows(sName & ".xls").Close
Sheets(sName).Name = "営業" & sName
Application.DisplayAlerts = True

'ソート
Range("B5:AC20").Select
Selection.Sort Key1:=Range("H5"), Order1:=xlAscending, Key2:=Range("D5") _
, Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin

MsgBox "営業" & sName & " をソートして読み込みました"
Worksheets("main").Activate

こうだと思います

補足

Dim sName As String
sName = "book2"
定義付けしてもやはり、同様にソート Range("B5:AC20").Select
でエラーストップになってしまいます
RangeクラスのSelectが失敗しました、エラー1004
・・悲しいTT