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

[其他] 批处理能创建xls文件的批注吗?

批处理能创建xls文件的批注吗?
如图
我想鼠标移到200上面的时候就显示“每箱20包”
请问这个xls文件怎么用批处理来完成?

批处理估计不行,vbs可以这样:
  1. Set oExcel = CreateObject("Excel.Application")
  2. oExcel.Visible = true
  3. Set oBook = oExcel.WorkBooks.Add
  4. Set oSheet = oBook.WorkSheets.Add
  5. oExcel.Cells(1, 1) = "型号"
  6. oExcel.Cells(1, 2) = "数量"
  7. oExcel.Cells(2, 1) = "统一方便面"
  8. oExcel.Cells(2, 2) = "200"
  9. oExcel.Cells(2, 2).AddComment "每箱20包"
复制代码

TOP

回复 2# apang


    谢谢,收藏先

TOP

纯批方案示例:
  1. @echo off&rem
  2. (
  3. echo ^<html xmlns:v="urn:schemas-microsoft-com:vml"
  4. echo xmlns:o="urn:schemas-microsoft-com:office:office"
  5. echo xmlns:x="urn:schemas-microsoft-com:office:excel"^>
  6. rem 必须
  7. echo ^<table^>
  8. echo ^<th^>^<td^>^<b^>1^</b^>^</td^>^<td^>^<b^>2^</b^>^</td^>^</th^>
  9. echo ^<tr^>^<td^>^<i^>测试^</i^>^</td^>^<td^>批注A^</td^>^<td^>批注B^</td^>^</tr^>
  10. echo ^</table^>
  11. rem 正常表格
  12. echo  ^<div style='mso-element:comment-list'^>
  13. call :批注 1 1 标题1 内容1
  14. rem 批注1
  15. call :批注 1 2 标题2 内容2
  16. rem 批注2
  17. echo  ^</div^>
  18. )>test.xls
  19. start test.xls
  20. pause & exit /b
  21. :批注
  22. set /a 批注+=1
  23. (
  24. echo  ^<div style='mso-element:comment'^>
  25. echo ^<div^>^<xml^>
  26. echo  ^<v:shapetype id="_t%批注%"
  27. echo   path="m,l,21600r21600,l21600,xe"^>
  28. echo  ^<v:stroke joinstyle="miter"/^>
  29. echo  ^<v:path gradientshapeok="t" o:connecttype="rect"/^>
  30. echo  ^</v:shapetype^>^<v:shape id="_s%批注%" type="#_t%批注%" style='position:absolute;
  31. echo  margin-left:173.25pt;margin-top:1.5pt;width:96pt;height:59.25pt;z-index:%批注%;
  32. echo  visibility:hidden' fillcolor="infoBackground [80]" o:insetmode="auto"^>
  33. echo  ^<v:fill color2="infoBackground [80]"/^>
  34. echo  ^<v:shadow on="t" obscured="t"/^>
  35. echo  ^<v:path /^>
  36. echo  ^<v:textbox style='mso-direction-alt:auto'/^>
  37. echo  ^<x:ClientData ObjectType="Note"^>
  38. echo  ^<x:MoveWithCells/^>
  39. echo  ^<x:SizeWithCells/^>
  40. echo  ^<x:AutoFill^>False^</x:AutoFill^>
  41. echo  ^<x:Row^>%1^</x:Row^>
  42. echo  ^<x:Column^>%2^</x:Column^>
  43. echo  ^</x:ClientData^>
  44. echo  ^</v:shape^>^</xml^>^<span style='mso-ignore:vglayout'^>
  45. echo  ^<div v:shape="_s%批注%"^>
  46. echo  ^<font style="font-size:9.0pt;font-family:宋体;font-weight:700"^>
  47. echo;%3
  48. echo ^</font^>^<br^>
  49. echo;%4
  50. echo  ^</div^>^</span^>
  51. echo  ^</div^>
  52. )
复制代码

TOP

返回列表