怎么应用vb 从excel获取日期计算保质期并将值赋给excel表？ 5

PrivateSubCommand1_Click()SetxlApp=CreateObject("Excel.Application")'创建EXCEL应用类xlApp.... Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\数据.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

Dim qixian As Long
Dim time1 As String
Dim time2 As String

qixian = Val(Text1.Text)
For i = 2 To 14

time1 = Val(xlsheet.Cells(i, 2)) '获取excel中的井深数据
time2 = time1 + qixian '到期时间
dd1 = Format(time1, "YYYY-MM-DD") '转换格式
dd2 = Format(time2, "YYYY-MM-DD")

LngDateNum2 = DateDiff("d", CDate(time2), Now) '超期天数
xlsheet.Cells(i, 4) = time2 '给单元格4列驶列赋值（到期时间）
xlsheet.Cells(i, 5) = LngDateNum2 '给单元格5列驶列赋值（超期天数）

Next i
End Sub
从excel中获取和赋值都已经解决，日期的运算需要大家帮助一下展开

 我来答

3个回答

#热议# 为什么有人显老，有人显年轻？

zjq777007
2012-02-07 · TA获得超过275个赞

知道小有建树答主

回答量：950

采纳率：0%

帮助的人：372万

我也去答题访问个人页

关注

展开全部

time1 = Val(xlsheet.Cells(i, 2)) '获取excel中的井深数据
改
time1 = xlsheet.Cells(i, 2) '获取excel中的井深数据
日期就是一个数值哦
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\数据.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

Dim qixian As Long
Dim time1 As String
Dim time2 As String

qixian = Val(Text1.Text)
For i = 2 To 14

time1 = Val(xlsheet.Cells(i, 2)) '获取excel中的井深数据
time2 = time1 + qixian '到期时间
dd1 = Format(time1, "YYYY-MM-DD") '转换格式
dd2 = Format(time2, "YYYY-MM-DD")

LngDateNum2 = DateDiff("d", CDate(time2), Now) '超期天数
xlsheet.Cells(i, 4) = time2 '给单元格4列驶列赋值（到期时间）
xlsheet.Cells(i, 5) = LngDateNum2 '给单元格5列驶列赋值（超期天数）

Next i
End Sub


本回答被网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起