本帖最后由 pcl_test 于 2015-3-28 10:54 编辑
回复 3# 西湖深处玩泥巴
问题二- ' 2>nul &cls&@echo off
- ' 2>nul &set "f=D:\新文件夹\"
- ' 2>nul &if not exist "%f%" md "%f%"
- ' 2>nul &for /f "delims=" %%a in ('cscript -nologo -e:vbscript %~fs0') do (
- ' 2>nul &if not defined %%a set %%a=Def & copy "*%%a*.txt" "%f%" /y)
- ' 2>nul & pause &exit /b
- Set objExcel = CreateObject("Excel.Application")
- Set objWorkbooks = objExcel.Workbooks.open ("D:\a.xls",3,false)
- n = 2
- Do
- '12表示L列,1为A列、2为B列、3为C列,以此类推
- x=objExcel.Cells(n,12).Value
- wscript.echo x
- n=n+1
- Loop Until objExcel.Cells(n,12).Value = ""
- objExcel.Quit
复制代码
|