- 帖子
- 49
- 积分
- 98
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2010-5-24
|
回复 2# cutebe
这个倒是可以实现,但是我的数据比较多有7-8千行 这样处理起来太慢,经常卡死。能不能用下面的修改一个呢
dim Path, FSO, EXCEL, Book, Arr, Str,objExcel
Path = CreateObject("Wscript.Shell").CurrentDirectory & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Arr = Split(Str, vbCrLf)
Set FSO = Nothing
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(Path & "8.xls")
objExcel.WorkSheets(1).Activate
Set c = objExcel.Range("b:b").Find("早班", , , 1)
If Not c Is Nothing Then MsgBox c.Row
objWorkbook.Close
objExcel.Quit
这个可以找到第一个早班行号
但是下面要引用到行号 我不会 请教高手 |
|