主题：代码求助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:交期明细表.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了，请教代码应该怎么写

坐等。。。

多谢指教！