|
こんにちは。かみちゃん です。
>SQLはまったくわかりませんが 頂いたコードでテストさせていただきました
>がレコードセットをひらけません のメッセージが出ます。
こちらでは動作確認できているのですが、
保存していない新規ブックの場合は、そのMsgBoxが表示されることを確認しました。
そのため、保存していない新規ブックで試されているのであれば、一度保存して
試してみてください。
なお、以下のコードは、Sheet2をアクティブにしていない場合、エラーになりますので、
.Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("C2"), Order2:=xlDescending, Header:=xlGuess
を
.Range("A1").CurrentRegion.Sort Key1:=.Range("A2"), Order1:=xlAscending, _
Key2:=.Range("C2"), Order2:=xlDescending, Header:=xlGuess
としてください。
|
|