
お世話になっております
excelで「今開いたシート名までのパス」を取りたいのですが、方法がわかりません
現在
For FileNo = 1 To .FoundFiles.Count(あるフォルダの中にある)
***************
For intNum = 1 To intSC(ファイルの中のシートを端から開いて作業する)
***************
というようにfor nextであるファイルのあるシートを指定して作業するようになっています
いったん、別のファイルを選択してからまたこの開いたシートに戻る必要があるため、この直前に開いたシートのパスが必要なのです
「ThisWorkbook.Path」などではコードが書いてあるファイルのパスになってしまいます
どうか教えていただけると大変助かります
宜しくお願いします
No.3ベストアンサー
- 回答日時:
.FoundFiles.Countを使える人が、
>Workbooks.Open "myBook.Path & " \ " & myBook.Name"
こんな書き方をするとはちょと信じられませんが。。(^^;;;
という突っ込みは置いといて。。
myBook.PathとかmyBook.Nameは変数ですので(定数ではない)
””で囲む必要はありません。
¥ だけを囲みます。
Workbooks.Open myBook.Path & " \ " & myBook.Name
もしこれでエラーがでるようでしたら、質問者のコードを全て提示してください。
その方が解決が早いでしょう。
ありがとうございました
シートの選択もやっとなんとかできました
もっとスマートな書き方があるだろうとは思いましたが
とりあえず急ぎだったので今回はこれでよしとします
すぐに対応していただき、またご指摘いただき大変ありがとうございました
No.2
- 回答日時:
>別のファイルを選択してから
>またこの開いたシートに戻る必要があるため
>この直前に開いたシートのパスが必要なのです
この文言ではいくつか受け取り方がありますが、
それは無視して、パスの取得方法のための回答
●のコードを追加する
'-----------------------------------------
● Dim myBook As Workbook
For FileNo = 1 To .FoundFiles.Count
● Set myBook = Workbooks.Open(.FoundFiles(FileNo))
For intNum = 1 To intSC
************
'-------------------------------------------
開いたブックのパス: myBook.Path
開いたブックのフルパス: myBook.Path & "\" & myBook.Name
開いたブックの選択: myBook.Select
但し、このオブジェクト変数myBookをどこで使用するかで、
宣言場所が違ってくるのは言うまでもありません。
以上。
すいません
Workbooks.Open "myBook.Path & " \ " & myBook.Name"
とすると「型が一致していません」というエラーがでます
色々やってみたのですが、どうしてもできませんでした
そしてそこからシートを指定する方法がわかりませんでした
でも、ご回答いただきありがとうございました
理解が足りず申し訳ありません
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAでのグラフ操作について
-
Excel チェックボックスにチェ...
-
実行時エラー'1004': WorkSheet...
-
実行時エラー1004「Select メソ...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
エクセルVBA Ifでシート名が合...
-
ユーザーフォームに入力したデ...
-
エクセルで通し番号を入れてチ...
-
別のシートから値を取得するとき
-
ExcelのVBAのマクロで他のシー...
-
VBA 存在しないシートを選...
-
VBAマクロでシートコピーした新...
-
Excel VBA マクロ 先頭行の固定...
-
マクロを使って、シート印刷完...
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
VBA 指定した回数分、別シート...
-
VBAで指定シート以外の選択
-
シートが保護されている状態で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
実行時エラー1004「Select メソ...
-
特定の文字を含むシートだけマ...
-
XL:BeforeDoubleClickが動かない
-
【ExcelVBA】全シートのセルの...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
エクセルVBA Ifでシート名が合...
-
Excel チェックボックスにチェ...
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
ブック名、シート名を他のモジ...
-
ExcelのVBAのマクロで他のシー...
-
同じ作業を複数のシートに実行...
-
エクセルのシート名変更で重複...
-
VBA 検索して一致したセル...
-
【VBA】色のついたシート名を取得
-
VBAで指定シート以外の選択
おすすめ情報