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