Excel VBA 質問スレ Part65at TECHExcel VBA 質問スレ Part65 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト699:デフォルトの名無しさん 20/04/28 06:23:10.14 fDIatR4a0.net 最近csvを開くのがはやってるみたいだけど、拡張子をtxtに変えて開き直すといいよ 700:デフォルトの名無しさん (ﾜｯﾁｮｲ 048f-1Gce) 20/04/28 08:10:33 uR1kyCkX0.net >>671 ぜ・ん・ぶ 701:デフォルトの名無しさん (ｽｯｯﾌﾟ Sd70-bbQE) 20/04/28 08:27:27 F6rfqhbJd.net >>685 速度アップの為にあえて使うのはVariant配列。 配列にすることに全く違和感が無いので、"あえて"使うことが少ない。 配列にするのに自然なことがたくさんあるし、普通に使ってる。 702:667 (ﾜｯﾁｮｲ 2c7f-So6t) 20/04/28 13:36:09 1XDByXps0.net ありがとうございました。 できました。 703:デフォルトの名無しさん (ﾜｯﾁｮｲ 7349-xf6K) 20/04/28 13:57:24 0tfnjkqK0.net いえいえ 704:デフォルトの名無しさん (ﾌﾞｰｲﾓ MM5e-43Dx) 20/04/28 17:53:56 YPs9lugpM.net Sub テキスト抽出() ChDir "c:\tmp" f = Dir("*.txt") c = 1 Do While f <> "" Open f For Input As #1 Line Input As #1,s s = "s" r = 1 Do While Not EOF(1) And s <> "" Line Input #1, s If s <> "" Then Cells(r, c) = Split(s, vbTab)(5) r = r + 1 Loop Close #1 f = Dir c = c + 1 Loop End Sub 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch