FOR 当前离线
中尉
apang 当前离线
上将
Set oExcel = CreateObject("Excel.Application") oExcel.Visible = true Set oBook = oExcel.WorkBooks.Add Set oSheet = oBook.WorkSheets.Add oExcel.Cells(1, 1) = "型号" oExcel.Cells(1, 2) = "数量" oExcel.Cells(2, 1) = "统一方便面" oExcel.Cells(2, 2) = "200" oExcel.Cells(2, 2).AddComment "每箱20包"复制代码
TOP
CrLf 当前离线
论坛巡查
@echo off&rem ( echo ^<html xmlns:v="urn:schemas-microsoft-com:vml" echo xmlns:o="urn:schemas-microsoft-com:office:office" echo xmlns:x="urn:schemas-microsoft-com:office:excel"^> rem 必须 echo ^<table^> echo ^<th^>^<td^>^<b^>1^</b^>^</td^>^<td^>^<b^>2^</b^>^</td^>^</th^> echo ^<tr^>^<td^>^<i^>测试^</i^>^</td^>^<td^>批注A^</td^>^<td^>批注B^</td^>^</tr^> echo ^</table^> rem 正常表格 echo ^<div style='mso-element:comment-list'^> call :批注 1 1 标题1 内容1 rem 批注1 call :批注 1 2 标题2 内容2 rem 批注2 echo ^</div^> )>test.xls start test.xls pause & exit /b :批注 set /a 批注+=1 ( echo ^<div style='mso-element:comment'^> echo ^<div^>^<xml^> echo ^<v:shapetype id="_t%批注%" echo path="m,l,21600r21600,l21600,xe"^> echo ^<v:stroke joinstyle="miter"/^> echo ^<v:path gradientshapeok="t" o:connecttype="rect"/^> echo ^</v:shapetype^>^<v:shape id="_s%批注%" type="#_t%批注%" style='position:absolute; echo margin-left:173.25pt;margin-top:1.5pt;width:96pt;height:59.25pt;z-index:%批注%; echo visibility:hidden' fillcolor="infoBackground [80]" o:insetmode="auto"^> echo ^<v:fill color2="infoBackground [80]"/^> echo ^<v:shadow on="t" obscured="t"/^> echo ^<v:path /^> echo ^<v:textbox style='mso-direction-alt:auto'/^> echo ^<x:ClientData ObjectType="Note"^> echo ^<x:MoveWithCells/^> echo ^<x:SizeWithCells/^> echo ^<x:AutoFill^>False^</x:AutoFill^> echo ^<x:Row^>%1^</x:Row^> echo ^<x:Column^>%2^</x:Column^> echo ^</x:ClientData^> echo ^</v:shape^>^</xml^>^<span style='mso-ignore:vglayout'^> echo ^<div v:shape="_s%批注%"^> echo ^<font style="font-size:9.0pt;font-family:宋体;font-weight:700"^> echo;%3 echo ^</font^>^<br^> echo;%4 echo ^</div^>^</span^> echo ^</div^> )复制代码
发表于 2014-5-8 16:50
| 
发表于 2014-5-13 17:50
|