[原创]轻松实现EXCEL自动跨工作簿取数

yujxgood

[原创]轻松实现EXCEL自动跨工作簿取数

首先要保证引用的工作簿文件存在。

二要知道引用的工作簿文件的路径。

然后编辑以下宏。就会在工作表激活是自动引用。

100%。OK。

Private Sub Worksheet_Activate()

mulu = InputBox("请输入引用文件路径", "询问对话框", "C:\Documents and Settings\Administrator\桌面\")
    FILE_NAME = Workbooks("怎样实现跨簿取数？.xls").Sheets("sheet1").Range("b1").Value + ".XLS"
    FILE_NAME1 = mulu + FILE_NAME
 
    k = InputBox(FILE_NAME & "是否已经打开？", "询问对话框", "Y")
       If k <> "Y" Then
    Workbooks.Open Filename:=FILE_NAME1
    End If
For i = 1 To 3
    For j = 2 To 4
    Workbooks("怎样实现跨簿取数？.xls").Sheets("sheet1").Cells(j, i).Value = Workbooks(FILE_NAME).Sheets("sheet1").Cells(j, i).Value

Next j
Next i

Workbooks(FILE_NAME).Activate
ActiveWorkbook.Close
Workbooks("怎样实现跨簿取数？.xls").Activate
Range("b1").Select
End Sub

troymuma

试一下谢谢

taigu_up

LZ能否再详细点？

偶是菜鸟。。。

呵呵。。

peter.lam

如何操作?谢谢!

pyg960

楼主给搞个样表看看和什么操作方法?

[此贴子已经被作者于2007-11-30 8:54:10编辑过]