Sub look()
Dim xCount%, yCount%, a$, b$
Dim ws As Worksheet
Dim wb As Workbook
Dim mypath$, myname$
mypath = ThisWorkbook.Path & "\数据源\"
myname = Dir(mypath & "*.*")
' MsgBox myname
Application.ScreenUpdating = False
Set wb = Workbooks.Open(mypath & myname)
xCount = wb.Sheets(1).UsedRange.Rows.Count
yCount = wb.Sheets
excel VB代码
猜你喜欢
转载自blog.csdn.net/liufeifeihuawei/article/details/107783551
今日推荐
周排行