Office中国论坛/Access中国论坛

标题: 数据引用问题 [打印本页]

作者: withsky 时间: 2006-7-8 01:54
标题: 数据引用问题
大家好：

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

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

[attach]18966[/attach]

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

作者: pureshadow 时间: 2006-7-8 05:03
文件传上来哈。。。。

作者: withsky 时间: 2006-7-10 06:14
请大家帮帮忙啊

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

作者: zhaopin616 时间: 2006-7-10 16:36
把两个表合在一个工作簿里，做个宏，复制sheet1的第一第二列到sheet2 怎末样

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

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

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

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

作者: withsky 时间: 2006-7-12 17:09
问题解决了，以下宏就可以了，真是高手啊。。。

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)