25 | L11, L12, L13, L24, L28, R173, R386A, R451, R711, L66, R3, R99, R113, R154, R156, R178, R213, R382, R374, R125, R386, R387, L29, R297, R282 |
2 | R350,R351 |
21 | R28, R29, R33, R48, R51, R54, R80, R85, R133, R135, R136, R137, R139, R140, R141, R142, R143, R146, R284, R753, R230 |
5 | R75,R102,R394,R74,R97, |
12 | R150, R170, R181, R201, R203, R205, R217, R219, R220, R223, R124, R126 |
13 | R92, R123, R130, R131, R132, R81, R83, R84, R90, R91, R433, R504, R505 |
复制代码
- @echo off&setlocal enabledelayedexpansion
- rem 先复制两列内容到a.txt
- for /f "tokens=1,2 delims=[tab]" %%a in (a.txt) do (
- set /a num+=1
- for %%c in (%%b) do set /a n+=1
- if %%a neq !n! call :lp
- set /a n=0
- )
- pause>nul&goto :eof
- :lp
- echo %num%行出错&pause>nul
复制代码
- Set ExcelApp = CreateObject("Excel.Application")
- ExcelApp.Visible = True
- Set objBook = ExcelApp.Workbooks.Open("C:\Users\Administrator\Desktop\文件列表\测试.xls")
- ExcelApp.WorkSheets(1).Activate
- rowcount =objBook.ActiveSheet.UsedRange.Rows.Count
- s=""
- For i=1 to rowcount
- d = objBook.ActiveSheet.Cells(i, 4).value
- e = UBound(split(objBook.ActiveSheet.Cells(i, 5).value, ","))+1
- If d <> e Then s=s&"第"&i&"行:D列"&d&" E列"&e&vbCrLf
- Next
- Msgbox s
- objBook.Close
- ExcelApp.Quit
欢迎光临 批处理之家 (http://www.bathome.net/) | Powered by Discuz! 7.2 |