エクセルのマクロについて質問があります。 ①デスクトップに注文書.xlsがあり、 D列に商品名があり

エクセルのマクロについて質問があります。
①デスクトップに注文書.xlsがあり、
D列に商品名があります。
F列には枚数があります。

②デスクトップに″検査表″フォルダーがあり、
注文書.xlsと同じ商品名の.xlsがあります。

③下記のマクロから追加で両面印刷は可能でしょうか？

Sub Sample()
Dim フォルダー名 As String
Dim ファイル名 As String
Dim 行 As Long
Dim 終 As Long
フォルダー名 = ThisWorkbook.Path &"\検査表\"終 = Cells(Rows.Count, 4).End(xlUp).Row
For 行 = 2 To 終
If Cells(行, 5).Value = ""Then
ファイル名 = フォルダー名 &Cells(行, 4).Value &".xlsx"If Dir(ファイル名) = ""Then
Cells(行, 5).Value = "対象無"Else
Workbooks.Open Filename:=ファイル名
ActiveWindow.SelectedSheets.PrintOut
ActiveWindow.Close
Cells(行, 5).Value = Now
End If
End If
Next

お力を貸して下さい。お願い致します

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2019/11/23 18:30

ググっただけですけど。

https://answers.microsoft.com/ja-jp/msoffice/for …

No.2 回答者： yomyom01 回答日時： 2019/11/24 01:34

マルチすんな