エクセルのマクロについて教えてください。
マクロを実行すると
コピー先のフォルダ名を検索して、条件にあったフォルダの中に指定フォルダをコピペ出来る方法を教えてください。 親切にコード共教えて頂ける方、何卒、よろしくお願いいたします。
以前からマクロについて質問すると
ここは全てを教えてくれる場所では無いとの回答を頂きますが
以前は親切に教えて頂けました
大変困ってます
誰か助けてください
コピー先のフォルダ内に色々な名前のフォルダがありますが、
フォルダ名が「○○○○○○○○-○_物件名」があります。
フォルダ名のルールとして、「物件名の前に必ず「_」半角アンダバーがあります。
物件名構成として
1.先頭に、〇の半角英数字8文字「-」半角ハイフン「_」半角アンダーバー+物件名
例えば
123454678-5_北海 太郎
又は
2.先頭に、〇の半角英数字9文字「-」半角ハイフン「_」半角アンダーバー+物件名
例えば
1234546789-6_北海 花子
物件毎にID番号が変更になりますので、「○○○○○○○○-○_」又は「○○○○○○○○○-○_」を検索して該当したフォルダ名がある場合に
コピー元のフォルダ内にある「検査時必要図書(正本)」のフォルダを
「123454678-5_北海 太郎」や「1234546789-6_北海 花子」のフォルダ内にコピーできる方法を教えてください。
コピー元のフォルダ
「\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\新フォルダ構成」に「検査時必要図書(正本)」のフォルダがあります。
コピー先のフォルダ
「\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請」の中に123454678-5_北海 太郎等があります。
マクロを一度実行をして該当フォルダにコピペされた後で、もう一度マクロを実行しても一度、コピペが完了している場合は、上書きでフォルダをコピーしないようにお願いいたします。
尚、マクロを設定しているブックは
「\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請」の中にあります。
何卒、よろしくお願いいたします。
No.5ベストアンサー
- 回答日時:
> コピー先にワイルドカードは指定できないと回答を頂きました。
> なので、この質問の内容は無理だと言う事でしょうか。
めんどくさいだけで、無理ではないと思います。
あと、バッチファイル作って xcopy するって方法もあります。
https://vbabeginner.net/execute-batch-file/
https://www.ubackup.com/jp/articles/xcopy-comman …
No.4
- 回答日時:
No.3訂正
誤)If FSO.FileExists("\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" & [フォルダ名]) Then
正)If FSO.FileExists("\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" & [フォルダ名] & "\検査時必要図書(正本)") Then
No.3
- 回答日時:
> 以前からマクロについて質問すると
> ここは全てを教えてくれる場所では無いとの回答を頂きますが
> 以前は親切に教えて頂けました
それは、あなたがいつまでも成長しようとしないことをみんなが分かってきたからです。
ちょっとでも良いのでご自身でソースコードを書いてここに提示すれば反応があると思いますよ。
●コピー先のフォルダ名を取得する方法
[フォルダ名] = Dir("\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請", vbDirectory)
Do ループで回す。
●コピー先候補のフォルダがコピペ済みかどうかの判定
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists("\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" & [フォルダ名]) Then
[コピー済み処理]
Else
[未コピー処理]
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 12:00
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルの数式で教えてください。
Excel(エクセル)
-
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
エクセル 関数
Excel(エクセル)
-
-
4
excelの数字がE+になってしまいます。 数値に変えればセルでの見え方は治ることはわかるのですが、
Excel(エクセル)
-
5
エクセルの数式で教えてください。
Excel(エクセル)
-
6
この場合に使用するエクセルの関数を教えてください。
Excel(エクセル)
-
7
Excel初心者です、教えてください。
Excel(エクセル)
-
8
エクセル 関数について
Excel(エクセル)
-
9
対応するExcelの計算式はありますか?
Excel(エクセル)
-
10
セル内の数式をVBAで書くと
Excel(エクセル)
-
11
算数、数学解りません。 足し、引き、掛け、割り算程度しか出来なくても、Excel覚えられますか?
Excel(エクセル)
-
12
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
13
Excelのデータの入力規則が薄くなって クリック出来ません。 なぜでしょうか?
Excel(エクセル)
-
14
マクロの作り方で質問です。
Excel(エクセル)
-
15
エクセル 数値の10を10月と認識するにはどうすればいいですが?
Excel(エクセル)
-
16
エクセルの数式で教えてください。
Excel(エクセル)
-
17
IF関数を使用した数字に、カンマとテキストをつけたい
Excel(エクセル)
-
18
倍数の求め方? 教えてほしい。
Excel(エクセル)
-
19
Excelの転記マクロについて、教えて下さい excelのマクロでまた悩んでいます! AAAAという
Excel(エクセル)
-
20
エクセルの数式で教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダのサムネイル画像
-
excel VBA 特定の文字列を含む...
-
excel VBA 部分一致の名前をパ...
-
元のフォルダに矢印キーで帰りたい
-
撮影後、SDカードに作成される...
-
大量のファイルのファイル名を...
-
大量のフォルダへのハイパーリ...
-
検索でフォルダのみを検索する...
-
東方紅魔郷をインストールした...
-
Win10でのスタートアップ...
-
イベントビューワの見方
-
お気に入りフォルダの名前はど...
-
外付けハードディスク内の1つ...
-
助けてください。 レポートの提...
-
スライドショーが使えないフォ...
-
エクスプローラのフォルダを一...
-
別々のPCのファイル・フォルダ...
-
種類 ファイル フォルダ (.fil...
-
USBフラッシュメモリ内のホルダ...
-
Explorerのフォルダウインドウ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダのサムネイル画像
-
【マクロ】エクセルにかいてあ...
-
C:\\Documents and Settingsが...
-
excel VBA 特定の文字列を含む...
-
元のフォルダに矢印キーで帰りたい
-
大量のフォルダへのハイパーリ...
-
撮影後、SDカードに作成される...
-
excel VBA 部分一致の名前をパ...
-
【マクロ】フォルダを3つ、PO...
-
AccessVBAで特定の文字を含むフ...
-
I386フォルダの役目とは
-
Windows11でフォルダを開いた時...
-
【マクロ】フォルダを2つのモ...
-
エクセルVBAで相対パスでフォル...
-
エクセルVBA、フォルダ選択時の...
-
お気に入りフォルダの名前はど...
-
バッチファイルの親フォルダを...
-
エクスプローラ、「上へ」でフ...
-
ディレクトリ数のみを取得する...
-
謎のフォルダ「ドネュメント」
おすすめ情報
尚
○○○○○○○○-○_物件名
○○○○○○○○○-○_物件名
の中に英数字以外は入ることはありません。
専用ソフトを使用して相手がWeb上で物件をアップすると
物件の先頭に
○○○○○○○○-○_
○○○○○○○○○-○_
が自動で割り振りされます。
何故か、「○○○○○○○○-○_」の時もあれば
「○○○○○○○○○-○_」の時もあり、その割り振りについては私ではわかりませんが、〇部分は必ず半角英数字です。
又
フォルダ「検査時必要図書(正本)」の中にはファイルやフォルダがあり。
フォルダ「検査時必要図書(正本)」ごと、○○○○○○○○-○_物件名のフォルダ直下にコピーする。イメージです
更に
フォルダ「○○○○○○○○-○_物件名」内にフォルダ「検査時必要図書(正本)」が存在している。場合はコピーが完了しているという認識でお願いします
親切に教えて頂ける方
よろしくお願いします
ご連絡ありがとうございます
はい フォルダをコピペしたいです
よろしくお願いします
回答ありがとうございます。
ご親切にありがとうございました。
先ほど同じような質問をさせて頂きましたが、
コピー先にワイルドカードは指定できないと回答を頂きました。
なので、この質問の内容は無理だと言う事でしょうか。
よろしくお願いいたします。
ご連絡ありがとうございます
はい フォルダをコピペしたいです
よろしくお願いします。