下記のマクロは先ほど教えて頂いたマクロで、実行をすると指定フォルダと指定ファイルをマウスで指定したフォルダ内にコピーできます。
現状では
「検査時必要図書(正本)」と「返却用(副本)」の2つのフォルダをコピペできますが、
もう一つのフォルダ「前審査」を追加して、3つのフォルダをコピペ出来る方法を教えてください。
現状のマクロ
Sub Macro1()
Const originalFileAddress As String = "\審査用フォルダ\検査時必要図書(正本)"
Const copyFileAddress As String = "\審査用フォルダ\返却用(副本)"
Const SourceFileAddress As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)"
Const FileNewName As String = "総合引き受け(戸建て)"
Dim Dst As Variant
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
Dst = .SelectedItems(1)
End With
Dim FSO As Object
Dim Adr As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Adr = ThisWorkbook.Path
If Right(Dst, 1) <> "\" Then Dst = Dst & "\"
FSO.CopyFolder Adr & originalFileAddress, Dst
FSO.CopyFolder Adr & copyFileAddress, Dst
Dim SourceFile As String
Dim Extension As Variant
If Not IsEmpty(Dst) Then
For Each Extension In Array(".xlsm", ".xltm")
SourceFile = SourceFileAddress & Extension
Dim DestinationFile As String
DestinationFile = Dst & "\" & FileNewName & Extension
On Error Resume Next
FileCopy SourceFile, DestinationFile
On Error GoTo 0
Next
End If
End Sub
以上となります。
宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
コピー元ファイルのアドレスは
Const SourceFileAddress As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)"
です。これでコピーされていると書いていますが 何処にあるファイルですか?
コピー元ファルダと同じフォルダにあるファイル?
Extension = ".xlsm"
SourceFile = SourceFileAddress & Extension
DestinationFile = Dst & FileNewName & Extension
を
Extension = ".xlsm"
SourceFile = ThisWorkbook.Path & "\審査用フォルダ\総合引き受け(戸建て)" & Extension
DestinationFile = Dst & FileNewName & Extension
として
Const SourceFileAddress As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)"
を消してください
No.2
- 回答日時:
Sub test1()
Const Folder1 As String = "\検査時必要図書(正本)"
Const Folder2 As String = "\返却用(副本)"
Const Folder3 As String = "\前審査"
Const SourceFileAddress As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)"
Const FileNewName As String = "総合引き受け(戸建て)"
Dim Dst As Variant
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "コピー先フォルダを選択"
If .Show = False Then Exit Sub
Dst = .SelectedItems(1)
End With
Dim FSO As Object
Dim Adr As String
Dim SourceFolder As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Adr = ThisWorkbook.Path & "\審査用フォルダ"
If Right(Dst, 1) <> "\" Then Dst = Dst & "\"
For Each SourceFolder In Array(Folder1, Folder2, Folder3)
If Dir(Dst & SourceFolder, vbDirectory) = "" Then
FSO.CopyFolder Adr & SourceFolder, Dst
End If
Next
Dim SourceFile As String
Dim DestinationFile As String
Dim Extension As String
Extension = ".xlsm"
SourceFile = SourceFileAddress & Extension
DestinationFile = Dst & FileNewName & Extension
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(FileNewName & Extension)
If Err.Number = 0 Then
wb.Close False
End If
On Error GoTo 0
FSO.CopyFile SourceFile, DestinationFile
Set FSO = Nothing
End Sub
各フォルダ、ファイルの存在とアクセスを確認する必要があると思いますが
No.1
- 回答日時:
こんにちは
フォルダのコピーを繰り返したいのなら・・
>FSO.CopyFolder Adr & originalFileAddress, Dst
>FSO.CopyFolder Adr & copyFileAddress, Dst
で行っているので、追加すればよいでしょう。
(変数のネーミングがイマイチ紛らわしいけれど・・)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/10/19 09:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/11/08 10:31
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Microsoft ASP エクセルのマクロについて教えてください。 1 2023/10/18 10:16
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 16:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/01/12 16:09
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2024/01/15 10:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/26 18:09
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/01/16 10:30
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Windows7
Windows 7
-
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
windowsにいてなぜwindowsxpから10になると重くなるのですか?同じアプリでも最低条件、
その他(OS)
-
-
4
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
5
iPhoneとAndroidの違いは何ですか?
Android
-
6
Windows 10のサポート期限切れとともにパソコンの 大量廃棄が予想されているのでしょうか それ
Windows 10
-
7
エクセルVBAについて
Visual Basic(VBA)
-
8
手持ちのパソコンに、Windows11を購入してインストールする予定です。もしこのパソコンが壊れて、
その他(OS)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
パソコンを初期化してオフィス製品のシリアルがわからなくなってWordとか立ち上げられません。どうすれ
Word(ワード)
-
11
VBA一覧取得 再投稿
Visual Basic(VBA)
-
12
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
13
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
14
VBAで質問があります
Visual Basic(VBA)
-
15
IEを使わないでhtmlテキストを取得したい(VB.Net)
Visual Basic(VBA)
-
16
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
17
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
18
WinSCPをフォルダに入れる方法を教えてください。
Windows 10
-
19
Mac拡張子をいじらず名前変更の方法 macOS montrayを使用しております。 Finderで
Mac OS
-
20
事務の派遣で働いています。多人数の職場です。 パソコンの社内共有フォルダ内のファイルを勝手に消したり
その他(セキュリティ)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SDカード内にたくさんの文字化...
-
フォルダは残してファイルだけ...
-
Google ドライブ ってフォルダ...
-
windows11におけるファイルの並...
-
勝手にフォルダが作成されます...
-
フォルダの中身を指す場合、な...
-
会社の共有フォルダを綺麗に整...
-
ファイルやフォルダの文字色が...
-
指定以外のファイルやフォルダ...
-
VBA、フォルダのパスに環境文字...
-
ダウンロードフォルダが二つ以...
-
パーフェクトビューワー SDカ...
-
イラストレーターで、ユーザー...
-
空フォルダの検索方法
-
Excelのマクロについて教えてく...
-
Mac特有のフォルダ類
-
USBメモリーの中のいらないファ...
-
重要フォルダを移動できないよ...
-
PC フォルダー作成 Excel
-
最下層フォルダのファイルを抽...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダは残してファイルだけ...
-
Google ドライブ ってフォルダ...
-
windows11におけるファイルの並...
-
SDカード内にたくさんの文字化...
-
勝手にフォルダが作成されます...
-
フォルダだけ削除する方法あり...
-
フォルダの中身を指す場合、な...
-
Excelのマクロについて教えてく...
-
VBA、フォルダのパスに環境文字...
-
複数フォルダのファイルを1つ...
-
パーフェクトビューワー SDカ...
-
フォルダ内の順番
-
イラストレーターで、ユーザー...
-
フォルダ内のファイル移動が出...
-
空フォルダの検索方法
-
指定以外のファイルやフォルダ...
-
エクセルVBA:毎月名前が変わる...
-
エクセルのファイルの削除禁止
-
DropBox内の移動を禁止にする方...
-
iTunesのbackupファイルが複数...
おすすめ情報
回答ありがとうございます。
私の説明が悪くて申し訳ありません。
現状のマクロを実行すると
フォルダ
1.「検査時必要図書(正本)」
2.「返却用(副本)」
ファイル
1.「総合引き受け(戸建て)」がコピー先にコピペできますが
これを
1.「検査時必要図書(正本)」
2.「返却用(副本)」
3.「前審査」
ファイル
1.「総合引き受け(戸建て)」
以上のように「前審査」フォルダをもう一つ指定フォルダ内にコピペしたいのですが。
解決方法を教えてください。
宜しくお願い致します。
回答ありがとうございます。
ご連絡が遅くなり申し訳ありません、
記者に教えて頂きました、コードを設定し、実行したところ、
エラーメッセージ「実行時エラー76 パスが見つかりません」が表示されて、コードの「FSO.CopyFile SourceFile, DestinationFile」が黄色くなっており、マクロを上手く実行できませんでした。
コピー先のフォルダには"\検査時必要図書(正本)" "\返却用(副本)" "\前審査"
はコピーされており、
ファイル「総合引き受け(戸建て).xlsm」のみがコピーできませでした。
申し訳ありません、解決方法を教えてください。
宜しくお願い致します。