WPF VB導出datagrid（不datagridview）到Excel

Question

我在WPF中使用VB.NET。我只知道，它似乎WPF數據網格是從DataGridView不同，下面是常用的VB出口例行

Private Sub BtnExport_Click(sender As Object, e As RoutedEventArgs) 
    Dim app As Object 
    Dim xlbook As Object 
    Dim xlsheet As Object 
    app = CreateObject("Excel.Application") 
    xlbook = app.Workbooks.Add() 
    xlsheet = xlbook.ActiveSheet 
    app.Visible = True 
    Try 
     Dim iX As Integer 
     Dim iY As Integer 
     Dim iC As Integer 
     Dim iz As Integer 
     For iC = 0 To DGJrn.Columns.Count - 1 
      xlsheet.Cells(1, iC + 1).Value = DGJrn.Columns(iC).Header 
     Next 

     iz = 1 
     For iX = 0 To DGJrn.Rows.Count - 1 
      For iY = 0 To DGJrn.Columns.Count - 1 
       Dim a As String = DGJrn(iY, iX).Value 
       If a <> Nothing Then xlsheet.Cells(iz + 1, iY + 1) = (DGJrn(iY, iX).Value & "").ToString() 
      Next 
      iz = iz + 1 
     Next 
     app.Visible = True 
     app.UserControl = True 
     releaseobject(app) 
     releaseobject(xlbook) 
     releaseobject(xlsheet) 
    Catch ex As Exception 
     'MessageBox.Show(ex.ToString()) 
    End Try 
    AppActivate(System.Diagnostics.Process.GetCurrentProcess.Id) 
    MsgBox("Data has been successfuly generated!") 

End Sub 

我總是失敗，出現「數據網格不能被索引」能不能請你幫忙嗎？ 編輯：添加XML和結合

<DataGrid x:Name="DGJrn" VerticalAlignment="Stretch" HorizontalAlignment="Stretch" Margin="10,10,10,39" AutoGenerateColumns="False" ItemsSource="{Binding}"> 
         <DataGrid.Columns> 
          <DataGridTextColumn Header="id" Binding="{Binding Path=ID}" /> 
          <DataGridTextColumn Header="JTYPE" Binding="{Binding Path=JType}" /> 
          <DataGridTextColumn Header="JSRC" Binding="{Binding Path=JSrc}" /> 
          <DataGridTextColumn Header="TRNDT" Binding="{Binding Path=TrnDt, StringFormat=\{0:dd/MM/yyyy\}}" /> 
          <DataGridTextColumn Header="Period" Binding="{Binding Path=Period}" /> 
          <DataGridTextColumn Header="Desc" Binding="{Binding Path=Desc}" /> 
          <DataGridTextColumn Header="TrnRef" Binding="{Binding Path=TrnRef}" /> 
          <DataGridTextColumn Header="AccCode" Binding="{Binding Path=AccCode}" /> 
          <DataGridTextColumn Header="BASum" Binding="{Binding Path=BASum}" /> 
          <DataGridTextColumn Header="DbtCrd" Binding="{Binding Path=DbtCrd}" /> 
          <DataGridTextColumn Header="OtAmt" Binding="{Binding Path=OtAmt}" /> 
          <DataGridTextColumn Header="T1" Binding="{Binding Path=T1}" /> 
          <DataGridTextColumn Header="T2" Binding="{Binding Path=T2}" /> 
          <DataGridTextColumn Header="T3" Binding="{Binding Path=T3}" /> 
          <DataGridTextColumn Header="T4" Binding="{Binding Path=T4}" /> 
          <DataGridTextColumn Header="T5" Binding="{Binding Path=T5}" /> 
          <DataGridTextColumn Header="T6" Binding="{Binding Path=T6}" /> 
          <DataGridTextColumn Header="T7" Binding="{Binding Path=T7}" /> 
          <DataGridTextColumn Header="T8" Binding="{Binding Path=T8}" /> 
          <DataGridTextColumn Header="Remrk" Binding="{Binding Path=Remrk}" /> 
         </DataGrid.Columns> 
        </DataGrid> 

連接：

Private Sub LoadGrid() 
    Dim DA As New OleDbDataAdapter 
    Dim DT As New System.Data.DataTable 
    Dim Cmd As New OleDbCommand 

    With ConAccess 
     Try 
      If .State = ConnectionState.Open Then .Close() 
      .Open() 
     Catch ex As Exception 
      MsgBox("Error Connection : " & ex.Message) 
     End Try 
    End With 
    Dim Sql As String = "" 
    Sql = "SELECT * FROM APJI;" 

    Cmd = New OleDbCommand(Sql, ConAccess) 
    DA.SelectCommand = Cmd 
    DA.Fill(DT) 

    DGJrn.ItemsSource = DT.DefaultView 

End Sub 

Answer 1

需要關閉我自己的問題，所以我需要從DataGrid中的源更改爲數據表來代替。所以這是我現在的代碼：

Private Sub DatatableToExcel() 
    Dim _excel As New Microsoft.Office.Interop.Excel.Application 
    Dim wBook As Microsoft.Office.Interop.Excel.Workbook 
    Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet 

    wBook = _excel.Workbooks.Add() 
    wSheet = wBook.ActiveSheet() 

    Dim dt As System.Data.DataTable = Dtab 
    Dim dc As System.Data.DataColumn 
    Dim dr As System.Data.DataRow 
    Dim colIndex As Integer = 0 
    Dim rowIndex As Integer = 0 

    For Each dc In dt.Columns 
     colIndex = colIndex + 1 
     _excel.Cells(1, colIndex) = dc.ColumnName 
    Next 

    For Each dr In dt.Rows 
     rowIndex = rowIndex + 1 
     colIndex = 0 
     For Each dc In dt.Columns 
      colIndex = colIndex + 1 
      _excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName) 
     Next 
    Next 

    wSheet.Columns.AutoFit() 
    Dim strFileName As String = "C:\datatable.xlsx" 
    If System.IO.File.Exists(strFileName) Then 
     System.IO.File.Delete(strFileName) 
    End If 

    wBook.SaveAs(strFileName) 
    wBook.Close() 
    _excel.Quit() 
End Sub