Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

76514 / 76732

←次へ　｜　前へ→


	【4639】Re:".txt"ﾌｧｲﾙの必要な列だけを読み込みExcelに貼り付けられませんか？

めぎゅ

- 03/3/31(月) 14:05 -


	引用なし

	パスワード

こんにちは。
お返事ありがとうございます。

再度お聞きしてしまい申し訳ないのですが、
読み込むﾃｷｽﾄﾃﾞｰﾀは、タブ区切りです。
Rdataに入るデータが、タブすべて含めた１Lineのﾃﾞｰﾀが入ってしまうのですが･･･。
例えば、
列数は、全部で4列
1　　aaa　　bbb　　ccc
12　　ddd　　fff　　gggg
13　　hhhhh　　iiiiii　　jjjjj　

といったタブ区切りのﾃﾞｰﾀを読み込みます。
Excelのには、
A列　|B列　 |C列
1　　|aaa　 |ccc
12　 |ddd　 |gggg
13　 |hhhhh |jjjjj

といった形でﾃﾞｰﾀを貼り付けたいのですが･･･。
すいません、どうもうまくいかないのでもう一度ご助言いただけないでしょうか？

列数= 87
>For I = 1 To 列数
>　　Input #1, Rdata
>　　If I = 0 Then
>　　　 CNT = CNT + 1
>　　　 Tbl(CNT, 1) = Rdata
>　　ElseIf I = 2 Then
>　　　 CNT2 = CNT2 + 1
>　　　 Tbl2(CNT2, 2) = Rdata
>　　ElseIf I = 3 Then
>　　　 CNT3 = CNT3 + 1
>　　　 Tbl3(CNT3, 3) = Rdata
>　　End If
>Next

2 hits

▼

【4603】".txt"ﾌｧｲﾙの必要な列だけを読み込みExcelに貼り付けられませんか... めぎゅ 03/3/28(金) 11:10