在VB.net中过滤Excel日期

-1

我有一个非常简单的代码行，可以在Excel VBA中工作，但是我不能在我的生活中弄清楚它是如何在VB.NET中工作的。任何帮助，将不胜感激。在VB.net中过滤Excel日期

Selection.AutoFilter Field:=8, Criteria1:=">=" & sdate

编辑：完整的代码

Dim sDate as Date 
Dim xlapp As New Excel.Application 
sdate = DateTimePicker1.Value.Date 
OpenFileDialog1.Filter = "Excel Documents | *.xls; *.xlsx; *.xlsxm" 
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
xlWB= xlapp.Workbooks.Open(OpenFileDialog1.FileName) 

xlWB.Worksheets("Data").Range("H1").Select() 
xlapp.Selection.AutoFilter()    
xlapp.Selection.AutoFilter(Field:=8, Criteria1:="=>" & sDate)

来源

2016-04-25 Istha

此代码给出错误或错误的过滤器？ –

不会抛出错误，过滤器只是空白，并且没有行被选中。 – Istha

我有你在代码中的代码，你可以测试它。 –

首先，你必须日期从DateTimePicker1转换为日期格式DateSerial，并转换日期的日值OLE Automation与ToOADate

你也必须改变标准"=>"到">="的运算符，=号必须在后面。

Dim sDate As Date 
Dim xlapp As New Excel.Application 
Dim xlWB As Excel.Workbook 
Dim dpDate As Date = DateTimePicker1.Value.Date 
sDate = DateSerial(dpDate.Year, dpDate.Month, dpDate.Day) 
OpenFileDialog1.Filter = "Excel Documents | *.xls; *.xlsx; *.xlsxm" 
If OpenFileDialog1.ShowDialog = DialogResult.OK Then 
    xlWB = xlapp.Workbooks.Open(OpenFileDialog1.FileName) 

    xlWB.Worksheets("Data").Range("H1").Select() 
    xlapp.Selection.AutoFilter() 
    xlapp.Selection.AutoFilter(Field:=8, Criteria1:=">=" & sDate.ToOADate) 
End If

来源

2016-04-25 17:53:25

我有VB.NET中的括号，但仍然无法正常工作。 – Istha

什么是您使用的范围选择？ –

看到我的编辑，我已经添加完整的代码。我怀疑它与自动过滤器是一个字符串的标准有关吗？它在Excel中工作正常。 – Istha

在VB.net中过滤Excel日期

回答

相关问题