[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 批处理bat复制Excel工作薄文件怎么编辑?

要求:1、自动打开“d:\aa\542.xls”这个文件,sheet1.[e2]=当前日期(日期格式为2015年5月13日)时,关闭此文件复制“542.xls”文件到e:\rb\下;2、当条件不成立时,关闭退出不复制文件。请教老师这样条件的批处理怎么写?

回复 22# 7016427
不影响,两段代码都是独立完整的,你电脑的问题是因为盗版系统有阉割,导致获取xls文件日期的混编的vbs代码无法执行

TOP

回复 21# pcl_test
我再请教老师,分别运行两段代码意思是不是:先执行第一个bat文件,执行完毕后关闭,再执行第二个bat文件吗?

TOP

回复 20# 7016427
可以肯定是你的系统问题了,wsh脚本引擎缺少或损坏

TOP

回复 19# pcl_test
测试仍然是那个错误!

TOP

本帖最后由 pcl_test 于 2015-5-17 12:32 编辑

回复 18# 7016427

改成这样试试,如果这样也不行,那就是你系统的问题了
  1. @echo off
  2. (
  3. echo;Set oExcel= CreateObject("Excel.Application"^)
  4. echo;Set oWb = oExcel.Workbooks.Open("D:\aa\542.xls"^)
  5. echo;Set oSheet = oWb.Sheets("Sheet1"^)
  6. echo;Wscript.echo oSheet.Range("E2"^).Value
  7. )>"%temp%\tmp.vbs"
  8. for /f "delims=" %%b in ('cscript -nologo "%temp%\tmp.vbs"') do set "xlsdate=%%b"
  9. echo xls表格的日期为%xlsdate%
  10. pause&exit
复制代码

TOP

[未解决] 请各位高手看看,这样的bat复制文件怎么编辑

回复 17# pcl_test
你好!执行第一段代码时,能获取系统当前日期,执行第二段代码时,提示:xls表格的日期为CScript错误:无法找到脚本"C:\DOCUME~\ADMINI~1\桌面\复制按~1.BAT”的脚本引擎“vbscript”。

TOP

本帖最后由 pcl_test 于 2015-5-17 10:17 编辑

回复 16# 7016427

分别运行下面两段代码,看看是否都能获取到日期
  1. @echo off
  2. for /f "tokens=2 delims==" %%a in ('wmic path win32_operatingsystem get LocalDateTime /value') do set "t=%%a"
  3. set "y=%t:~0,4%"
  4. set "m=%t:~4,2%"
  5. if %m:~,1% equ 0 set "m=%m:~-1%"
  6. set d=%t:~6,2%
  7. if %d:~,1% equ 0 set "m=%d:~-1%"
  8. set "getdate=%y%/%m%/%d%"
  9. echo 当前系统日期为%getdate%
  10. pause
复制代码
表格的存放路径要正确D:\aa\542.xls
  1. ' 2>nul 3>nul&@echo off&cls
  2. '&for /f "delims=" %%b in ('cscript -nologo -e:vbscript "%~fs0"') do set "xlsdate=%%b"
  3. '&echo xls表格的日期为%xlsdate%
  4. '&pause&exit
  5. Dim oExcel,oWb,oSheet
  6. Set oExcel= CreateObject("Excel.Application")
  7. Set oWb = oExcel.Workbooks.Open("D:\aa\542.xls")
  8. Set oSheet = oWb.Sheets("Sheet1")
  9. Wscript.echo oSheet.Range("E2").Value
复制代码

TOP

回复 15# pcl_test
我的电脑是xp系统,安装的是MSoffice2003版本

TOP

回复 14# 7016427
用你的文件测试也未出现任何问题,你的电脑是否安装有MSoffice
http://pan.baidu.com/s/1ntN00Lb

TOP

【未解决】 请各位高手看看,这样的bat复制文件怎么编辑

回复 13# pcl_test

请老师看看,帮我找找原因,谢谢!

TOP

回复 12# 7016427

代码就是3楼的,上传你的xls表格

TOP

回复 10# pcl_test

把你测试的代码发给我再试!

TOP

回复 10# pcl_test

你好!你是测试的哪个代码(几楼的代码)?

TOP

回复 8# 7016427

经测试,没有出现你所说的问题,上传你的xls表格,是否安装有MSoffice

TOP

返回列表