VB2005でエクセルの機能を使うには

質問

VB2005でエクセルに数値を貼り付けた後自動的に
エクセルの機能を使ってA列で並び替えをしたいのですが可能でしょうか。

今のソース

s1()の配列に数値がはいっている。
exp
s1(1)="1.0,2.0,3.0,4.0......"

Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlFilePath As String = Application.StartupPath & "\aaa.xls"
Dim xlBook As Excel.Workbook = xlBooks.Open(xlFilePath)
Dim xlSheets As Excel.Sheets = xlBook.Worksheets
Dim xlSheet As Excel.Worksheet = xlSheets.Item(1)

':::::::::::::::::::::::::::::::::::::::::::::::sheet1

'-----貼り付け開始

Dim xlRange As Excel.Range
Dim xlCells As Excel.Range
Dim xlRange1 As Excel.Range
xlCells = xlSheet.Cells

Dim j
Dim Col As String

For i = 1 To irec - 1
temp = Split(s1(i), ",")
For j = 0 To 12
xlRange1 = xlCells(3 + i, 1 + j)
Col = xlRange1.Address(False, False)
xlRange = xlSheet.Range(Col)
xlRange.Value = temp(j)
Next j
Next i

ここで並び替えしたいのですが。

回答No.1

temtecomai2 · ベストアンサー

最終的に「Visual Basic 2005 のソースでどう記述するか」って問題にはなりますが、まずは Excel VBA でソートのコードを書いてみてください。
http://www.ops.dti.ne.jp/~allergy/vb/vbvba.html#sort
分からなければ Excel の [マクロの記録] でソートを記録してみてください。

あとはそれを質問文に書いてある xlSheet、xlRange、Col といったオブジェクトを使って書き直すだけです。

Excel VBA のコードは書いたことがありますか？
もし書いたことがあるのなら今 VB 2005 上で書いているコードが Excel VBA のコードにほとんどそっくりなことに気づきます。
Excel VBA での Range オブジェクトが持っているソートの命令は VB 2005 のコード上で書いた xlRange1 オブジェクトも持っています。

お礼

下記コードでなりました。
ありがとうございました。

xlSheet.Range("A4:AZ29").Sort(Key1:=xlSheet.Range("A4"), Order1:=Excel.XlSortOrder.xlAscending, Header:=Excel.XlYesNoGuess.xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=Excel.XlSortOrientation.xlSortColumns, SortMethod:=Excel.XlSortMethod.xlPinYin)