Vb.net从datagrid导出到excel文件 [英] Vb.net exporting from datagrid to excel file

问题描述

嗨所有

我已将excel文件导入datagridview并将其保存在单独的文件夹中。在运行时，我添加了新列到excel文件，这也是有效的。现在我想将新数据保存到同一文件夹中的旧excel文件中。我想在运行时将此数据从datagridview导出到excel文件。任何人都可以帮我这个



我尝试过：

hi all
I have imported excel file to datagridview and saved it in a separate folder. At run time i added new columns to excel file, that is also working. Now i want to save the new datas to the old excel file in the same folder. i want to export this datas from datagridview to excel file at runtime. can anyone help me with this

What I have tried:

Dim saveDirectory As String = Application.StartupPath + "\Files\"
        OpenFileDialog1.Title = "Please select a Excel file"
        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog1.Filter = "Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            If Not Directory.Exists(saveDirectory) Then
                Directory.CreateDirectory(saveDirectory)


            End If

            Dim chk As New DataGridViewCheckBoxColumn()
            DataGridViewX1.Columns.Add(chk)
            chk.HeaderText = "Check Data"
            chk.Name = "chk"


            Dim fi As New FileInfo(OpenFileDialog1.FileName)
            Dim FileName As String = OpenFileDialog1.FileName

            excel = fi.FullName
            ex = fi.Name
            NavigationPane1.Name = ex
            conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
            dta = New OleDbDataAdapter("Select * From [Fee Detail$]", conn)
            dts = New DataSet
            dta.Fill(dts, "[Fee Detail$]")
            DataGridViewX1.DataSource = dts
            DataGridViewX1.DataMember = "[Fee Detail$]"
            conn.Close()
            i = i + 1

            Dim fileName1 As String = Path.GetFileName(OpenFileDialog1.FileName)

            Dim fileSavePath As String = Path.Combine(saveDirectory, fileName1)
            File.Copy(OpenFileDialog1.FileName, fileSavePath, True)

推荐答案

，conn ）
dts =新数据集
dta.Fill（dts，[费用明细

", conn) dts = New DataSet dta.Fill(dts, "[Fee Detail

）
DataGridViewX1.DataSource = dts
DataGridViewX1.DataMember =[费用详情

") DataGridViewX1.DataSource = dts DataGridViewX1.DataMember = "[Fee Detail

conn.Close（）
i = i + 1

Dim fileName1 As String = Path.GetFileName（OpenFileDialog1.FileName）

Dim fileSavePath As String = Path.Combine（saveDirectory，fileName1）
File.Copy（OpenFileDialog1.FileName，fileSavePath，True）

" conn.Close() i = i + 1 Dim fileName1 As String = Path.GetFileName(OpenFileDialog1.FileName) Dim fileSavePath As String = Path.Combine(saveDirectory, fileName1) File.Copy(OpenFileDialog1.FileName, fileSavePath, True)

这篇关于Vb.net从datagrid导出到excel文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！