テキストファイルを開く処理

Question

全体の処理としては①～③まであり、③のところがわからないです。

①"シート1"のセルのA1にはファイルパスが設定されています。
C:\～\～\test.csv

②①をオブジェクト変数に設定していています。
Set ファイル1 = ThisWorkbook.Worksheets("シート1").Range("A1").Value

③②をテキストファイルで開きたい
試したこと、テキストを開くには「Openステートメント」が使えそうだったので下記のような記述で試したが、
開かなかった。

Open ファイル1 For Input As #1

「Open ファイル名 For 開き方 As #ファイル番号」のファイル名のところが「オブジェクト変数」だから開かない？
Open "C:\～\～\test.csv" For Input As #1 にすれば開くことできますが、
①②のやり方でファイル1をテキストで開く方法はありませんか。

Comments

[tatsu99]

ファイル1はどのように定義していますか。
通常は
dim ファイル1 as String
ファイル1 = ThisWorkbook.Worksheets("シート1").Range("A1").Value
とすると思うのですが・・・・
何故、ファイル1をオブジェクト型にしているのでしょうか？

[welch01]

定義はdim ファイル1 as Workbookにしてました。

ThisWorkbook.Worksheets("シート1").Range("A1").Valueがオブジェクトだと思いオブジェクト変数に設定していました。

Answer 1

セルA1の値は単なる文字列のファイル名なのでオブジェクト変数ではなく文字列変数にしてください。

②①をオブジェクト変数に設定していています。
Set ファイル1 = ThisWorkbook.Worksheets("シート1").Range("A1").Value

↓

②①を文字列変数に設定していています。
Dim ファイル1 As String
ファイル1 = ThisWorkbook.Worksheets("シート1").Range("A1").Value

Comments

[welch01]

回答ありがとうございます。
文字列変数なんですね。
オブジェクト変数だと思っていました。