- ベストアンサー
ExcelのマクロでSheetに記載のファイル名に変更するには
Excel2003のマクロで、Sheet1のセルb1～b***（***の値はマクロで末尾を認識させたい）に記載されているファイル名をDドライブのフォルダ名「TEST1」から検索してAAのセルC1～C***に記載のファイル名にリネームするマクロで、「TEST1」フォルダにSheet1のセルに記載のファイルがない場合はエラーにしないで無視して次に進むようにしたいのですが、初心者でうまくできません。ご指導宜しくお願いします。
- o8ji
- お礼率55% (22/40)
- その他(業務ソフトウェア)
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
On Error Resume Next For i = 1 To Cells(65536, 1).End(xlUp).Row Name "D:\TEST1\" & Cells(i, 1).Value As "D:\TEST1\" & Cells(i, 3).Value Next i
関連するQ&A
- EXCELで参照シート名含む計算式の変更マクロ
マクロを作成しておりますして、わかりづらいか質問もしれませんが宜しくお願いします。 (1)マクロを配布し先方（複数拠点）で持っているブックに変更をかけ たい。 (2)そのブック内には複数シートがあり、計算式で他シートを参照して いる。 (3)その計算式を変更かけたい。が(2)でいう参照シートのシート名を各 拠点にて変更しているので、計算式も変更後のシート名が入って いる。 例えば、 シート１のA1セルに「=（xxxxx）!B1/C5」という式を埋め込みたい。 ※（xxxxx）はシート名。 でも、（xxxxx）のシート名は拠点によってシート名がことなることが 問題。尚、シート名以降の計算式は全拠点共通。 そこで、こんなことがやれればのイメージですが イメージ１： シート１の他のセル(D1)で（xxxxx）と同じシート名を参照している 式が必ず存在している。拠点毎にシート名は異なるがセル(D1)の 場所は共通。 このセル(D1)の式からシート名を抽出し、上の「=（xxxxx）!B1/C5」 の（xxxxx）に入れて、シート１のA1セルにこの計算式を記載する マクロを作る イメージ２： もし「=（xxxxx）!B1/C5」の（xxxxx）部分に仮名称を入れたものを マクロでシート１のA1セルに書き込んだあと、各拠点にて（xxxxx） →それぞれ拠点で使っているシート名に置換する ような方法があ るか？（存在しない参照シート名のまま書き込むとファイル指定の ダイアログが開くので、開かないような汎用的な記述を一旦仮置き できないか？） 以上宜しくお願いしたします
- ベストアンサー
- その他MS Office製品
- エクセル マクロでシート名変更
Excelで、作成してあるフォーマットに新しく数値をコピーして完成した表を別のブックに移動して保存しようと考えています。その際、シートのA1セルの値を自動的にワークシート名に持ってきたいのですが、やり方が分からず困っています。 シート名のところ以外は、なんとなくマクロの記録を使ってできそうなのですが、A1セルの値を自動的にシート名にすることができずに引っかかっています。 いい方法があれば教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- excelでシートの存在を確認するには．．．
Sheet1のB2から下のセルにaaa1,aa2,aa3．．．と入力されていたとします。 そのセルの文字列の名前が同じエクセルのワークシート名として、存在するかどうかをC2から下に「OK」、「NG」と記載できるようなマクロを検討しています。 わかる方いらっしゃいますか？
- 締切済み
- オフィス系ソフト
- マクロ【シート名に対応した文字を挿入・置換】
マクロ【シート名に対応した文字を挿入・置換】 御世話になります。 【D:\test】内に２つのエクセルファイル（Excel2003）があります。 ※１つ目のファイル名は【季節別表.xls】。 中には一番左端のシート名は【起動シート】で、その横は【spring】【summer】【autumn】【winter】という名前のシートが あり、すべてのシートにはサンプルの表がある。 ※２つ目のファイル名は【データシート.xls】。 中にはシート名【2008】のみが存在。 シート内には下記のような文字を入力している。 セルB2：シート名 セルC2：季節名 セルD2：気候 セルB3：spring セルC3：春 セルD3：暖かい セルB4：summer セルC4：夏 セルD4：熱い セルB5：autumn セルC5：秋 セルD5：涼しい セルB6：winter セルC6：冬 セルD6：寒い B2・C2・D2はシートの列が何の項目であるかがわかるために入力。 B3～6は【季節別表.xls】に存在するシート名を縦に入力。 悩んでいるのは【季節別表.xls】のシート名【起動シート】内にあるマクロボタンに入れるマクロです。 理想の処理の流れですが、 【データシート.xls】のセルB3のspringというシート名が【季節別表.xls】にあればそのシートに セルB3の右隣であるセルC3の文字列【春】を取得し、【季節別表.xls】のシート名【spring】のセルD35の文字列である 【今年の季節名は入学シーズンである。】の【季節名】と置換。 また、セルC3の右隣であるセルD3の文字列【暖かい】を取得し、 【季節別表.xls】のシート名【spring】のセルF70の文字列である【気候は気候状況。】の文字列【気候状況】と置換。 この処理が終わったら、今度は次の行を同じような処理を続け、最終的にはB列が空行になるまで続けられるマクロは 可能でしょうか？ 何か簡単なサンプルコードがあれば助かります。 宜しくお願い致します。
- 締切済み
- Visual Basic
- Excelのマクロを使用して以下の内容をしたいのですがどのようにすれば
Excelのマクロを使用して以下の内容をしたいのですがどのようにすれば宜しいでしょうか？ １）「Ｓｈｅｅｔ１」のセルの値が＞２(２より大きい)の場合に「Ｓｈｅet２」の同一のセルの色を例えば赤色にする。 これをＡ１～Ｎ３４までのセルに関して連続で実行したい。 ２）「Ｘ」というファイルのＳｈｅｅｔ１ Ａ１からＮ３４セルに同一のフォルダーに入っている、他のファイルの同セルに値が記載されていれば、その値をコピーしたい。 フォルダーに次々とファイルが追加されていくことを想定し、できれば他のファイル名は指定しなくてもどんどんコピーできるマクロがあればいいと思うのですが・・・ すみませんが宜しくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルでシート名をセル参照するマクロ
いつもお世話になっております。 ワークシートをコピーする際、 B1セルの値を複製したシート名にするマクロを と思ってやってみましたが、 Sub Macro1() ' ' Macro1 Macro Sheets("0000").Select Application.CutCopyMode = False Sheets("0000").Copy Before:=Sheets(3) Range("B1").Select Selection.Copy Sheets("0000 (2)").Select Sheets("0000 (2)").Name = "0524" Range("B1").Select End Sub 5行目でB1セルをコピーしましたが、 シート名として命名されたのは、 "0524"という固定の値でした。 （そのときのB1セルの値です） このB1セルは日付データなのですが、 マクロを実行する日によって、 翌日だったり、3日後だったりします。 （営業日ベースなので） どのようにしたら、B1セルの値を シート名に使用できるでしょうか よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelマクロでエクセルファイルのファイル名を変更して保存、他
Excel97のマクロを使用して以下の作業を実施したいのですが どなたかご教示お願い致します。 1.フォルダ内の複数ファイルから任意の一つのファイルAを開き、そのファイルA内の任意のセル(1A)の文字列をファイル名にして保存する。 2.あるファイルBを開き、ファイルB内のあるセル(1A)の"文字列が含まれるフォルダ"を検索してそのフォルダ内に保存する。 3.あるフォルダ(\1)内のあるファイルCを開き所要の作業を実施し閉じたあと、そのファイルCを別のフォルダ(\2)へ移動する。 4.あるフォルダ(\3)内のファイルDを開き、ファイルDのファイル名と同じ文字列を含むフォルダ(\4)を検索し、そのフォルダ(\4)内から、 ファイルD内のあるセル(1A)の文字列と同じファイル名のファイルEを検索して開く。 いくつも質問して真に厚かましいですが 解る物だけでも結構ですので 何卒、宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- 複数のエクセルファイルを１つのエクセルファイルのシートにコピーをマクロ
複数のエクセルファイルを１つのエクセルファイルのシートにコピーをマクロで行いたい。 マイドキュメントのデーターというフォルダ内に エクセルファイルＡ（シート名みかん） エクセルファイルＢ（シート名りんご） エクセルファイルＣ（シート名バナナ） エクセルファイルＤ（シート名ぶどう） エクセルファイルＥ（シート名いちご） があります。 雛形は同じです。すべてＡ列～Ｆ列までデータが入っています。 行数はファイルによって違います。 また毎日自動で上書き更新され、毎日行数が変わります。 エクセルファイルＺがあります。シートが７個あります。 ・変換 ・集計 ・みかん ・りんご ・バナナ ・ぶどう ・いちご エクセルファイルＺを開きます。（各シートには昨日のデータが貼り付けてあります。） マイドキュメントのデーターフォルダも開いておきます。 エクセルファイルＺにおいて「マクロの記録」を起動。 エクセルファイルＺの 【みかん】～【いちご】までの５シートを全データＤＥＬＥＴＥします。 開いてあるフォルダ「データー」の中からエクセルファイルＡを開きます。 （タスクバーにいます） ファイルＡのシート【みかん】の全データ選択して エクセルファイルＺの【みかん】というシートのＡ１セルにカーソルを あわせて貼り付けします。 開いてあるフォルダ「データー」の中からエクセルファイルＢを開きます。 （タスクバーにいます） ファイルＢのシート【りんご】の全データ選択して エクセルファイルＺの【りんご】というシートのＡ１セルにカーソルを あわせて貼り付けします。 これと同じ操作を【バナナ】【ぶどう】【いちご】も行います。 エクセルファイルＺにおいて「マクロの記録」を終了させます。 マクロができあがりました。 ファイルＺを上書き保存して終了。再立ち上げで記録したマクロを実行。 エラーにはなりませんが、ファイルＺの５種類各シートに ファイルＡ～Ｅのデータが貼りつきません。 何か無理な事をしているのでしょうか？ もしかしてシート名が同じだと駄目？とためしにファイルＺのシート名【みかん】～【いちご】を 【みかんＺ】～【いちごＺ】に変更してマクロを再記録しても 駄目でした。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フォルダ内全ファイルをシート毎に貼付方法について
VBA仙人様ご教授お願い致します。 １フォルダに数十のログファイル（.txt)が格納されています。 1ファイルは３～５万行記述あります。 これを１つのExcelファイルにしたいと思っています。 VBA流れとして (1)ログ格納フォルダを選択 (2)ログファイル名を取得 (3)既存Excelファイルに(2)で取得したファイル名（.txt除いた）で順次シートを追加 (4)ログファイル＝シートとなるようにファイル読み込み/貼り付け (5)ログファイルを閉じる VBAイメージ 格納フォルダ：C:\test \test内 ：A001.txt,A002.txt,B003.txt・・・・・・・・Z051.txt（このフォルダにはログのみ格納） C:デスクトップ\集計マクロ.excel (VBAの記述のあるExcelシートにはSheet1のみが存在) VBA前 集計マクロ.excel/Sheet1 VBA実行後 集計マクロ.excel/Sheet1,A001,A002,B003,D004・・・・・・・・・Z051が追加、シート毎にログ情報記載 単一ファイルの読み込み/ファイル名をシート名に付与/情報コピペ/ファイル閉じについては、 作成できたのですが、複数ファイルの場合のファイル名を順次取得し、シート名として付与するなど objやValiant変数などで試行錯誤しましたが解決できず、こちらに質問されていただきました＞＜ このVBAで作成されたシートからの集計マクロについては完成していますが、 その手前でつまづいています＞＜ ご教授のほどお願い致します＞＜
- ベストアンサー
- Visual Basic
- エクセルのセルの値をシート名にするマクロ
エクセルで、例えばＢ２セルに入力された数字を使って自動でシート名にしたいのですが、（＝そのセルの値が変更されたときに 自動的に シート名が変更されるマクロ ）どうやったらよいのか良くわかりません。また、重複するシート名があった場合にはアラートを表示させたいです。 例： １．Ｂ２セルに１０と入力する ２．もしシート名に重複が無ければ、シート名が自動的に「１０月」になり、アクティブセルはＢ２に戻って復帰する。 ３．重複がある場合は「シート名に重複があります」等のアラートを表示して終了する 多分 イベントとかいうものが絡んでくるのでしょうが、マクロは時々使うのですが、いつも記録したものを手直しする程度なので、標準モジュールの部分しか触った事がありません。 どなたか教えてください。お願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 悩んでいたことがこんなにも簡単にシンプルなマクロで表現できるとは、勉強になりました。