データテーブルの列の順番を変更したいですが、どうしたらいいでしょうか？

Question

UipathでVB.NETコードを呼び出して、以下のことをしたいです。

Excelのデータをデータテーブルに格納後、３列目と４列目の全てのデータを一番最初の列に持ってきたいですが、どうしたらよろしいでしょうか？

どなたか教えていただきたいです。

宜しくお願いいたします。

元データの列は
【所属コード 所属名 氏名コード 氏名 年 月 出勤回数 欠勤日数 有休日数 有休時間 特別休暇 代休日数 夜勤回数 交代４－２回数 Ｌ手当 法定時間内残業 普通残業 休日出勤 休日深夜 深夜時間 勤務時間数 在宅回数 ノーPC回数 実労働時間 過不足時間 備 考
】
最終必要データ列順番は以下のように、変更不可である
【氏名コード 支給月(年+月) 氏名 所属コード 所属名 普通残業 休日出勤 休日深夜 深夜時間 過不足時間】

それで、データテーブルをクローン後、必要ない列を削除後、データ結合し指定カラムに代入後、カラム名変更しました。
----------------start

dt.Columns.Remove("出勤回数")
dt.Columns.Remove("欠勤日数")
dt.Columns.Remove("有休日数")
dt.Columns.Remove("有休時間")
dt.Columns.Remove("特別休暇")
dt.Columns.Remove("代休日数")
dt.Columns.Remove("夜勤回数")
dt.Columns.Remove("交代４－２回数")
dt.Columns.Remove("Ｌ手当")
dt.Columns.Remove("法定時間内残業")
dt.Columns.Remove("勤務時間数")
dt.Columns.Remove("在宅回数")
dt.Columns.Remove("ノーPC回数")
dt.Columns.Remove("実労働時間")

Dim i As Integer = dt.Rows.Count
For Each dRow As DataRow In dt.Rows
If Integer.Parse(dRow("月").ToString) < 10 Then
dt.Rows(i-dt.Rows.Count).Item("年") = Integer.Parse(dRow("年").ToString & "0" & dRow("月").ToString)
Else
dt.Rows(i-dt.Rows.Count).Item("年") = Integer.Parse(dRow("年").ToString & dRow("月").ToString)
End If 
i = i + 1
Next

dt.Columns.Remove("月")

dt.Columns(4).ColumnName = "支給年月"

----------------end

Comments

[YAmaGNZ]

何故そういったことが必要なのでしょうか？
データテーブルを使用する側で対応できないのでしょうか？

[gentaro]

VB.NETのタグとの関連がわかりません。
VB.NETのプログラムを組んでいるなら、コードを提示して下さい。

[rena_168]

別シートでVLOOKUP式は変えられないので、VLOOKUP内の式では、データの列順番は（1,2,3,4....）でないといけないのに、inputデータのExcelデータ列は(3,4,1,2...)になっております。

[rena_168]

元データの列は
【所属コード 所属名 氏名コード 氏名 年 月 出勤回数 欠勤日数 有休日数 有休時間 特別休暇 代休日数 夜勤回数 交代４－２回数 Ｌ手当 法定時間内残業 普通残業 休日出勤 休日深夜 深夜時間 勤務時間数 在宅回数 ノーPC回数 実労働時間 過不足時間 備 考
】
最終必要データ列順番は以下のように、変更不可である
【氏名コード 支給月(年+月) 氏名 所属コード 所属名 普通残業 休日出勤 休日深夜 深夜時間 過不足時間】

それで、データテーブルをクローン後、必要ない列を削除後、データ結合し指定カラムに代入後、カラム名変更しました。
----------------start
dt.Columns.Remove("出勤回数")
dt.Columns.Remove("欠勤日数")
dt.Columns.Remove("有休日数")
dt.Columns.Remove("有休時間")
dt.Columns.Remove("特別休暇")
dt.Columns.Remove("代休日数")
dt.Columns.Remove("夜勤回数")
dt.Columns.Remove("交代４－２回数")
dt.Columns.Remove("Ｌ手当")
dt.Columns.Remove("法定時間内残業")
dt.Columns.Remove("勤務時間数")
dt.Columns.Remove("在宅回数")
dt.Columns.Remove("ノーPC回数")
dt.Columns.Remove("実労働時間")

Dim i As Integer = dt.Rows.Count
For Each dRow As DataRow In dt.Rows
If Integer.Parse(dRow("月").ToString) < 10 Then
dt.Rows(i-dt.Rows.Count).Item("年") = Integer.Parse(dRow("年").ToString & "0" & dRow("月").ToString)
Else
dt.Rows(i-dt.Rows.Count).Item("年") = Integer.Parse(dRow("年").ToString & dRow("月").ToString)
End If
i = i + 1
Next

dt.Columns.Remove("月")

dt.Columns(4).ColumnName = "支給年月"
----------------end

[gentaro]

ここに書かずに質問文を編集して追記して下さい。
コードを見やすく書く機能もあります。
https://teratail.com/help/question-tips#questionTips3-3-1

[YAmaGNZ]

コードは質問を編集して提示してください。
また、DataTableに取り込む部分や出力する部分のソースがあれば、そこで必要データのみにするなどの対応が出来るなどの方法が提示できるかもしれません。

[YAmaGNZ]

というかクローン作るなら、新しいDataTableに必要データをループで入れるなりすればいいのでは？

[rena_168]

やっぱりそういう普通のやり方でやるしかないですか？
もっと効率のある方法があるかなと思って。。。

[gentaro]

ソースコード書く時はちゃんとインデント付けましょう。見づらいコードを提示しても読んでもらえず、結果ご自身が損をします。

[YAmaGNZ]

ですから、DataTableに取り込む部分やDataTableからの出力部分でデータの限定などが行えるかもしれないので、その部分のコードを出してくださいということです。

[rena_168]

すみません、UipathでVB.NETコードを書いた部分はこれだけです。

[YAmaGNZ]

すみません。UIpathは使用したことがないので、そちらに関することはお答えできません。
VB.NET側であれば、先ほどいったように新たにDataTableを作成し、必要データを生成したほうがすっきりするのではないかと思います。

Answer 1

DataColumn.SetOrdinal メソッドでカラムの順番を入れ替えられます。
3列目、4列目を先頭にもっていくのであればこんな感じでしょうか。

Dim dt As New DataTable()
dt.Columns.Add("A")
dt.Columns.Add("B")
dt.Columns.Add("C")
dt.Columns.Add("D")
dt.Rows.Add("1", "2", "3", "4")
dt.Columns(3).SetOrdinal(0)
dt.Columns(3).SetOrdinal(0) ’上の行で順番が変わるので注意
For Each dc As DataColumn In dt.Columns
    Debug.WriteLine(dc.ColumnName)
Next

結果:
C
D
A
B

Comments

[KOZ6.0]

このほうがわかりやすいかも。
dt.Columns("C").SetOrdinal(0)
dt.Columns("D").SetOrdinal(1)

Answer 2

YAmaGNZさんに言われたように、元データテーブルから必要となる列のみ取得し、
新規データテーブルを作ることで出来ました。
もっと簡単に列の入れ替えが出来ないことが残念でした。