在另一個Excel工作簿中打開一個Excel工作簿，然后在此工作簿中填寫一個公式

Question

我有一個Excel文檔，我從該文檔中讀取了一些值，並希望將它們插入另一個Excel工作簿中。 我想在現有工作簿中打開工作簿，然后搜索特定字段並設置值。 如何打開這樣的額外工作簿？ 然后設置值？

最好的祝福

馬蒂亞斯

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