| Код |
|---|
Function Get_Value_From_Close_Book(sWb As String, sShName As String, sAddress As String) Dim vData, objCloseBook As Object Set objCloseBook = GetObject(sWb) vData = objCloseBook.Sheets(sShName).Range(sAddress).Value objCloseBook.Close False Set objCloseBook = Nothing Get_Value_From_Close_Book = vData End Function |
=Get_Value_From_Close_Book("F:\101006649.csv";"101006649";"J2")
, меняю только с J2 до J12 с шагом 1.
В следующих строках аналогично с D3 по N3, меняется только название файла и листа источника.
Могу получить номер строки методом NRow = Application.ThisCell.Row
Хотел бы одним вызовом заполнить всю строку.
Пробовал разные методы напр
| Код |
|---|
objCloseBook.Sheets(sShName).Range("J2:J12").Copy Destination:=vData.Range("D2:N2") |
| Код |
|---|
Range("J2:J12").Copy Destination:=Range("D" & RowNum & ":N" & RowNum) |
| Код |
|---|
vData.Range("D2:N2") = Application.Transpose(objCloseBook.Sheets(sShName).Range("J2:J12"))
|
Изменено: - 01.12.2024 13:13:50
