do while 循环前将n=1,cells(n,1)后加.value
我们提供的服务有:网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、全椒ssl等。为上1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的全椒网站制作公司
Private Sub Command1_Click()
Set objexcel = CreateObject("Excel.application")
Set objworkBook = objexcel.Workbooks.Open("d:\k.xls", 3, False)
Set ExcelSheet = objworkBook.Worksheets(1)
objexcel.Visible = ture
以下三行是想如果单元格不为空就让变量n加1。
n=1'需要指定n的初始值,否则n为空值,下面的语句将错误。
Do While ExcelSheet.cells(n, 1).value "" 'cells后加value属性
n = n + 1
Loop
ExcelSheet.cells(n, 1).value = Text1.Text 'cells后加value属性
objworkBook.Save
objworkBook.Close
Set objexcel = Nothing
End Sub
vb.NET有时很怪,不同版本,或者不同机器,在操作excel时,判断单元格是否为空时,会出现不同的错误提示。
大多数情况,xlSheet.Cells(1, 1)="" 就可以判断这个单元是否有内容。
但是有时也会有不同的提示。总结不同机器,不同版本,用下面几种来试试单元格是否是空白。
xlSheet.Cells(1, 1)=""
xlSheet.Cells(1, 1).value=""
xlSheet.Cells(1, 1).value.tostring=""
如果上面三个代码都会自动提示错误,请用下面终极模式:)
xlSheet.Cells(1, 1).value = Nothing
1、vb6判断数据库字段为空值的方法是:if isnull(x1) then ...
2、vb6判断字符串是空串的方法是:if x2="" then ...
3、强调一下x1在vb6下必须是varint变量,才能装入数据库的空值NULL。
网页名称:vb.net筛选空值 vb中如何筛选出字母
分享地址:https://www.cdcxhl.com/article44/dogocee.html
成都网站建设公司_创新互联,为您提供虚拟主机、企业网站制作、网站设计公司、搜索引擎优化、网站内链、响应式网站
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联