[求助]一个解决不了的小问题

Blackicer

有一个数组

FP(1)="c:\123.xls"

FP(2)="d:\e3r.xls"

c:\123.xls 和 d:\e3r.xls 两个文档内容的格式完全一样

我想先后打开这两个文档，然后取出两个文档中同一位置range（"E3")的数据，分别赋值给M(1)，M（2）

我用了这样的方法：

For i = 1 To 2   
      Open FP(i) For Input As #i

         M（i）=Workbooks(FP(i)).Sheets("Sheet1").Range("E3")

       CLOSE #i

NEXT i

结果出现提示“下标越界”。郁闷！

请各位大虾不吝赐教！

方漠

改为如下代码试试：

Dim Wb As Workbook

For i = 1 To 2
    Set Wb = Workbooks.Open(FP(i))
    M(i) = Wb.Worksheets("Sheet1").Range("E3")
    Wb.Close False
Next i



你用OPEN方法打开是无法直接在EXCEL进行引用的。（Open FP(i) For Input As #i）

Blackicer

For i = 1 To 2
    Workbooks.Open Filename:=Fp(i)
    M(i) = Sheets("Sheet1").Range("E3")   
    ActiveWindow.Close

Next
这样就通过了！谢谢楼上的帮助！

你用OPEN方法打开是无法直接在EXCEL进行引用的。（Open FP(i) For Input As #i）

这句话，提醒我了！[em17][em17][em17]