| Код |
|---|
Private Sub CommandButton1_Click()
Dim v1 As String, v2 As String
Dim n As Integer
n = Range("O1").Value
'for 1 to n
'1
v1 = Range("R3").Value 'ПОМЕНЯТЬ
v2 = Range("S3").Value 'ПОМЕНЯТЬ
Workbooks.Open Filename:=v1
Workbooks(v2).Worksheets("Specification").Range("B3").Copy
Workbooks("КП разработать.xlsm").Activate
ActiveWorkbook.Worksheets("Таблица").Range("O3").Select 'ПОМЕНЯТЬ
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:=v1
Workbooks(v2).Worksheets("Specification").Range("B4").Copy
Workbooks("КП разработать.xlsm").Activate
ActiveWorkbook.Worksheets("Таблица").Range("P3").Select 'ПОМЕНЯТЬ
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(v2).Close
End Sub
|
цикл для того что бы независимо от количества строчек он продолжил перенос данных
v1 - это путь к файлу (находится в столбце R начиная с 3 строчки)
v2 - это название файла (находится в столбце S начиная с 3 строчки)
13 строчка - вставляет 1-ое значение в столбце O начиная с 3 строчки
19 строчка - вставляет 2-ое значение в столбце P начиная с 3 строчки
вооот. Помогите если поняли, если не поняли то спросите)
