Excel VBA質問箱 IV

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

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


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

43077 / 76732

←次へ　｜　前へ→


	【38712】Re:OPENステートで指定行からの読み込み？

漂流民 - 06/6/8(木) 21:30 -


	引用なし

	パスワード

▼羽衣さん：

これを試してみてください。

　　Dim rf As Long
　　Dim tt As String
　　Dim st() As String
　　Dim i As Long
　　Dim j As Long

　　ff = FreeFile
'ActiveWorkbook.Path & "\test.txt"は環境に合わせてください
　　Open ActiveWorkbook.Path & "\test.txt" For Input As #ff
　　i = 1
　　Do Until EOF(ff)
　　　　Line Input #ff, tt
　　　　If i > 4 Then
　　　　　　st = Split(tt, " ")
　　　　　　For j = 0 To UBound(st)
　　　　　　　　Cells(i - 4, j + 1) = st(j)
　　　　　　Next j
　　　　End If
　　　　i = i + 1
　　Loop

　　Close #ff

1 hits

▼

【38651】OPENステートで指定行からの読み込み？ 羽衣 06/6/7(水) 21:04