写出excel表格全为文本格式数据模块,证件号不科学计数

sw3425369

超级列表框导出文本型.zip (2.81 KB, 下载次数: 42)

2022-1-12 17:04 上传

点击文件名下载附件
知道了解决办法给大家分享下

sw3425369

  

子程序名	返回值类型	公开	备 注
超级列表框_Excel	逻辑型		把超级列表框内容导出为Excel表格文件，成功返回真，失败返回假。注：只能导出报表列表框。全文本格式,身份证不变形
参数名	类 型	参考	可空	数组	备 注
列表句柄	整数型				需要导出内容的超级列表框句柄，如果此列表框行数和列数都小于1，则不会执行导出操作。
保存文件	文本型				保存到目标文件，后缀名一般为“xls”。注：如果文件已存在则会重写改文件，如果不能打开文件则返回假。
保留表头	逻辑型				是否把超级列表框表头一起导出到表格文件，如果不需要导出表头，请留空此值或者赋值“假”。

变量名	类 型	静态	数组	备 注
Excel	整数型
Header	整数型
列数	整数型
行数	整数型
列索引	整数型
表项索引	整数型
LVCOLUMN	LVCOLUMN
LVITEM	LVITEM
Pointer	整数型

Header ＝ SendMessage (列表句柄, 4127, 0, 0)
列数 ＝ SendMessage (Header, 4608, 0, 0)
行数 ＝ SendMessage (列表句柄, 4100, 0, 0)
如果真 (行数 ＜ 1 且 列数 ＜ 1)  ' 全无内容，别浪费磁盘空间
返回 (假)
Excel ＝ 打开文件 (保存文件, #重写, #无限制 )
' 本源码来自易语言资源网([url]www.eyuyan.la[/url])
如果真 (Excel ＝ 0)
返回 (假)
移到文件首 (Excel)
写文本行 (Excel, #Table_头部 )
如果真 (保留表头 ＝ 真 且 列数 ＞ 0)
写文本行 (Excel, “  <tr>”)
列索引 ＝ 0
计次循环首 (列数, )
LVCOLUMN.mask ＝ 4
LVCOLUMN.cchTextMax ＝ 260
LVCOLUMN.pszText ＝ 取空白文本 (260)
Pointer ＝ GetPt_LVCOLUMN (LVCOLUMN, LVCOLUMN, 0)
如果真 (SendMessage (列表句柄, 4121, 列索引, Pointer) ＝ 0)  ' 取标题失败
关闭文件 (Excel)
返回 (假)
写文本行 (Excel, “    <th class=” ＋ #引号 ＋ “xl65” ＋ #引号 ＋ “  x:str>” ＋ LVCOLUMN.pszText ＋ “</th>”)
列索引 ＝ 列索引 ＋ 1
计次循环尾 ()
写文本行 (Excel, “  </tr>”)
如果真 (行数 ＞ 0)
' 本源码来自易语言资源网([url]www.eyuyan.la[/url])
表项索引 ＝ 0
计次循环首 (行数, )
写文本行 (Excel, “  <tr>”)
列索引 ＝ 0
计次循环首 (列数, )
LVITEM.mask ＝ 1
LVITEM.iItem ＝ 表项索引  ' 项目
LVITEM.iSubItem ＝ 列索引  ' 子项目
LVITEM.cchTextMax ＝ 260
LVITEM.pszText ＝ 取空白文本 (260)
Pointer ＝ GetPt_LVITEM (LVITEM, LVITEM, 0)
如果真 (SendMessage (列表句柄, 4101, 0, Pointer) ＝ 0)  ' 取标题失败
关闭文件 (Excel)
返回 (假)
写文本行 (Excel, “    <td class=” ＋ #引号 ＋ “xl68” ＋ #引号 ＋ “ x:str>” ＋ LVITEM.pszText ＋ “</td>”)
列索引 ＝ 列索引 ＋ 1
计次循环尾 ()
' 本源码来自易语言资源网([url]www.eyuyan.la[/url])
写文本行 (Excel, “  </tr>”)
表项索引 ＝ 表项索引 ＋ 1
计次循环尾 ()
写文本行 (Excel, #Table_尾部 )
关闭文件 (Excel)
返回 (真)

.版本 2<br /> <br /> .版本 2<br /> <br /> .子程序 超级列表框_Excel, 逻辑型, 公开, 把超级列表框内容导出为Excel表格文件，成功返回真，失败返回假。注：只能导出报表列表框。全文本格式,身份证不变形<br /> .参数 列表句柄, 整数型, , 需要导出内容的超级列表框句柄，如果此列表框行数和列数都小于1，则不会执行导出操作。<br /> .参数 保存文件, 文本型, , 保存到目标文件，后缀名一般为“xls”。注：如果文件已存在则会重写改文件，如果不能打开文件则返回假。<br /> .参数 保留表头, 逻辑型, , 是否把超级列表框表头一起导出到表格文件，如果不需要导出表头，请留空此值或者赋值“假”。<br /> .局部变量 Excel, 整数型<br /> .局部变量 Header, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 列索引, 整数型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 LVCOLUMN, LVCOLUMN<br /> .局部变量 LVITEM, LVITEM<br /> .局部变量 Pointer, 整数型<br /> <br /> Header ＝ SendMessage (列表句柄, 4127, 0, 0)<br /> 列数 ＝ SendMessage (Header, 4608, 0, 0)<br /> 行数 ＝ SendMessage (列表句柄, 4100, 0, 0)<br /> .如果真 (行数 ＜ 1 且 列数 ＜ 1)  ' 全无内容，别浪费磁盘空间<br />     返回 (假)<br /> .如果真结束<br /> Excel ＝ 打开文件 (保存文件, #重写, #无限制)<br /> ' 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br /> .如果真 (Excel ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 移到文件首 (Excel)<br /> 写文本行 (Excel, #Table_头部)<br /> .如果真 (保留表头 ＝ 真 且 列数 ＞ 0)<br />     写文本行 (Excel, “  <tr>”)<br />     列索引 ＝ 0<br />     .计次循环首 (列数, )<br />         LVCOLUMN.mask ＝ 4<br />         LVCOLUMN.cchTextMax ＝ 260<br />         LVCOLUMN.pszText ＝ 取空白文本 (260)<br />         Pointer ＝ GetPt_LVCOLUMN (LVCOLUMN, LVCOLUMN, 0)<br />         .如果真 (SendMessage (列表句柄, 4121, 列索引, Pointer) ＝ 0)  ' 取标题失败<br />             关闭文件 (Excel)<br />             返回 (假)<br />         .如果真结束<br />         写文本行 (Excel, “    <th class=” ＋ #引号 ＋ “xl65” ＋ #引号 ＋ “  x:str>” ＋ LVCOLUMN.pszText ＋ “</th>”)<br />         列索引 ＝ 列索引 ＋ 1<br />     .计次循环尾 ()<br />     写文本行 (Excel, “  </tr>”)<br /> .如果真结束<br /> .如果真 (行数 ＞ 0)<br />     ' 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br />     表项索引 ＝ 0<br />     .计次循环首 (行数, )<br />         写文本行 (Excel, “  <tr>”)<br />         列索引 ＝ 0<br />         .计次循环首 (列数, )<br />             LVITEM.mask ＝ 1<br />             LVITEM.iItem ＝ 表项索引  ' 项目<br />             LVITEM.iSubItem ＝ 列索引  ' 子项目<br />             LVITEM.cchTextMax ＝ 260<br />             LVITEM.pszText ＝ 取空白文本 (260)<br />             Pointer ＝ GetPt_LVITEM (LVITEM, LVITEM, 0)<br />             .如果真 (SendMessage (列表句柄, 4101, 0, Pointer) ＝ 0)  ' 取标题失败<br />                 关闭文件 (Excel)<br />                 返回 (假)<br />             .如果真结束<br />             写文本行 (Excel, “    <td class=” ＋ #引号 ＋ “xl68” ＋ #引号 ＋ “ x:str>” ＋ LVITEM.pszText ＋ “</td>”)<br />             列索引 ＝ 列索引 ＋ 1<br />         .计次循环尾 ()<br />         ' 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br />         写文本行 (Excel, “  </tr>”)<br />         表项索引 ＝ 表项索引 ＋ 1<br />     .计次循环尾 ()<br /> .如果真结束<br /> 写文本行 (Excel, #Table_尾部)<br /> 关闭文件 (Excel)<br /> 返回 (真)

常量头部
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="http://www.w3.org/TR/REC-html40">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
  <meta name="ProgId" content="Excel.Sheet"/>
  <meta name="Generator" content="WPS Office ET"/>

  <style>

.xl65
        {mso-style-parent:style0;
        text-align:center;
        white-space:normal;
        font-weight:700;
        mso-font-charset:134;
        border:.5pt solid windowtext;}

.xl68
        {mso-style-parent:style0;
        mso-number-format:"\@";
        white-space:normal;
        mso-font-charset:134;
        border:.5pt solid windowtext;}
-->  </style>
  <!--[if gte mso 9]>
   <xml>
    <x:ExcelWorkbook>
     <x:ExcelWorksheets>
      <x:ExcelWorksheet>
       <x:Name>sheet0</x:Name>
       <x:WorksheetOptions>
        <x:DefaultRowHeight>270</x:DefaultRowHeight>
        <x:Selected/>
        <x:Panes>
         <x:Pane>
          <x:Number>3</x:Number>
          <x:ActiveCol>17</x:ActiveCol>
          <x:ActiveRow>1</x:ActiveRow>
          <x:RangeSelection>R2</x:RangeSelection>
         </x:Pane>
        </x:Panes>
        <x:DoNotDisplayGridlines/>
        <x:ProtectContents>False</x:ProtectContents>
        <x:ProtectObjects>False</x:ProtectObjects>
        <x:ProtectScenarios>False</x:ProtectScenarios>
        <x:PageBreakZoom>100</x:PageBreakZoom>
        <x:Print>
         <x:PaperSizeIndex>9</x:PaperSizeIndex>
        </x:Print>
       </x:WorksheetOptions>
      </x:ExcelWorksheet>
     </x:ExcelWorksheets>
     <x:ProtectStructure>False</x:ProtectStructure>
     <x:ProtectWindows>False</x:ProtectWindows>
     <x:SelectedSheets>0</x:SelectedSheets>
     <x:WindowHeight>12465</x:WindowHeight>
     <x:WindowWidth>-27136</x:WindowWidth>
    </x:ExcelWorkbook>
   </xml>
  <![endif]-->
</head>
<body link="blue" vlink="purple">
  <table width="1785" border="0" cellpadding="0" cellspacing="0" style='width:1338.75pt;border-collapse:collapse;table-layout:fixed;'>

常量尾部
</table>
</body>
</html>

lhn0925

学习一下

南絮

#在这里快速回复#1111111111111111111111111111111111111111111111111111111111

tmdgdx

感谢分享

忧伤小猫咪

感谢分享啊

67522756

不要科学记数，很讨厌

snce1ce

不要科学记数，很讨厌

shuaier

感谢分享................

huang19781029

6666666666666666666

lchhome

强烈支持楼主一下！！！！！！！！！！！

杜太郎爱吃西瓜

学习学习