关于DataGrid导出excel的问题，高手指点一下

Question

我参照的是这个贴子内容
http://community.csdn.net/Expert/topic/4685/4685551.xml?temp=1.261538E-02
其中
objsheet.SaveAs (strName,miss,miss,miss,miss,miss,Excel.XlSaveAsAccessMode.xlNoChange,miss,miss);
这句话中
Excel.XlSaveAsAccessMode.xlNoChange
为什么我输入Excel后面没有这些选项呢。
名称空间导入情况
Imports Microsoft.Office
Imports Excel
Imports Excel.XlSaveAsAccessMode
还请高手指点一下啊

Answer 1

我是要把一个DATATABLE中的数据，生成一到一个EXCEL文件中，这个EXCEL文件是并不存在的，或已经存在的。哪位兄弟能介绍一下，或哪有这方面的例子。我在论坛中搜了半天，这个是比较全的。可是上面那卡了，不知道怎么回事。

Answer 2

Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint.Click
        Dim xlSheet As Excel.Worksheet
        Dim xlApp As New Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlDBtable As Excel.DataTable
        Try
            xlBook = xlApp.Workbooks.Add
            xlSheet = xlBook.Worksheets("sheet1")            ' xlSheet.Range("d1:j1").HorizontalAlignment()
            'Dim i, j As Integer
            Dim Table As New DataTable            Table = CType(datagrid1.DataSource, DataTable) '将datagrid中的数据填充到DataTable中
            Dim col As DataColumn
            Dim colIndex As Integer            For Each col In Table.Columns                colIndex = colIndex + 1
                xlApp.Cells(1, colIndex) = col.ColumnName '获取列名
            Next
            Dim row As DataRow
            Dim rowIndex As Integer
            rowIndex = 1 '从第二行开始填充数据
            Dim rowint As Integer
            '  For rowint = 0 To Table.Rows.Count
            For Each row In Table.Rows '获取数据
                rowIndex = rowIndex + 1
                colIndex = 0
                For Each col In Table.Columns
                    colIndex = colIndex + 1
                    xlApp.Cells(rowIndex, colIndex) = row(col.ColumnName)
                Next
            Next
            'while 
            ' If xlApp.CanRecordSounds Then            ' Dim xlp As New Excel.Application
            Dim strflname As String
            Savedl.Title = "保持为"
            Savedl.Filter = "xls工作薄|*.xls"
            If Savedl.ShowDialog = Windows.Forms.DialogResult.OK Then
                If Savedl.FileName <> "" Then
                    strflname = Savedl.FileName()
                Else
                    Exit Sub
                End If
            Else
                Exit Sub
            End If
            '  Dim dt As New DataTable            ' dt = CType(datagrid1.DataSource, DataTable)
            ' xlp.Cells(1, 1) = dt.Rows.Item(1)
            ' xlp.Cells() = Me.datagrid1.DataSource
            xlBook.SaveAs(strflname, xlApp.ActiveWorkbook.FileFormat, "", "", xlApp.ActiveWorkbook.ReadOnlyRecommended, xlApp.ActiveWorkbook.CreateBackup, Excel.XlSaveAsAccessMode.xlShared.xlShared, xlApp.ActiveWorkbook.ConflictResolution, False, "", "")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            xlBook.Close()
            xlApp.Quit()
            xlApp = Nothing
        End Try    End Sub

Answer 3

好的，、boblaile(狂学.NET) 我试试下

Answer 4

Excel.XlSaveAsAccessMode.xlNoChange改成,miss 就可以了

Answer 5

导出导入Excel(DataSet,DataGrid) 到这上面看看，要注册个用户
http://www.chinaworkroom.com/Bbs/ViewTopic.aspx?TopicID=206&boardID=8