| |
▼こう さん：
>ま さん，こんにちわ。
>
>「読み出し」って？？「読み込む」の解釈で良いですか？
はい、「読み込む」です。
すいません。
>>「テキストファイルを用意し、適当なデータを３行分作って保存する。
>これもVBAで行いますか？
これは、VBAでは行いません。
>
>>ボタンを押すと、テキストファイルを読み出し、セル１〜セル３に３行分のデータを表示する。」
>「読み出し」→「読み込み」ですか？
>セル１，セル２とは？たとえば「セル１＝Ａ１，セル２＝Ａ２」とかですか？
はい、「セル１＝Ａ１，セル２＝Ａ２」になります。
デスクトップに作成した、テキストファイルの中身を
Excelから読み込み、Excelのセル上に表示させるというものです。
質問の表現の誤りでご迷惑お掛け致しました。
>ちなみに，すでに存在するテキストファイルを読み
>Ａ１セルから下方セルに表示するなら，
>
> ファイル名 = ThisWorkbook.Path & "\" & "テキストファイル.txt"
> Open ファイル名 For Input As #1
> i = 1
> Do Until EOF(1)
> Input #1, rdat
> Cells(i, 1) = rdat
> i = i + 1
> Loop
> Close #1
>
>で可能です
こちらで実施すると、「オブジェクトが必要です」と言われてしまいました。
ちなみに、ファイル名=（テキストファイルの名前）を入れる
"テキストファイル.txt"=（テキストファイルの名前）を入れる
後のコードはそのままコピーしました。
VBAに関しては、ほんとに初めてなので質問等が分かりにくく
理解にも時間がかかってしまい、ご迷惑お掛けしております。
よろしくお願い致します。
|
|
ま
- 03/6/2(月) 9:29 -
