Excelのマクロについて教えてください。

Question

下記のマクロを実行すると
連続して指定マクロが実行されます。
しかし、
マクロ「フォルダコピー新規」を実行した後に「戸建てファイルコピー」を実行すると
それぞれ保存先を聞いてきます。
マクロ「戸建てファイルコピー」の場合は保存先を聞いてこず、「フォルダコピー新規」で指定したフォルダ内に保存出来る方法を教えてください。
現状のマクロ
Sub 新規引き受け()
Call フォルダコピー新規
Call 戸建てファイルコピー
End Sub  
それぞれのマクロ
Sub 戸建てファイルコピー()
Const FileNewName As String = "総合引き受け（戸建て）"
Dim Destinationfolder As Variant
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "保存先フォルダを選択してください"
.InitialFileName = "\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請"
If .Show = False Then Exit Sub
Destinationfolder = .SelectedItems(1)
End With
Dim SourceFile As String
Dim Extension As Variant
For Each Extension In Array(".xlsm", ".xltm")
SourceFile = "\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\審査用フォルダ\総合引き受け（戸建て）" & Extension
Dim DestinationFile As String
DestinationFile = Destinationfolder & "" & FileNewName & Extension
On Error Resume Next
FileCopy SourceFile, DestinationFile

On Error GoTo 0
Next

End Sub
と
Sub 戸建てファイルコピー()
Const FileNewName As String = "総合引き受け（戸建て）"
Dim Destinationfolder As Variant
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "保存先フォルダを選択してください"
.InitialFileName = "\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請"
If .Show = False Then Exit Sub
Destinationfolder = .SelectedItems(1)
End With
Dim SourceFile As String
Dim Extension As Variant
For Each Extension In Array(".xlsm", ".xltm")
SourceFile = "\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\審査用フォルダ\総合引き受け（戸建て）" & Extension
Dim DestinationFile As String
DestinationFile = Destinationfolder & "" & FileNewName & Extension
On Error Resume Next
FileCopy SourceFile, DestinationFile

On Error GoTo 0
Next

End Sub
になります。
宜しくお願い致します。

Qchan1962 · Accepted Answer

すみません　中途半端なコードを加えていました
同名ファイルがあって開いている想定を外して
下の方
On Error Resume Next
Open DestinationFile For Append As #1
Close #1
If Err.Number > 0 Then
Workbooks(FileNewName & Extension).Close False
On Error GoTo 0
End If
FileCopy SourceFile, DestinationFile
On Error GoTo 0
Next
を

On Error Resume Next
                  FileCopy SourceFile, DestinationFile
                  On Error GoTo 0
            Next
に書き換えてみてください

Qchan1962 · Answer

他の回答者様がおっしゃる通りCallしないでまとめた方が無難かと

処理が合っているかはわかりませんが　とりあえず

Sub 新規引き受け()
Const originalFileAddress As String = "\審査用フォルダ\検査時必要図書（正本）"
Const copyFileAddress As String = "\審査用フォルダ\返却用（副本）"
Const SourceFileAddress As String = "\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\審査用フォルダ\総合引き受け（戸建て）"
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
                  Open DestinationFile For Append As #1
                  Close #1
                  If Err.Number > 0 Then
                        Workbooks(FileNewName & Extension).Close False
                        On Error GoTo 0
                  End If
                  FileCopy SourceFile, DestinationFile
                  On Error GoTo 0
            Next
      End If
End Sub

Qchan1962 · Answer

フォルダコピー新規のコードを教えて

fujillin · Answer

こんにちは

別ルーチンになっているので、引数で渡すかグローバルな変数で渡すかなどの方法で値を受け渡すことは可能です。
とは言っても、（分割してあることに意味があるのかないのかわかりませんけれど）普通に考えれば、他でもそのルーチンを利用している可能性があるので、下手に弄るとそちらで不具合が出かねません。

確実なのは、（長いものではないので）「展開して、ご希望の内容に纏める」ようにしてしまえば、他に影響を与えることもなく実現できるでしょう。

Excelのマクロについて教えてください。

すみません 中途半端なコードを加えていました

他の回答者様がおっしゃる通りCallしないでまとめた方が無難かと

フォルダコピー新規のコードを教えて

こんにちは

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

すみません　中途半端なコードを加えていました