- ベストアンサー
ExcelのVBAでファイルに自動的に名前を付ける方法
- ExcelのVBAを使用して、指定したフォルダ内のファイルに自動的に名前を付ける方法をご紹介します。
- VBAのプログラムを使用して、フォルダ内の各ファイルの名前を変更することができます。
- シートに書かれている一番小さい数字から大きい数字までをファイル名に付加することができます。
- みんなの回答 (2)
- 専門家の回答
関連するQ&A
- エクセルVBAでセルを名前にしてフォルダを生成
こんばんは。 セルA2 B2 C2にフォルダの名前にしたい文字や数字があり、 それをフォルダ名にすることをエクセルでしたいのですが コードを教えていただけないでしょうか? できたフォルダはデスクトップにあるようにしたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA_フォルダ内複数のExcelファイルの集約
Excel VBAに関する質問です。 特定のフォルダ内(例としてC:\folder1)の複数のExcelファイルにおける シート(例としてSheet1)内のセル範囲A2:I1000の情報をコピーし、 特定のフォルダ内に格納されたExcelファイル(例としてC:\tougou\tougou.xls)の シート(例としてTOUGOU)内のA2を起点に貼り付け処理をしたいのですが、可能でしょうか? <貼り付けイメージ> (例)特定のフォルダ内(例としてC:\folder1)のExcelファイル数が2つの場合 A2 B2 ・・・・・I2 ・ ・ ・ ・ ・ A1999・・・・・・I1999 A2~I1999の範囲にデータが集約される。 どうぞよろしくお願いいたします。
- 締切済み
- その他(業務ソフトウェア)
- エクセルVBAで 名前を付けて保存の方法、もしくは・・・
エクセルVBAで名前を付けて保存は、 SaveAsを使って・・・というのは、解っているのですが、 これだと指定した名前しか、保存できないですよね;; 自分的には、エクセルの名前を付けて保存を押すと出てくる、画面を出したいのです。 それか、とあるセルに入っている数字を利用して保存の名前にしたいのですが、どなたかわかる方宜しくお願いいたします。 (本当は下のほうのやり方が良いんですけどね;;) ActiveWorkbook.SaveAs FileName:= ("A1")"月分" 見たいな感じで VBAを打てたら良いのにな・・・と思っています;; 宜しくお願いいたします。
- ベストアンサー
- その他(ソフトウェア)
- Excel VBAの違うBOOKへのコピーについて
お世話様です excel vbaのコピーについての質問です C:\Documents and Settings\tanaka\デスクトップ\a というbookの中にあるsheet1のa1のデータ(以後a-a1と表記)を C:\Documents and Settings\tanaka\デスクトップ\b というbookの中にあるsheet2のc1にコピーしたい、と言った場合、 (以後b-c1と表記) それぞれのbookをactiveにしないとだめでしょうか (つまり、違うbookのファイル間でのコピーの際の質問なのですが) 私にはその方法しかわからず、この後 a-a11をb-d3へ、a-e11をb-s18へというアットランダムコピーが続くのですが、非常にコードも長く、時間がかかる処理になってしまいます。 どうか教えていただけると助かります 宜しくお願いします
- ベストアンサー
- その他(プログラミング・開発)
- エクセルVBAで、画像の挿入をしたいと思っています。
エクセルVBAで、画像の挿入をしたいと思っています。 シート名は左から まとめ、A、B、C、まとめ(1)、A(1)、B(1)、C(1)、まとめ(2)、A(2)、B(2)、C(2) と、あるとして、任意のフォルダの中にある画像(*.jpgが9枚)を昇順でひとつずつA、B、C、A(1)、B(1)…C(2)シート(まとめ以外のシート)の指定のセルに貼付けられないかと考えています。 画像の名前は任意で、001.jpgはA、002.jpgはB、…009.jpgはC(2)と画像は昇順に、シートは左からというルールは変わらないとして、どのようにVBAを組んでいけばよいでしょうか。 どうぞご教授お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA:毎月名前が変わるエクセルファイルを毎月異なるフォルダから開く
まず、私はマクロ初心者です。なにぶん複雑でVBAのマニュアルには載っていなかったり、マニュアルにあったとしても、私自身初心者のため応用がきかず、こちらに投稿させていただきました。 目的は在庫データの集計で、集計するためのフォーマット(ファイルA)があり、ファイルAから、とあるシステムから抽出する月度別の在庫データ(ファイルB)を、月度別のフォルダから自由にファイルを指定するVBAを作ることは可能でしょうか。 ただ、そのファイルBが少々曲者で、下記の条件があります。 *<ファイルBの条件>********************* 1.とあるシステムから抽出するデータ(ファイルB)は、自動でエクセルに変換されCドライブに保存さますが、ファイル名が、基本ファイル名、たとえば「物流在庫」の後ろに抽出年月日と時刻が「-200912021354」という風に数字で表記されてしまうため、毎月変わります。 2.Cドライブにいったん保存されたファイルBを、会社の共有パソコンへ移動させるのですが、(部門名)フォルダ→年度別フォルダ→月度別フォルダ→在庫データフォルダと複数のフォルダを経由して、最終的に在庫データフォルダの中へ移動させています。 ******************************** 担当者が変わっても誰でもこの業務ができるようにしたいので、ファイルBの名前を変える(抽出年月日+時刻部分を削除する)という作業は避けたいと思っています。 よろしくお願いいたします。
- 締切済み
- その他([技術者向] コンピューター)
- VBAで新規ファイル名
VBAであるテンプレートのファイルを開いて、ファイル名をB3セルに入力された名前で保存したいのです。まず、下にマクロを示します。 Sub 新規_試作マスタ作成() ChDir "C:\Users\H1250-201\Desktop" Workbooks.Open Filename:="C:\Users\H1250-201\Desktop\試作マスター.xlsm" ChDir "D:\A\" & Format(Date, "yyyy年") & "\" & Format(Date, "yyyy年m月") & "" ActiveWorkbook.SaveAs Filename:="D:\A\" & Format(Date, "yyyy年") & "\" & Format(Date, "yyyy年m月") & "\" & Format(Date, "yyyymmdd") & " " & ThisWorkbook.Sheet1.Range("B3").Value & " 試作.xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub Dドライブの中のAというフォルダがあり、その中に、2014年→2014年1月の順にフォルダがあります。ただし、Aの中には2013年~2020年、2014年の中には、2014年1月~2014年12月のフォルダがあるのです。そこで、今日の日付を参照してそれに応じたフォルダ分けを行い、ファイルの頭に「日付」、その後に「B3セルに入力された名前」、「試作」の順に 「日付」 「B3セルに入力された名前」 「試作」という名前で保存されるマクロを作成したいのです。 上のマクロでは、ThisWorkbook.Sheet1.Range("B3").Valueの部分がおかしくてうまく行きません。個々の部分をただ文字列として"○○"とするとうまくいきました。 つまり、マクロのある自身のファイルのセルを参照したいのです。差し支えなければご回答願います。
- ベストアンサー
- Visual Basic
- エクセル マクロ 特定のフォルダ内 ファイルコピー
エクセルのセルに入力されたフォルダを参照して、 CSVファイルを シート1・2・3・4に1度にコピーしたいのですが 例えば C\ドキュメント¥フォルダA |-フォルダB |-フォルダC |-フォルダD |-フォルダE |-フォルダ1 |-CSVファイルA |-フォルダ2 |-CSVファイルB |-フォルダ3 |-CSVファイルC |-フォルダ4 |-CSVファイルD 上記のアドレスで シート1のA1セルに フォルダEを入力し シート2に CSVファイルA シート3に CSVファイルB シート4に CSVファイルC シート5に CSVファイルD それぞれすべての内容を貼り付けたいのですが 何分初心者なもので ご指導いただければと思います。 ちなみに A1セルの入力は変わるため各シートは1度削除した上で再度貼り付けを行いたいです。
- 締切済み
- オフィス系ソフト
- エクセルVBA ファイル名操作
エクセルマクロのコードにおきまして 「フォルダの選択」ダイアログから エクセルファイル 123.xlsxを例えば 開くときに それをa.xlsxという名前に変えて 以下のそれに続くVBAコードにおいて a.xlsxを操作したいのですが、 a = Application.GetOpenFilename() Workbooks.Open a これを実行すると求めるダイアログが表示されて 使いたい123.xlsxを開くをクリックしますが これでは123.xlsxがa.xlsxにはなりません このa.xlsxのファイル名で別途ファイル作成する方法を 御教示いただけると助かります よろしくお願いします win10 office365 コードは以下 部分ですが こういう流れで作成したい所存です Sub あいう() a = Application.GetOpenFilename() Workbooks.Open a 'b.xlsxファイルを新規作成 Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\Users\USER\Desktop\あいう\b.xlsx", FileFormat:=xlXMLSpreadsheet 'a.xlsxファイルの1行目のA1~AG1のセルの値をコピー Workbooks("a.xlsx").Worksheets("Sheet1").Range("A1:AG1").Copy 'b.xlsxファイルのA3~AG3のセルに貼り付け Workbooks("b.xlsx").Worksheets("Sheet1").Range("A3:AG3").PasteSpecial xlPasteValues 以下省略 よろしくお願いします
- ベストアンサー
- Visual Basic
- 同じ名前のフォルダを作るbatファイルを教えて
フォルダ名と同じ名前のフォルダを作るbatファイルを教えてください フォルダAの中にフォルダB、フォルダC、・・・といくつかのフォルダがあります。 フォルダAの中にbatファイルを入れて実行すると、 フォルダB、フォルダC、・・・と同じフォルダをデスクトップに作る。 元々のフォルダB、フォルダC、・・・の中にあるファイルはコピーされてない。 このようなことが出来るbatファイルをお教えください。
- ベストアンサー
- その他(プログラミング・開発)
お礼
あーわかりました すごく助かりました 本当に本当にありがとうございました 長いコードをありがとうございます 大変勉強になりました