不打工作薄提取数据

bb75308973

1. 
   
2. Dim n As Workbook
   
3. a = ThisWorkbook.Path & "\成績.xlsx"
   
4. Set n = GetObject(a)
   
5. b = n.Sheets("sheet1").Range("b65536").End(xlUp).Row

复制代码

上面的代码在不打开成绩表的情况下提取B列最后一个数据单元格的行号

1982zyh

没有提取数据嘛

fjmxwrs

学习学习