Excel VBA質問箱 IV

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

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


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

62131 / 76732

←次へ　｜　前へ→


	【19209】Re:固定長のテキストをスマートに切りだしながら取り込みたい

Jaka - 04/10/25(月) 17:04 -


	引用なし

	パスワード

スマートだかどうだかはわかりません。
1500行程度と言う事なんで....。

因みにこれ以上配列をでかくすると、どんどん遅くなると思います。
限度を超えるとフリーズしたりもします。

Sub dkkk()
　　Dim St() As String
　　OPFL = "開くファイルのフルパス"
　　Open OPFL For Input As #1
　　Do Until EOF(1)
　　　 CT = CT + 1
　　Loop
　　Close #1
　　Open OPFL For Input As #1
　　CC = 0
　　ReDim St(1 To CT, 1 To 15)
　　Do Until EOF(1)
　　　 Line Input #1, RD
　　　 CC = CC + 1
　　　 St(CC, 1) = Left(RD, 2)
　　　 St(CC, 2) = Mid(RD, 3, 3)
　　　 St(CC, 3) = Mid(RD, 6, 3)
　　　 St(CC, 4) = Mid(RD, 9, 4)
　　　 St(CC, 5) = Mid(RD, 13, 5)
　　　　・
　　　　・
　　　 St(CC,15) = Mid(RD, ×, ×)
　　Loop
　　Range("A1").Resize(CT, 15).Value = St
　　Close #1
　　Erase St
　　End
End Sub

1 hits

▼

【19205】固定長のテキストをスマートに切りだしながら取り込みたい ackkn 04/10/25(月) 16:01