TESTESTさん、こんばんは。

＞全く関係ないですが、梅吉様の回答を読んで皆がどういった事で挫折したのかが
＞すごく気になりました 笑
＞
＞誰か他に「私は以前こういうやり方で対応した」など、予想でも構いませんのでアイデア
＞を下さる方、引き続きもうしばらく募集したいと思いますので、気軽に回答してくださる
＞と嬉しいですm(_ _)m
＞

データを戻すのに、ImportString()・ImportClipboard()関数があるようですね。
たった今まで忘れてました。

そういう訳で…Describeで取得したデータで少し実験してみました。
どうぞ笑ってやってください。

ls_data = dw_1.Describe(\"DataWindow.Data\")
dw_1.CREATE(ls_src,ls_error)

//----- 以下追加
Long ll_length, ll_row, ll_idx, ll_column, ll_tab, ll_pos
String ls_delimiter, ls_coltype

ll_pos = 1
ll_length = Len(ls_data)
ll_column = Long(dw_1.Object.DataWindow.Column.Count)

Do While ll_pos <= ll_length
ll_row++

For ll_idx = 1 To ll_column
If ll_idx = ll_column Then ; ls_delimiter = \"~r\"
Else ;
ls_delimiter = \"~t\"
End If

ll_tab = Pos(ls_data, ls_delimiter, ll_pos)
If ll_tab = 0 Then ll_tab = ll_length + 1

ls_coltype = Lower(dw_1.Describe(\"#\" + String(ll_idx) + \".ColType\"))
If Left(ls_coltype, 4) = \"char\" Then ls_coltype = \"char\"

Choose Case  ls_coltype
Case \"int\", \"long\", \"number\", \"ulong\"
dw_1.Object.Data[ll_row, ll_idx] = Long(Mid(ls_data, 
ll_pos, ll_tab - ll_pos))
Case \"char\"
dw_1.Object.Data[ll_row, ll_idx] = Mid(ls_data, 
ll_pos, ll_tab - ll_pos)
Case Else
//--　その他のカラム
End Choose

ll_pos = ll_tab + 1

Next
Loop