は、私はエクセルの複数のシートに特定の行をエクスポートするExcel

Question

の複数のシートへのDataTableから日付に応じて、行のセットにエクスポートする方法vb.net

私のコード

Iにデータテーブルからの日付に依存します1つのシートで17/08/2016をnextseheetで18/08/2016にしたいこのような 私のテーブルの行：

s.no date  
1 17/08/2016  
2 17/08/2016  
3 17/08/2016  
4 18/08/2016  
5 18/08/2016 

  For i = 0 To dt.Rows.Count - 2 
      If dt.Rows(i).Item("AttDate") = dt.Rows(i + 1).Item("AttDate") Then 
       oSheet = oBook.Worksheets(1) 

       oSheet.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        oSheet.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        oSheet.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 
       Irow = Irow + 1 
      Else 
       osheet1 = oBook.Worksheets(2) 

       osheet1.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        osheet1.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        osheet1.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 
       Irow = Irow + 1 
      End If 
     Next 

Answer 1

Dim strValue As String 
     For i = 0 To dt.Rows.Count - 2 
     If i = 0 Then 

      ' Sheet 1 
      oSheet = oBook.Worksheets(1) 

      oSheet.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
      If dt.Rows(i).Item("latein") > 0 Then 
       oSheet.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
      Else 
       oSheet.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
      End If 

      Irow = Irow + 1 

     Else 

      If dt.Rows(i).Item("AttDate") = strValue then 
      ' Sheet 1 
       oSheet = oBook.Worksheets(1) 

       oSheet.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        oSheet.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        oSheet.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 

       Irow = Irow + 1 

      Else 

       ' Sheet 2 
       osheet1 = oBook.Worksheets(2) 

       osheet1.Cells(Irow, IcolFranchisee) = dt.Rows(i).Item("Intime") 
       If dt.Rows(i).Item("latein") > 0 Then 
        osheet1.Cells(Irow, IcolFranchisee + 1) = dt.Rows(i).Item("latein") 
       Else 
        osheet1.Cells(Irow, IcolFranchisee + 2) = dt.Rows(i).Item("latein") 
       End If 

      End If 

      Irow = Irow + 1 

     End If 

     strValue = dt.Rows(i).Item("AttDate") 

    Next 

ホープこれはあなたが探しているものです。