数据引用问题

withsky

大家好：

          我想请教一个问题，我有两个表book1.xls和book2.xls，现在我想把book1.xls文件中的A列和B列中的数据原样引用到book2.xls中来，怎么做，请大侠们帮帮忙啊，我很着急。谢谢

大家能不能把文件做好传上来，我对宏和VLOOKUP函数不太懂。

[此贴子已经被作者于2006-7-11 8:45:26编辑过]

pureshadow

文件传上来哈。。。。

withsky

请大家帮帮忙啊

[此贴子已经被作者于2006-7-11 8:46:26编辑过]

zhaopin616

把两个表合在一个工作簿里，做个宏，复制sheet1的第一第二列到sheet2 怎末样

pureshadow

楼主兄弟，BOOK1中的仓库名称不能都一样，电脑是只认唯一性的，可以在前面再编个号什么的，并以此来用VLOOKUP公式链到BOOK2中。

VLOOKUP设好以后，只要在BOOK2中输入仓库编号，仓库名称什么的直接下拉就OK了。

这些个东东最好放在一个表里，或者每次要更新的时候两个表都打开，否则电脑速度再不配合一点，且让人等呢[em01]

zhaopin616

人家的意思就是要把前两列复制到另外一张表上，不需要匹配什没的。我认为还是做宏，把两个表合在一个工作簿里做宏，要不然就像楼上说得每次打开都要更新！

withsky

问题解决了，以下宏就可以了，真是高手啊。。。

Private Sub Workbook_Open()
    Dim i As Integer
    Workbooks.Application.ScreenUpdating = False
   
    Workbooks.Open Filename:="e:\hb.XLS"
    'Windows("Book1").Activate
    i = 4
        
    While Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 2).Value <> ""
        Sheet1.Range("A" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 2).Value
        Sheet1.Range("B" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 3).Value
        Sheet1.Range("C" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 4).Value
        Sheet1.Range("D" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 5).Value
        Sheet1.Range("E" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 6).Value
        Sheet1.Range("F" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 23).Value
        If Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 22).Value = 0 Then
            Sheet1.Range("G" & i - 1).Value = ""
        Else
            Sheet1.Range("G" & i - 1).Value = (Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 24).Value / Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 22).Value)
        End If
        Sheet1.Range("H" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 21).Value
        Sheet1.Range("I" & i - 1).Value = Workbooks("hb.XLS").Worksheets("Sheet1").Cells(i, 22).Value
        
        i = i + 1
    Wend
   
   
    Workbooks.Application.ScreenUpdating = True
   
    Workbooks("hb.XLS").Close
   
    'Application.ScreenUpdating = False
   
    's = "='e:\[hb.XLS]sheet1'!$b$4"
   
    'Sheet1.Cells(3, 1).Formula = s
   
    'Sheet1.Range("a3").CurrentRegion.Copy
   
    'Sheet1.Range("a3").PasteSpecial xlPasteValues
   
    'Application.CutCopyMode = False
   
    'Application.ScreenUpdating = True
End Sub