如何实现从另一表格检索到相应的数据，并将其写入另外一张表的选定单元格

Question

目前有两个EXCEL的表格，表格中是一些数据，如何实现从其中的一个表格检索到相应的数据，并将其写入另外一张表的相应栏目？能给一些提示也好，实在不知道该如何下手。谢谢先！ 

Answer 1

excel可以当作数据源直接读写。

Answer 2

我只会笨办法，不过不用遍历，否则效率太低，数据库地方法正在学定义
    
    Dim targetxls,readxls As Excel.Application
    Dim area(10) as range'根据你的数据多少而定首先打开excel    Set readxls = CreateObject("Excel.Application")
     
    readxls.Workbooks.Open filename:="你要读取的文件目录和文件名，支持相对目录"
    
    readxls.Visible = False'设置打开此未见是否可见，如果想可见可设为True开始查找    Set area(0) = readxls.Worksheets("要查找的sheet名称，或用数字指出第几个表").Cells.FindNext(After:=resout(2))'查找第一个内容
     
     for i=1 to 10'开始检索是否还有相关数据       set area(i)=readxls.Worksheets("要查找的sheet名称，或用数字指出第几个表).Cells.FindNext(After:=area(i - 1))     next
’area数组中保存有你要的数据的相关数据，如行area.row，列area.column，可以根据这些数据得到你要的单元格地址，之后可以用 变量名=readxls.Worksheets("要查找的sheet名称，或用数字指出第几个表).Cells（行号，列号）引用关闭文件      readxls.Quit '结束EXCEL对象 
      Set readxls = Nothing '释放readxls对象打开目标文件写入     Set tragetxls = CreateObject("Excel.Application")
     
    targetxls.Workbooks.Open filename:="你要修改的文件目录和文件名，支持相对目录"
    
    targetxls.Visible = False'设置打开此未见是否可见，如果想可见可设为True    targetxls.Worksheets("要修改的sheet名称，或用数字指出第几个表).range("要修改的单元格坐标如A1")=前面得到的变量     targetxls.save 
    targetxls.Quit '结束EXCEL对象 
     Set targetxls = Nothing '释放xlApp对象