易语言如何设置excel列宽

虐心i

1. .版本 2
   
2. .支持库 eExcel2000
   
3. .支持库 iext
   
4. 
   
5. .子程序 超级列表框保存为EXCEL
   
6. .参数 通用对话框, 通用对话框
   
7. .参数 Excel程序, Excel程序
   
8. .参数 Excel工作簿, Excel工作簿
   
9. .参数 超级列表框, 超级列表框
   
10. .局部变量 EXCEL文件名, 文本型
    
11. .局部变量 x
    
12. .局部变量 y
    
13. .局部变量 文本, 文本型
    
14. .局部变量 保存结果, 逻辑型
    
15. 
    
16. 通用对话框.类型 ＝ 1
    
17. 通用对话框.过滤器 ＝ “EXCEL文件|*.XLS”
    
18. 通用对话框.默认文件后缀 ＝ “.xls”
    
19. .如果真 (通用对话框.打开 () ＝ 假)
    
20. 返回 ()
    
21. .如果真结束
    
22. EXCEL文件名 ＝ 通用对话框.文件名
    
23. Excel程序.创建 ()
    
24. Excel工作簿.置程序 (Excel程序)
    
25. Excel工作簿.表格序号 ＝ 1
    
26. Excel工作簿.激活 ()
    
27. .变量循环首 (1, 超级列表框.取表项数 (), 1, x)
    
28. 处理事件 ()
    
29. .变量循环首 (1, 超级列表框.取列数 (), 1, y)
    
30. 处理事件 ()
    
31. 文本 ＝ 字符 (96 ＋ y)
    
32. Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)
    
33. Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)
    
34. Excel工作簿.内容格式 ＝ “@”
    
35. Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)
    
36. Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
    
37. Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
    
38. Excel工作簿.内容格式 ＝ “@”
    
39. Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)
    
40. .变量循环尾 ()
    
41. .变量循环尾 ()
    
42. Excel工作簿.保存 (EXCEL文件名)
    
43. Excel工作簿.释放 ()
    
44. Excel工作簿.关闭 ()
    
45. Excel程序.退出 ()

复制代码

以上是代码，如何设置列宽呢？http://bbs.125.la/thread-13907371-1-1.html  与该帖子同求

虐心i

想设置成 以i下 效果

f332nl

我也刚想知道咋弄，有大牛指点下不

f332nl

我知道了，用这个“Excel工作簿1.自动调整 () ”加在“Excel工作簿1.内容”后面，他会根据你内容大小调整单元格大小，如果不加就是根据你列标题大小而定