VBA リストボックス 行移動

Question

リストボックス内のファイルをボタンで行ごと上下に一行移動できるようにしたいのですが、下記の処理をした際にリストボックスの2列目が消えてしまいます。
よろしくお願い致します

Private Sub btn_FileOpen_Click()
   Dim OpenFileName As Variant, Target As Variant
   'カレントディレクトリを指定
   ChDrive "C"
   ChDir "C:\test"
   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                              MultiSelect:=True)
   If IsArray(OpenFileName) Then
       With Me.BookInput
'リストボックスにファイル名を表示
           For Each Target In OpenFileName
               .AddItem Mid(Target,InstrRev(Target,"\")+1)
               Pathname = Replace(Target, Filename, "")
               .AddItem ""
               .List(BookInput.ListCount - 1, 0) = Filename
               .List(BookInput.ListCount - 1, 1) = Pathname
           Next Target
       End with
   Else
       MsgBox "キャンセルされました"
   End If
End Sub
Private Sub btn_Fileup_Click()
   Dim n As Long, buf As String
   n = BookInput.ListIndex       ''(1)現在選択されている位置を記憶する
   buf = BookInput.List(n)       ''(2)現在選択されているデータを記憶する
   BookInput.RemoveItem n        ''(3)現在選択されている位置のデータを削除する
   BookInput.AddItem buf, n - 1  ''(4)1つ上の位置にデータを追加する
End Sub
Private Sub btn_Filedown_Click()
End Sub

Answer 1

buf = BookInput.List(n)では先頭列しか取得できないので、列ごとに取得する必要がありそうです。

Dim n As Long, buf1 As String, buf2 As String
n = BookInput.ListIndex         ''(1)現在選択されている位置を記憶する
buf1 = BookInput.List(n, 0)     ''(2)現在選択されているデータを記憶する
buf2 = BookInput.List(n, 1)     ''(2)現在選択されているデータを記憶する
BookInput.RemoveItem n          ''(3)現在選択されている位置のデータを削除する
BookInput.AddItem "", n - 1     ''(4)1つ上の位置に行を追加する
BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する
BookInput.List(n - 1, 1) = buf2 ''(4)1つ上の位置にデータを追加する

Comments

[退会済みユーザー]

ttyp03さん〉

列ごとに取得すれば良かったのですね。
解決しました。
回答ありがとうございました。