Question

我正在尝试将数据从访问数据库复制到excel电子表格

首先，我需要通过搜索日期找到正确的列，这适用于日期有2位数的日期，即2017年9月16日但是对于单个数字日期的日期6/09/2017它找不到

在excel中我试图在2009年6月6日找到它并发现它很好但是找不到06/09/2017

我的访问权限显示为6/09/2017所以我不确定问题出在哪里，我在下面尝试过的代码（所有结果都相同）

colNo = .Cells.Find(What:=Format(Me.RejectDate,dd/mm/yyyy), After:=.Cells(1, 1), LookIn:=(-4123), SearchOrder:=2, SearchDirection:=1, MatchCase:=False).Column

colNo = .Cells.Find(What:=CDate(Me.RejectDate), After:=.Cells(1, 1), LookIn:=(-4123), SearchOrder:=2, SearchDirection:=1, MatchCase:=False).Column

colNo = .Cells.Find(What:=Me.RejectDate, After:=.Cells(1, 1), LookIn:=(-4123), SearchOrder:=2, SearchDirection:=1, MatchCase:=False).Column

是自动添加0吗？如果是这样的话？我该如何阻止呢？或者是其他问题？

Answer 1

找到解决方案
我只是检查格式化函数是否添加了0，如果添加了则删除0

dataDate = Format(Me.RejectDatetb, "dd/mm/yyyy")
If Left(dataDate, 1) = "0" Then
    dataDate = Right(dataDate, Len(dataDate) - 1)
End If
colNo = .Cells.Find(What:=dataDate, After:=.Cells(1, 1), LookIn:=(-4123), SearchOrder:=2, SearchDirection:=1, MatchCase:=False).Column

访问vba查找日期不适用于单个数字天

1 个答案: