几个小问题请教高手 - 今晚脑子有点晕

xiaovba

1， workbook（"XX.xls"）.sheet1.usedrange.rows.count这个语句在workbook的括号里必须是绝对路径吗？如果用相对路径，怎么在不打开文件的情况下获取工作表的行数？比如，宏所在的文件在C:\document\test下面，我运行宏可以得到别的C:\document\file\下面的excel的行数，不用打开该excel。
2， 有没有worksheet("XX.xls"）.sheet1.usedrange.rows.count 这种语句？
3， 如果一个文件夹里有三个文件名不同的excel(假设每个excel文件都只有一张工作表），我需要获取每个excel的行数，并且在宏里保存三个文件的文件名以便后续调用，怎么写代码？ - 今晚实在是写不出来了！！！求助
4，我用workbook.open filepath打开别的文件以后，执行activesheet.XX 相关操作，发现返回的是宏所在sheet的数据，有点被activesheet和thisworkbook搞晕了，假如我的宏操作的对象都不在本工作簿，怎样让操作对象所在的工作簿成为activesheet？

万分感谢，发完这个帖子我终于可以睡觉了。

chxw68

你这些语句错误太多了，不是自己想怎样就怎样的。

蓝桥玄霜

常用写法：

1. Public r%, Arr1()
   
2. Sub lqxs()
   
3.     Dim Arr, myPath$, myName$, Myr&
   
4.     Application.ScreenUpdating = False
   
5.     myPath = ThisWorkbook.Path & "\提取工作簿里的工作表"
   
6.     myName = Dir(myPath & "*.xls")
   
7.     Do While myName <> ""
   
8.         With GetObject(myPath & myName)
   
9.             Arr = .Sheets(1).Range("A1").CurrentRegion
   
10.             r = r + 1
    
11.             ReDim Preserve Arr1(1 To 2, 1 To r)
    
12.             Arr1(1, r) = myName
    
13.             Arr1(2, r) = UBound(Arr)
    
14.             .Close False
    
15.         End With
    
16.         myName = Dir
    
17.     Loop
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    
20. 
    

复制代码

xiaovba

蓝桥玄霜 发表于 2018-9-14 10:29
常用写法：

谢谢蓝桥老师。
myname在提取文件名的时候，一次能提取几个？代码里是myName = Dir(myPath & "*.xls")，如果有多个xls也能这么写吗？

蓝桥玄霜

Do   Loop循环可以提取指定文件夹中所有xls文件

xiaovba

蓝桥玄霜 发表于 2018-9-15 09:22
Do   Loop循环可以提取指定文件夹中所有xls文件

谢谢蓝桥老师。

看你们写的代码，长进不少。正在努力学习中，看不懂的就查就问。正在自己写代码。

同样的需求不同的人写出来的代码用到的方法不同，很有意思。

还有就是，有的代码要实际run了以后才能发现问题，可能跑起来没问题得到的结果却不是想要的或有些结果之前没想到但系统跑出来不符合预期。所以一定要学会自己写代码，毕竟网友只是帮忙。