Dirの基本的な使い方

Question

以下のコードを動作させると「オブジェクトが必要です」と表示されます。

コード
    Dim zyaPath As String
    Dim zyaname As String

    zyaPath = ThsiWorkbook.Path & "\" & "テスト" & "\"
    zyaname = Dir(zyaPath & "*", vbNormal + vbDirectory)

    Range(A1) = zyaPath
    Range(A2) = zyaname

Pathの中にはさらにフォルダが有るのみです。
他フォルダ名はstringではないのでしょうか。
Variantに変更したりしましたが、同じ表記になりました。

Dirの使い方が不慣れだったため、いろいろなサイトを見て確認しましたが。誤っている場所を特定できませんでした。

誤っている所を指摘いただければ幸いです。
よろしくお願いします。

Comments

[meg_]

質問のコードを実行すると「コンパイルエラー：変数が定義されていません。」のエラーとなります。

[tosi]

「オブジェクトが必要です」エラーはDaregada様が言われる様に、記載ミスで発生します。ThsiWorkbookと言うオブジェクトは存在しません。

Answer 1

いや、Dirの使い方云々の前に、ThsiWorkbook.PathをThisWorkbook.Pathに直してみて。

Comments

[ice930]

いくら調べても解決しないと思ったら誤記でした・・・。
こらから気を付けます！
ありがとうございました！