SelfSolved:指定フォルダのExcelをマージしたい

[gorby]

こんばんは
UiPath Studio 2025.0.161 community editionのユーザです。

指定フォルダのすべてのExcelをdt_resultに取得後、dr_mergedにばらして、積み上げてコレクションに集め、最後にDataTableに変換したいです。

dr_mergedの変数の型は
IEnumerable<DataRow>
です。

下記のワークフローを作成後デバッグしたら、最後の代入アクティビティで下記のエラーが出ました。以前に正常に動いたコードなので不思議です…

最後から3番目の代入文の構文は下記のとおりです。
dr_merged=dr_merged.Concat(dt_result.AsEnumerable)

最後の代入文の構文は下記のとおりです。
dt_result = dr_merged.Select(Function(r) dt_result.LoadDataRow(r.ItemArray,False)).CopyToDataTable()

対処策が分かる方、ご教示ください。

[arivu96 (Arivazhagan A)]

dt_result = dr_merged.
Select(Function(r) dt_result.LoadDataRow(r.ItemArray, False)).
ToList().
CopyToDataTable()
or

If dr_merged.Length > 0 Then
Dim tempList As List(Of DataRow) = dr_merged.
Select(Function(r) dt_result.LoadDataRow(r.ItemArray, False)).
ToList()
dt_result = tempList.CopyToDataTable()
End If

Regards,
Arivu

[gorby]

@arivu96

dt_result = dr_merged.
Select(Function(r) dt_result.LoadDataRow(r.ItemArray, False)).
ToList().
CopyToDataTable()

dt_result = dr_merged.
Select(Function(r) dt_result.LoadDataRow(r.ItemArray, False)).
ToList().
CopyToDataTable()

raised the same error.

[arivu96 (Arivazhagan A)]

dr_merged = dt_result.Select(Function(r) dr_merged.LoadDataRow(r.ItemArray, False)).
ToList().
CopyToDataTable()

[gorby]

Hi, The ‘.ToList()’ method seems unnecessary.
Since I resolved my question, I will close this question.
I really appreciate your kind support!

Regards,
gorby