Откройте книгу Excel в другой книге Excel, а затем заполните формуляр в этой книге

Question

У меня есть документ Excel, и из этого документа я прочитал некоторое значение и хотел бы вставить их в другую книгу Excel. Я хотел бы открыть книгу в существующей книге, затем найти конкретное поле и установить значения. Как открыть такую ​​дополнительную книгу? а затем установить значения?

С наилучшими пожеланиями

Matthias

Answer 1

Предполагая, что вы знаете немного VBA, здесь является основой для начала работы.

Sub copyBetweenWorkbooks() 

    Dim wkbkA As Workbook 
    Dim wkbkB As Workbook 
    Dim copyValues As Range 
    Dim directory As String, fileName As String, i As Long, j As Long 

    Application.ScreenUpdating = False 
    directory = "c:\test\" 
    fileName = Dir(directory & "yourspreadsheet.xls") 

    Set wkbkA = ThisWorkbook 
    Set copyValues = wkbkA.Sheets({ put sheet here}).Range({put range here}) 
    Set wkbkB = Workbooks.Open(directory & fileName) 

    With wkbkB 

     'do your stuff here 

    End With 

    'close your stuff if you need to 
    Workbooks(fileName).Close 
    Application.ScreenUpdating = True 

End Sub