在另一個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