VB.NETでのExcelデータソートが上手くできません

Question

Excelにそれぞれ

• 項目A（A列）
• 項目B（B列）
• 項目C（C列）
• 項目D（D列）
• 項目E（E列）

のテーブルがあります。
これを項目C～EをKeyとして昇順にし、「項目C」と「項目D」と「項目E」の組合せが同じものが無いかチェックしたいです。

VB.NETのaspx.vbファイルで以下のようにソート処理を記述していますが上手く行きません。
WebブラウザでExcelファイルをアップロードファイルとして System.IO.FileStreamでReadWriteモードでオープンしてからExcelの中身を見ています。
シート保護がかかっており、処理の最初で解除もしています。
エラー内容「RangeクラスのSortメソッドが失敗しました」

'変数宣言省略
wkSheet = xlApp.wkBook.WorkSheets("データシート")
With wkSheet
  .Range("C:E").sort(
     Key1:=.Range("C:C"),order1:=Excel.XlSortOrder.xlAscending, _
     Key2:=.Range("D:D"),order2:=Excel.XlSortOrder.xlAscending, _
     Key3:=.Range("E:E"),order3:=Excel.XlSortOrder.xlAscending, _
     Header:=Excel.XlYesNoGuess.xlYes, _
     MatchCase:=False ,_
     Orientation:=Excel.XlSortOrientation.xlSortRow)
End With

また、ソートした後にExcelを閉じる際、保存処理をしなければ中身が変わることはないという認識でおりますが合っていますでしょうか？
バイナリオープンの仕方をするのも初めてでまだ良く分かっておりません。

問題の原因や解決できる記述を教えていただけたら助かります。
宜しくお願い致します。

Answer 1

With wkSheetの中を次のように変えればソートできると思います。
ただし以下のコードは項目タイトルを考慮していないため、便宜書き換えが必要です。

With wkSheet
    'ソートフィールドをクリア
    .Sort.SortFields.Clear()

    'ソートフィールドを追加(項目C～EをKeyにする)
    .Sort.SortFields.Add(Key:=.Range("C:C"))
    .Sort.SortFields.Add(Key:=.Range("D:D"))
    .Sort.SortFields.Add(Key:=.Range("E:E"))

    'ソート対象の範囲を指定
    .Sort.SetRange(.Range("A:E"))

    'ソートを実行
    .Sort.Apply()
End With

ソートした後にExcelを閉じる際、保存処理をしなければ中身が変わることはないという認識でおりますが合っていますでしょうか？

保存しなければ中身は変わりません。

Comments

[DgRp_08]

回答有り難うございました！
教えていただいた方法は試していないのですが、次の機会に参考にさせていただきます！
返事おそくなりすみませんでした。。

Answer 2

エラーの原因は

Orientation:=Excel.XlSortOrientation.xlSortRow
↓
Orientation:=Excel.XlSortOrientation.xlSortRows

の部分ではないでしょうか？

.NETで動作確認とかしたわけではないのではずしていたらすみません。

Comments

[DgRp_08]

回答有り難うございました。
手書きで写したものを再度打ち込んでいるのでスペルミス的なものは関係ありませんでした。

Answer 3

回答ではないのですが、ソート対象の Range は、Range("C:E") ではなくて Range("A:E") でないとまずくないですか。

Comments

[DgRp_08]

返事遅くなり申し訳ありません。
仰るとおり、範囲指定がアホでした…！
ありがとうございました！