• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] xls文档损坏 [复制链接]

1#
我想将桌面的一个xls文档第一列的100行复制到第2列,代码如下,然后每次运行完会产生一个新的xls文档并且显示损坏
Dim a
a = 1
Call Plugin.Office.OpenXls("C:\Users\ZD\Desktop\测试.xls")
If a < 100 Then
Text = Plugin.Office.ReadXls(1, a, 1)
Call Plugin.Office.WriteXls(1, a, 2, Text)
a = a + 1
End If
Call Plugin.Office.CloseXls()

本主题由 版主 gljxsd 于 2018/5/11 12:45:52 执行 主题分类 操作
2#

回复 1楼烈酒伏虎的帖子

注:你好 代码打开xls后只会将第一行第一列复制到第一行第二列然后就直接结束了脚本 其他方面暂未看出问题
建议试试自带例子 若仍然生成损坏文件 建议重装office

自命不凡,其实很落魄

个人QQ:1223116618
3#

顶一下

4#

谢谢回答,原因是我的文档是xlsx格式的,因此会有损坏,需要xls格式才允许;然后忘记添加for循环,谢谢解答

发新话题 回复该主题