主题：请教：DBF导出到XLS 的列宽问题
coffeenight
[专家分：230] 发布于 2010-04-21 13:07:00
朋友们好
我用 copy to aa type xl5 将dbf表导出到xls表里，打开xls表 ,发现列宽不合适,要重新设置最合适列宽
请问，有没有办法通过代码自定义最合适列宽？
谢谢！
最后更新于：2010-04-21 17:54:00
回复列表 （共14个回复）
沙发
dbfox [专家分：490] 发布于 2010-04-21 18:27:00
这是论坛里一位老前辈曾经发过的贴子，我把它保留下来了，现在给你参考，有这个贴子，你的一切问题搞定... ...
这是一段完整的代码,你可以把它做成一个菜单项,在打开数据表后运行这个菜单,就会自动为你生成一个EXCEL文件.
别忘了给我评分.
板凳
coffeenight [专家分：230] 发布于 2010-04-21 18:50:00
谢谢，您说的是高老师吧
他对我的帮助非常大，很想念他
他走了，是论坛莫大的损失
希望他会回来
3 楼
moz [专家分：37620] 发布于 2010-04-21 19:47:00
Worksheets("Sheet1").Columns("A:I").AutoFit
4 楼
coffeenight [专家分：230] 发布于 2010-04-21 21:50:00
Worksheets("Sheet1").Columns("A:I").AutoFit
看不懂。。。不知道怎么用
另外，那个过程怎么才能让它自动保存XLS，而不要打开啊？
5 楼
moz [专家分：37620] 发布于 2010-04-21 23:13:00
copy to aa type xl5
try
xls1=GETOBJECT(,"excel.application")
catch
xls1=createobject("excel.application")
endtry
xls2=xls1.Workbooks.Open(FULLPATH("aa.xls"))
xls2.Sheets(1).Columns.AutoFit
xls2.save
xls1.quit
6 楼
liupeisong [专家分：2340] 发布于 2010-04-21 23:14:00
[quote]Worksheets("Sheet1").Columns("A:I").AutoFit
看不懂。。。不知道怎么用
另外，那个过程怎么才能让它自动保存XLS，而不要打开啊？[/quote]
晕！给你一段完整的代码吧，还有不明白的自己去GOOGLE搜一下“vfp 操作 excel”或者参考如下网页
http://topic.csdn.net/t/20061016/18/5086370.html
代码如下：
CLOSE ALL
USE bmddmk
COPY TO bmd XLS
CLOSE ALL
XLApp = createobject("Excel.Application")
XLApp.Workbooks.Open("C:\Users\lps\Desktop\test\bmd.xls")
XLApp.Worksheets("bmd").Columns("A:I").AutoFit
XLApp.Workbooks.close
XLApp.quit
7 楼
moz [专家分：37620] 发布于 2010-04-21 23:15:00
[color=FFFFFF]唉，不知道该说什么，罢罢罢，收声。[/color]
8 楼
moz [专家分：37620] 发布于 2010-04-21 23:18:00
[color=FFFFFF]哦，不好意思，liupeisong别介意。[/color]
9 楼
moz [专家分：37620] 发布于 2010-04-21 23:19:00
唉，说一句错一句，全删了。
10 楼
liupeisong [专家分：2340] 发布于 2010-04-21 23:19:00
这里资料很全，自己看吧
http://blog.csdn.net/apple_8180/archive/2006/04/22/672913.aspx
我来回复
您所在位置：