|
前回の質問の後、試行錯誤しながら下記内容に至りましたが、処理済のファイルの
Closeがうまく行きません。ご指導ください。
Sub kinmu()
ChDrive ThisWorkbook.Path '同じフォルダを指定
ChDir ThisWorkbook.Path
Dim mySheet1 As String
Dim r As Range
myBook1 = 勤務Ver1.0.xls"
myBook2 = "r.Value.xls"
mySheet1 = "基礎"
'Const mypath = "決まったフォルダのフルパス" & "\"
Workbooks(myBook1).Activate
Worksheets(mySheet1).Select
Range("A1").CurrentRegion.Select 'A列(A1以下)に操作対象のエクセル名がある
With ThisWorkbook.Sheets(mySheet1)
For Each r In Selection
'For Each r In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
’これで指定はうまく行くのですが終わりの指示方法が分からなかったので For Each r Selection にした。
'MsgBox mypath & r.Value
Workbooks.Open Filename:=r.Value
Sheets(1).Copy After:=Workbooks(myBook1).ActiveSheet
Workbooks(r.Value).Close
’処理したBookはその都度Closeにしたいのだが、ここでエラーが発生します。ファイル名の指定が適切ではない様子。
Next r
End With
End Sub
上記のCloseのファイル指定の方法をよろしくお願いいたします。
|
|