以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73331)
--  作者：卖糕的
--  发布时间：2015/8/17 15:34:00
--  代码求助

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:交期明细表.xls

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\销售订单交期明细表.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("u2:u40")
If Rg Is Nothing Then  ‘这句测试了好多次执行结果都不对
   Rg.value = 1

End If
Ws.Columns("U").NumberFormat = "yyyy-m-d"
App.Visible = True

 

我想在打开工作表后查看U列的交期是否为空，如果是，改为1，不用IF判断时整个都变成1了，请教代码应该怎么写

坐等。。。
--  作者：大红袍
--  发布时间：2015/8/17 15:43:00
--  
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\交期明细表.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For i As Integer = 1 To rg.Rows.count
    If ws.Cells(i, 21).Text = Nothing Then
        ws.Cells(i, 21).value = 1
        ws.Cells(i,21).NumberFormat= "yyyy-m-d"
    End If
Next
App.Visible = True
 
--  作者：卖糕的
--  发布时间：2015/8/17 15:48:00
--  

多谢指教！