标题:vb操作excel问题
取消只看楼主
btbcbbc
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-29
结帖率:0
已结贴  问题点数:20 回复次数:5 
vb操作excel问题
用vb打开一个excel表格,逐次判断其中的sheet中第一个单元格是否为空,若为空则保存后退出,代码怎么写呢?求大神赐教!
搜索更多相关主题的帖子: excel表格 
2015-04-29 10:19
btbcbbc
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-29
得分:0 
回复 2楼 lianyicq
学习了,还想请问一下依次打开sheet并操作,如何对每个sheet都保存,最后到空sheet则退出
2015-04-29 10:48
btbcbbc
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-29
得分:0 
回复 4楼 lianyicq
你好,请问一下vb中判断excel中单元格内容是否为“A 105”,若不是则设此单元格为红色,执行后发现excel中有的单元格内容是“A 105”也被设置成了红色,是因为输入法不同导致空格长度不同还是什么原因?
2015-04-29 14:50
btbcbbc
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-29
得分:0 
回复 6楼 lianyicq
Dim CZ As String
Dim i As Integer
i = 2
Do While (xlSheet.Cells(i, 2).Value <> "")
CZ = "A 105"
If xlSheet.Cells(i, 3).Value <> CZ Then
xlSheet.Cells(i, 3).Interior.Color = 255
Else
End If
i = i + 1
Loop
2015-04-29 15:00
btbcbbc
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-29
得分:0 
回复 8楼 lianyicq
是的,我检查的内容中不含空格的话,都没有问题,含有空格的时候,有的单元格就会出现问题,可能是excel中输入法不同输入空格后造成字符串长度不同吧
2015-04-29 15:22
btbcbbc
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2015-4-29
得分:0 
回复 8楼 lianyicq
用replace解决了,谢谢!
2015-04-29 15:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-444636-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.064852 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved