カレントブックのファイル名の取得方法
- カレントブック（例：test.xls）の名前をどうやって取得できますか。
- マクロに固定値で指定されているカレントブック名を変更したいと思っています。
- 常に変わるファイル名の取得方法を教えてください。
- ベストアンサー
カレントブックのファイル名の取得
早速ですが。 カレントブック（例：test.xls）の名前をどうやって取得できますか。 マクロ（code）にカレントブック名を固定値（test.xls）で指定していますが、 下記のように、改善したいと思いますが、 ================================= test.xlsのマクロに PCvsFileName="test.xls" Windows("PCvsFileName").Activate ================================= 該当ｘｌｓファイル名は常に変わるから、カレントブックのファイル名の取得方法が 知りたいです。 よろしくお願いします。
- amysmile
- お礼率28% (2/7)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
実行中のマクロモジュールがあるブックは、ThisWorkbook と表記する事が出来ます。 ThisWorkbook.Activate ThisWorkbook.Name ThisWorkbook.Save などと、Workbooks("なんたら.xls") と同様に使う事が出来ます。
関連するQ&A
- VBAで、アクティブなBOOKのファイル名を取得し
エクセルのVBAを使用して、選択されている、ＢＯＯＫのファイル名を取得し、下記のように編集してＡ１セルに入れたいのですが、可能でしょうか？ BOOKのファイル名が「大阪_たこ焼き_1234.xls」の場合 大阪_と.xlsをは省いて、「たこ焼き_1234」がＡ１セルに入るようにしたい。
- ベストアンサー
- オフィス系ソフト
- EXCELファイルのカレントフォルダを取得するには？
EXCELファイルのカレントフォルダを取得するには？ C:\経理\予算.xls D:\2005年度\予算.xls EXCEL97ファイルがあります。 VBAで カレントフォルダ名 (C:\経理\,D:\2005年度\) を取得する事は可能でしょうか？ CURDIRでは上手い方法が見つかりませんでした。
- ベストアンサー
- オフィス系ソフト
- ブック名を変数にしたらアクティブになりません。
色々と調べたり試したのですが、どうしても判らないので質問させてください。 Excel2002でマクロを組んでいます。 セル上の数値を使って、ブック名を変数に格納しました。 したい事は、「DataBase.xls」のCalendarシートの内容を 「07年6月売上.xls」のとあるシートに値貼り付け です。 格納した変数 Dim Uriage As String Uriage = Worksheets("設定").Range("A4") & "年" & Worksheets("設定").Range("B5") & "月売上.xls " 上記のブックを開き、マクロを記述したブックに戻り、 再度上記のブックをアクティブにしようとすると 「有効範囲にありません」とメッセージが出ます。 デバッグ状態で記述を見てみると 1 Windows("DataBase.xls").Activate （←マクロ記述のブック名） 2 Sheets("Calendar").Select 3 Range("B7:H7").Select 4 Selection.Copy 5 Windows(Uriage).Activate （←変数格納したブック名） 5番でとまっています。 ですが、オンマウスにするとちゃんと「"07年6月売上.xls"」と表示が出ます。 それ以前に、ファイルを開くことは出来てるのに・・・・ いったいどういう事なのか、どうかご教示ください。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- ファイル名を指定しないVBAは？
既に開いているエクセルファイル（元ファイル）があり、 そこに、別のエクセルファイル（後ファイル）を開いてその情報を 「元ファイル」に取り込んだら、自動で「後ファイル」が閉じるように ＶＢＡマクロを組みました。 が、「後ファイル」は常に同じなので、ファイル名を指定して 開閉するようにしていますが、 「元ファイル」は、名前が常に違います。 ファイル名を指定せず、先に開いているファイルをActiveにするには どうしたらいいですか？ 今は、新しいファイルを作成して、エラーが起こったら Windows("○○○.xls").Activate ○○○の部分に新しいファイル名を入れています。 よろしくお願いします。
- 締切済み
- その他（インターネット・Webサービス）
- エクセルVBAでのブック名の取得について。
こんにちは。よろしくお願いします。 自身：a.xls 他：1.xls、2.xls、3.xls 上記全てを開いた状態で、a.xlsのA列に、a.xls以外のブック名を文字列として取得しました。 A 1.xls 2.xls 3.xls この状態で、更に、 追加：11.xls、12.xls、13.xls というブックを開いた場合（１、２、３は開いたまま）に、B列に上記３つのみのブック名を文字列として取得したいと考えています。が、A列に取得したところで行き詰ってます・・・。 ご教授願えると嬉しいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数のブックのデータを一つのブックにまとめたい
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page1.htm ↑の 7. 指定したフォルダ内にあるExcelファイルを検索して開く の部分のマクロを利用して、集計.xlsというブックで、複数のブックを開くようにしましたが、そのブックを開いた時にそのブックのSheet2の中のデータのみコピーして、集計.xlsに貼り付けたいのですが、どのようにすればよいのか困っています。 指定したフォルダの中には、回答01.xls 回答02.xls ・・・と16個のブックがあります。順番に開いてコピーをするときに、どのようにブック名とシート名を指定すればよいのかわからず困っています。 何か参考になるものがあれば教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA で現在開いているブックのファイル名を取得する方法
EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。 作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。 このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。 常にファイル名を取得出来るVBAをどなたか、教えて下さい。
- ベストアンサー
- その他（ビジネス・キャリア）
- Excel マクロでファイル名を変数に・・・
初心者です。検索してもわからなかったので質問です。 下記のようなマクロの処理で「ＡＡＡ」というファイル名のＥｘｃｅｌに「2.xls」からデータをコピーし貼り付けています。 ・ ・ Windows("ＡＡＡ.xls").Activate Rows("4:4").Select Selection.Insert Shift:=xlDown Windows("2.xls").Activate Range("C6").Select Selection.Copy Windows("ＡＡＡ.xls").Activate Range("A4").Select ActiveSheet.Paste Windows("2.xls").Activate Range("C7").Select Application.CutCopyMode = False Selection.Copy ・ ・ 今回は「2.xls」ではなく「3.xls」、「4.xls」、・・・といったように違うファイル名で同じ処理を行ないたいので「2」と指定するのではなく「（ファイル名）.xls」といった形にしたいのですが、それは可能なのでしょうか。 ご意見宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel97VBAで、カレントディレクトリを取得する方法
Excel97のVBAで、ワークブックの保存ボタンを作成しています。 1.xlsというファイルを、一旦、1.prn（スペース区切りテキスト）でデスクトップに保存し、再度元のディレクトリの1.xlsに上書き保存する。というマクロを作っています。 SaveAsでFileFormatを変更するところまではわかったのですが、元のファイルに上書きする方法がわかりません。 一度、カレントディレクトリを取得して、同じ名前を付けて保存する、という方法になるのではないかと思いましたが、カレントディレクトリの取得方法がわかりません。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- ブックのopenについて
デスクトップにファイル名「A.xls」と「B.xls」が有ります。「B.xls」はファイル名が変わるため「A.xls」のsheet1のセルA1に「B.xls」のファイル名を記載して「A.xls」と「B.xls」を共に開き「A.xls」にマクロを記述して処理をしています。この処理をする際に最初から「B.xls」を開かずにマクロでセルA1に記載したファイル名を使って「B.xls」ファイルを開くための記述を教えてください。現在のマクロの最初の部分は以下のようになっています。よろしくお願いします。 Sub Macro1() Dim nextyearbookname As String nextyearbookname = Range("A1") & ".xls" ThisWorkbook.Activate Worksheets("sheet1").Range("B20:B21").Select Selection.Copy Windows(nextyearbookname).Activate
- ベストアンサー
- Visual Basic
お礼
助かりました！！！ 本当にありがとうございました！