|
シート名がわからないので、左から1番目を対象としてます。
なんとなく解りやすそうにしてみました。
Sub ファイルを開く()
Dim OpenFileName As String,OpFNam As string
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName = "False" Then
Exit Sub
End If
Workbooks.Open OpenFileName
OpFNam = ActiveWorkbook.Name
Workbooks(OpFNam).Sheets(1).Range("B2:F6").Copy
Workbooks("書き込みデータ.xls").Sheets(1).Range("B3").PasteSpecial
Workbooks(OpFNam).Sheets(1).Range("B9:F13").Copy
Workbooks("書き込みデータ.xls").Sheets(1).Range("B9").PasteSpecial
Workbooks("書き込みデータ.xls").Save
End Sub
|
|