怎么实现写出一个excel，然后把数据写进excel里呢大佬们

xdj123 · 发表于 2023-5-20 12:23:33

变量名	类型	静态	数组	备注
i	整数型
路径	文本型
文件名	文本型

路径＝浏览文件夹 (“请选择保存的位置”, )
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
文件名＝取文本左边 (到文本 (时间_到时间戳 (取现行时间 ())), 40)
写到文件 (路径＋ “\” ＋文件名＋ “.xls”, 到字节集 (“”))

如果真 (Excel工作簿1.打开 (路径＋ “\” ＋文件名＋ “.xls”) ＝假)

信息框 (“文件保存失败！”, 0, , )

返回 ()
Excel工作簿1.表格序号＝ 1
Excel工作簿1.表格名＝文件名
Excel工作簿1.首单元格＝ “A1”
Excel工作簿1.尾单元格＝ “A1”
Excel工作簿1.内容＝ “标题”
Excel工作簿1.首单元格＝ “B1”
Excel工作簿1.尾单元格＝ “B1”
Excel工作簿1.内容＝ “价格”
Excel工作簿1.首单元格＝ “C1”
Excel工作簿1.尾单元格＝ “C1”
Excel工作簿1.内容＝ “店铺名称”
Excel工作簿1.首单元格＝ “D1”
Excel工作簿1.尾单元格＝ “D1”
Excel工作簿1.内容＝ “网址”
Excel工作簿1.首单元格＝ “E1”
Excel工作簿1.尾单元格＝ “E1”
Excel工作簿1.内容＝ “付款人数”
Excel工作簿1.首单元格＝ “F1”
Excel工作簿1.尾单元格＝ “F1”
Excel工作簿1.内容＝ “关键字”

计次循环首 (取数组成员数 (Tao宝.url), i)

Excel工作簿1.表格名＝文件名

Excel工作簿1.表格序号＝ i ＋ 1

Excel工作簿1.首单元格＝ “A” ＋到文本 (i ＋ 1)

Excel工作簿1.尾单元格＝ “A” ＋到文本 (i ＋ 1)

Excel工作簿1.内容＝ Tao宝.标题 [i]

Excel工作簿1.首单元格＝ “B” ＋到文本 (i ＋ 1)

Excel工作簿1.尾单元格＝ “B” ＋到文本 (i ＋ 1)

Excel工作簿1.内容＝ Tao宝.价格 [i]

Excel工作簿1.首单元格＝ “C” ＋到文本 (i ＋ 1)

Excel工作簿1.尾单元格＝ “C” ＋到文本 (i ＋ 1)

Excel工作簿1.内容＝ Tao宝.店铺名称 [i]

Excel工作簿1.首单元格＝ “D” ＋到文本 (i ＋ 1)

Excel工作簿1.尾单元格＝ “D” ＋到文本 (i ＋ 1)

Excel工作簿1.内容＝ “https” ＋ Tao宝.url [i]

Excel工作簿1.首单元格＝ “E” ＋到文本 (i ＋ 1)

Excel工作簿1.尾单元格＝ “E” ＋到文本 (i ＋ 1)

Excel工作簿1.内容＝ Tao宝.付款人数 [i]

Excel工作簿1.首单元格＝ “F” ＋到文本 (i ＋ 1)

Excel工作簿1.尾单元格＝ “F” ＋到文本 (i ＋ 1)

Excel工作簿1.内容＝ Tao宝.关键字 [i]

调试输出 (Tao宝.关键字 [i])

计次循环尾 ()
Excel工作簿1.释放 ()
Excel程序1.释放 ()
信息框 (“保存成功！”, 0, , )

i支持库列表	支持库注释
shell	操作系统界面功能支持库
eExcel2000	EXCEL2000支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 shell<br />
.支持库 eExcel2000<br />
.支持库 spec<br />
<br />
.局部变量 i, 整数型<br />
.局部变量 路径, 文本型<br />
.局部变量 文件名, 文本型<br />
<br />
<br />
路径 ＝ 浏览文件夹 (“请选择保存的位置”, )<br />
Excel程序1.创建 ()<br />
Excel工作簿1.置程序 (Excel程序1)<br />
Excel工作簿1.激活工作簿 ()<br />
文件名 ＝ 取文本左边 (到文本 (时间_到时间戳 (取现行时间 ())), 40)<br />
写到文件 (路径 ＋ “\” ＋ 文件名 ＋ “.xls”, 到字节集 (“”))<br />
.如果真 (Excel工作簿1.打开 (路径 ＋ “\” ＋ 文件名 ＋ “.xls”) ＝ 假)<br />
    信息框 (“文件保存失败！”, 0, , )<br />
    返回 ()<br />
.如果真结束<br />
Excel工作簿1.表格序号 ＝ 1<br />
Excel工作簿1.表格名 ＝ 文件名<br />
Excel工作簿1.首单元格 ＝ “A1”<br />
Excel工作簿1.尾单元格 ＝ “A1”<br />
Excel工作簿1.内容 ＝ “标题”<br />
<br />
Excel工作簿1.首单元格 ＝ “B1”<br />
Excel工作簿1.尾单元格 ＝ “B1”<br />
Excel工作簿1.内容 ＝ “价格”<br />
<br />
Excel工作簿1.首单元格 ＝ “C1”<br />
Excel工作簿1.尾单元格 ＝ “C1”<br />
Excel工作簿1.内容 ＝ “店铺名称”<br />
<br />
Excel工作簿1.首单元格 ＝ “D1”<br />
Excel工作簿1.尾单元格 ＝ “D1”<br />
Excel工作簿1.内容 ＝ “网址”<br />
<br />
Excel工作簿1.首单元格 ＝ “E1”<br />
Excel工作簿1.尾单元格 ＝ “E1”<br />
Excel工作簿1.内容 ＝ “付款人数”<br />
Excel工作簿1.首单元格 ＝ “F1”<br />
Excel工作簿1.尾单元格 ＝ “F1”<br />
Excel工作簿1.内容 ＝ “关键字”<br />
<br />
.计次循环首 (取数组成员数 (Tao宝.url), i)<br />
    Excel工作簿1.表格名 ＝ 文件名<br />
<br />
<br />
    Excel工作簿1.表格序号 ＝ i ＋ 1<br />
    Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.内容 ＝ Tao宝.标题 <i><br />
<br />
    Excel工作簿1.首单元格 ＝ “B” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.内容 ＝ Tao宝.价格 <i><br />
<br />
    Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.内容 ＝ Tao宝.店铺名称 <i><br />
<br />
    Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.内容 ＝ “https” ＋ Tao宝.url <i><br />
<br />
    Excel工作簿1.首单元格 ＝ “E” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.内容 ＝ Tao宝.付款人数 <i><br />
    Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本 (i ＋ 1)<br />
    Excel工作簿1.内容 ＝ Tao宝.关键字 <i><br />
<br />
    调试输出 (Tao宝.关键字 <i>)<br />
<br />
.计次循环尾 ()<br />
Excel工作簿1.释放 ()<br />
Excel程序1.释放 ()<br />
<br />
信息框 (“保存成功！”, 0, , )