公式是导入 外部数据，也就是说数值是另外一个XLS文件里的数值
如下 ：
D1='F:\S\[600094.XLS]Sheet1'!A555
现在的问题是
A1=600094
B1=555
C1=1
如何将A1 C1和B1当成变量 放在 D1里面？
我想这样
D1='F:\S\[**A1**.XLS]Sheet**C1**'!A**B1**
得出：
D1='F:\S\[600094.XLS]Sheet1'!A555
还能正常 导入 外部数据
该如何实现 ？
请高手指点 谢谢！！
可以实现的，它需要在VBA中写一段过程，当你在前三个单元格中输入好之后，A1=600094 B1=555 C1=1 D1单元格就会自动生成公式：D1='F:\S\[600094.XLS]Sheet1'!A555
你把邮箱给我，我发个EXCEL文件给你（注意：这段代码要求你的另一个工作簿必须和我的这个EXCEL文件是在同一目录下，才可以使用），你不发给我也行，我把代码写在下面：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ro As Integer, co As Integer
ro = Target.Row
co = Target.Column
If co = 1 Or co = 2 Or co = 3 Then
If Cells(ro, 1) <> "" And Cells(ro, 2) <> "" And Cells(ro, 3) <> "" Then
Cells(ro, 4) = "='" & ThisWorkbook.Path & "\[" & Cells(ro, 1) & ".xls]sheet" & Cells(ro, 3) & "'!a" & Cells(ro, 2)
End If
End If
End Sub
你把邮箱给我，我发个EXCEL文件给你（注意：这段代码要求你的另一个工作簿必须和我的这个EXCEL文件是在同一目录下，才可以使用），你不发给我也行，我把代码写在下面：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ro As Integer, co As Integer
ro = Target.Row
co = Target.Column
If co = 1 Or co = 2 Or co = 3 Then
If Cells(ro, 1) <> "" And Cells(ro, 2) <> "" And Cells(ro, 3) <> "" Then
Cells(ro, 4) = "='" & ThisWorkbook.Path & "\[" & Cells(ro, 1) & ".xls]sheet" & Cells(ro, 3) & "'!a" & Cells(ro, 2)
End If
End If
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2007-04-17
要想变量的形式取数，只有在保证外部文件也同时打开的情况下行呀。或者就是自己写VBA公式了，这个麻烦了。不知有没有高手能以EXCEL自带公式直接获取
第2个回答 2007-04-17
sheets("sheet1").cells(1,4)=sheets("sheet1").cells(1,1)+sheets("sheet1").cells(1,2)+sheets("sheet1").cells(1,3)
