Код, приведенный ниже, может быть лучшей отправной точкой, хотя, если вы читаете данные из одной книги и записываете их в другую, вы получите большую выгоду от другого набора объектов Workbook / Worksheet, то есть чтения из srcWorkbook
и srcWorksheet
и напишите в destWorkbook
и destWorksheet
, возможно.
Public Function OpenExcelFile(strFilePath As String) As Boolean
Dim myWorkbook As Excel.Workbook
Dim myWorksheet As Excel.Worksheet
Set myWorkbook = Workbooks.Open(strFilePath)
Set myWorksheet = myWorkbook.Worksheets(1)
With myWorksheet
.Range("J8").Value = "I am here"
End With
End Function
В конечном итоге нам нужно будет увидеть, что вы от него ожидаете и как вы собираетесь использовать эту функцию (если это просто Sub
?)