エクセルのマクロについて教えてください。
マクロを実行すると
コピー先のフォルダ名を検索して、条件にあったフォルダの中に指定フォルダをコピペ出来る方法を教えてください。 親切にコード共教えて頂ける方、何卒、よろしくお願いいたします。
以前からマクロについて質問すると
ここは全てを教えてくれる場所では無いとの回答を頂きますが
以前は親切に教えて頂けました
大変困ってます
誰か助けてください
コピー先のフォルダ内に色々な名前のフォルダがありますが、
フォルダ名が「○○○○○○○○-○_物件名」があります。
フォルダ名のルールとして、「物件名の前に必ず「_」半角アンダバーがあります。
物件名構成として
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(エクセル)
-
[大至急!]ExcelSheetFreeの使い方がわかりません
Excel(エクセル)
-
-
4
2013Excel保存済みファイルグレーアウト Excelを開こうとするとメニュー以外全てグレーにな
Excel(エクセル)
-
5
勤怠表エクセル関数について
Excel(エクセル)
-
6
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
7
エクセルの数式で教えてください。
Excel(エクセル)
-
8
この場合に使用するエクセルの関数を教えてください。
Excel(エクセル)
-
9
エクセル 関数
Excel(エクセル)
-
10
excelの数字がE+になってしまいます。 数値に変えればセルでの見え方は治ることはわかるのですが、
Excel(エクセル)
-
11
2つのシートを連動させたいです
Excel(エクセル)
-
12
エクセルのプルダウンリストについて
Excel(エクセル)
-
13
Excel2013を使用 指定した範囲から完全一致した名前を返したい
Excel(エクセル)
-
14
Excel初心者です、教えてください。
Excel(エクセル)
-
15
算数、数学解りません。 足し、引き、掛け、割り算程度しか出来なくても、Excel覚えられますか?
Excel(エクセル)
-
16
対応するExcelの計算式はありますか?
Excel(エクセル)
-
17
セル内の数式をVBAで書くと
Excel(エクセル)
-
18
エクセル 関数について
Excel(エクセル)
-
19
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
20
マクロの作り方で質問です。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダのサムネイル画像
-
【マクロ】エクセルにかいてあ...
-
excel VBA 特定の文字列を含む...
-
撮影後、SDカードに作成される...
-
Windows11です。フォルダ内にあ...
-
I386フォルダの役目とは
-
エクセルVBA、フォルダ選択時の...
-
フォルダについて。
-
iTunes
-
C:\\Documents and Settingsが...
-
お気に入りに追加したのに表示...
-
ファイルサーバ内のファイルの...
-
フォルダ名とパス名の違うフォ...
-
Excel-VBA エクセル-VBA初心者...
-
AccessVBAで特定の文字を含むフ...
-
謎のフォルダ「ドネュメント」
-
大量のフォルダへのハイパーリ...
-
PCで、FF11のマクロデータを移...
-
Thunderbird 振り分けされなく...
-
MODE関数を文字でできる関数は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダのサムネイル画像
-
C:\\Documents and Settingsが...
-
撮影後、SDカードに作成される...
-
元のフォルダに矢印キーで帰りたい
-
大量のフォルダへのハイパーリ...
-
お気に入りフォルダの名前はど...
-
Windows11でフォルダを開いた時...
-
excel VBA 特定の文字列を含む...
-
excel VBA 部分一致の名前をパ...
-
お気に入りに追加したのに表示...
-
バッチファイルの親フォルダを...
-
I386フォルダの役目とは
-
【マクロ】フォルダを2つのモ...
-
Window10ショートカットキーで...
-
エクセルVBA、フォルダ選択時の...
-
エクセルVBAで相対パスでフォル...
-
謎のフォルダ「ドネュメント」
-
写真や動画を保存する、これら...
-
共有フォルダの共有権限の移行...
-
【マクロ】フォルダを3つ、PO...
おすすめ情報
尚
○○○○○○○○-○_物件名
○○○○○○○○○-○_物件名
の中に英数字以外は入ることはありません。
専用ソフトを使用して相手がWeb上で物件をアップすると
物件の先頭に
○○○○○○○○-○_
○○○○○○○○○-○_
が自動で割り振りされます。
何故か、「○○○○○○○○-○_」の時もあれば
「○○○○○○○○○-○_」の時もあり、その割り振りについては私ではわかりませんが、〇部分は必ず半角英数字です。
又
フォルダ「検査時必要図書(正本)」の中にはファイルやフォルダがあり。
フォルダ「検査時必要図書(正本)」ごと、○○○○○○○○-○_物件名のフォルダ直下にコピーする。イメージです
更に
フォルダ「○○○○○○○○-○_物件名」内にフォルダ「検査時必要図書(正本)」が存在している。場合はコピーが完了しているという認識でお願いします
親切に教えて頂ける方
よろしくお願いします
ご連絡ありがとうございます
はい フォルダをコピペしたいです
よろしくお願いします
回答ありがとうございます。
ご親切にありがとうございました。
先ほど同じような質問をさせて頂きましたが、
コピー先にワイルドカードは指定できないと回答を頂きました。
なので、この質問の内容は無理だと言う事でしょうか。
よろしくお願いいたします。
ご連絡ありがとうございます
はい フォルダをコピペしたいです
よろしくお願いします。