如何控制excel的每个单元格的格式如：width

	首页 \| 新闻 \| 技术 \| 论坛 \| 人才 \| 商城 \| 大本营 \|《程序员》\| 软件

2003.9.10

-我的论坛-

— 相关专题 —

— 人才招聘 —

— 热销商品 —

— 培训信息 —

— 图书信息 —

CSDN - 专家门诊 - VB VBA问题
	回复 \| 推荐 \| 收藏 \| 专题 \| 公告 \| 管理 \| 加入FAQ \| 保存 \| 回复通知 \| 关闭窗口

主　　题：		如何控制excel的每个单元格的格式如：width
作　　者：		szyhy810518 (一个白吃)
等　　级：
信誉值：		100
所属论坛：		VB VBA
问题点数：		20
回复次数：		5
发表时间：		2003-8-7 17:50:46

rt

回复人： szyhy810518(一个白吃) ( 二级(初级)

) 信誉：100

2003-8-7 18:16:40

得分:0

人哪？
为什么我传的值“00001”会变成“1”？

Top

回复人： stonegoldaustin(特纯中南海) ( 四级(中级)

) 信誉：100

2003-8-7 19:06:50

得分:5

因为你单元格的格式是数值型的.
用下面的代码可以解决:
xlWorkSheet.Cells.NumberFormatLocal = "@"

第一的问题是
cells(rows,columns).width = xxx

Top

回复人： diyee(锦衣夜行) ( 四级(中级)

) 信誉：100

2003-8-7 23:39:16

得分:5

hehe.
自己用宏先试试吧，自己试出来的，印象更深刻一些。

Top

回复人： szyhy810518(一个白吃) ( 二级(初级)

) 信誉：100

2003-8-8 10:06:39

得分:0

第一的问题是
cells(rows,columns).width = xxx
不行的，师傅！

另外，如何设置每一页的页眉和页脚？
谢谢！

Top

回复人： DarkChampion(暗黑骑士) ( 二级(初级)

) 信誉：100

2003-8-14 5:55:09

得分:10

设置页眉和页脚的方法大致如下：

Dim ExcelApp As Excel.Application
Dim ExcelWb As Workbook

Set ExcelApp = New Excel.Application
ExcelApp.Visible = True
Set ExcelWb = ExcelApp.Workbooks.Add

With ExcelWb.ActiveSheet.PageSetup
        .CenterHeader = "第 &P 页"
        .LeftFooter = "&B 机密 &B"
        .CenterFooter = "&D"
        .RightFooter = " 第 &P 页"
        .FirstPageNumber = xlAutomatic
End With

Top

该问题已经结贴，得分记录： stonegoldaustin (5)、 diyee (5)、 DarkChampion (10)、


	管理 \| 关闭窗口

网站简介 - 广告服务 - 网站地图 - 帮助信息 - 联系方式
百联美达美公司版权所有京ICP证020026号
Copyright ? CSDN.net, Inc. All rights reserved