|
▼こう さん:
>ま さん,こんにちわ。
>
>「読み出し」って??「読み込む」の解釈で良いですか?
はい、「読み込む」です。
すいません。
>>「テキストファイルを用意し、適当なデータを3行分作って保存する。
>これもVBAで行いますか?
これは、VBAでは行いません。
>
>>ボタンを押すと、テキストファイルを読み出し、セル1〜セル3に3行分のデータを表示する。」
>「読み出し」→「読み込み」ですか?
>セル1,セル2とは?たとえば「セル1=A1,セル2=A2」とかですか?
はい、「セル1=A1,セル2=A2」になります。
デスクトップに作成した、テキストファイルの中身を
Excelから読み込み、Excelのセル上に表示させるというものです。
質問の表現の誤りでご迷惑お掛け致しました。
>ちなみに,すでに存在するテキストファイルを読み
>A1セルから下方セルに表示するなら,
>
> ファイル名 = 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に関しては、ほんとに初めてなので質問等が分かりにくく
理解にも時間がかかってしまい、ご迷惑お掛けしております。
よろしくお願い致します。
|
|