Export to excel problem

J

Jackson1998

Member
Joined
Jun 1, 2014
Messages
10
Programming Experience
1-3
hello guys

i'm working to a project which i need to save a datagridview to an excel file
the code below works perfectly when i run it but when i publish the application (exe) i got a msgbox picture below

don't you think guys its a savefiledialog problem ???

any help is appreciated

VB.NET: 
[COLOR=#660066]Private[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Button6_Click[/COLOR][COLOR=#666600]([/COLOR][COLOR=#660066]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Object[/COLOR][COLOR=#666600],[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]EventArgs[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Handles[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Button6[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Click[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]SaveFileDialog1[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Reset[/COLOR][COLOR=#666600]()[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]SaveFileDialog1[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]ShowDialog[/COLOR][COLOR=#666600]()[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]SaveFileDialog1[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Filter[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#008800]"*.xls|*.xls"[/COLOR][COLOR=#000000]

    [/COLOR][COLOR=#660066]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR][COLOR=#000000]



[/COLOR][COLOR=#660066]Private[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]SaveFileDialog1_FileOk[/COLOR][COLOR=#666600]([/COLOR][COLOR=#660066]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Object[/COLOR][COLOR=#666600],[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]ComponentModel[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CancelEventArgs[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Handles[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]SaveFileDialog1[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]FileOk[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] xlApp [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Microsoft[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Office[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Interop[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Excel[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Application[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] xlWorkBook [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Microsoft[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Office[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Interop[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Excel[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Workbook[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] xlWorkSheet [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Microsoft[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Office[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Interop[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Excel[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Worksheet[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] misValue [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Object[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Reflection[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Missing[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Value[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] oldCI [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Globalization[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CultureInfo[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Threading[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Thread[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CurrentThread[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CurrentCulture[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Threading[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Thread[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CurrentThread[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CurrentCulture[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]New[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Globalization[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]CultureInfo[/COLOR][COLOR=#666600]([/COLOR][COLOR=#008800]"en-US"[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]

        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] i [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Integer[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] j [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Integer[/COLOR][COLOR=#000000]

        xlApp [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]New[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Microsoft[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Office[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Interop[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Excel[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Application[/COLOR][COLOR=#000000]
        xlWorkBook [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] xlApp[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Workbooks[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Add[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]misValue[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        xlWorkSheet [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] xlWorkBook[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Sheets[/COLOR][COLOR=#666600]([/COLOR][COLOR=#008800]"sheet1"[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]


        [/COLOR][COLOR=#660066]For[/COLOR][COLOR=#000000] i [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]0[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]To[/COLOR][COLOR=#000000] DGV[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]RowCount[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]-[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]1[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#660066]For[/COLOR][COLOR=#000000] j [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]0[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]To[/COLOR][COLOR=#000000] DGV[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]ColumnCount[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]-[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]1[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#660066]For[/COLOR][COLOR=#000000] k [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Integer[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]1[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]To[/COLOR][COLOR=#000000] DGV[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Columns[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Count[/COLOR][COLOR=#000000]
                    xlWorkSheet[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Cells[/COLOR][COLOR=#666600]([/COLOR][COLOR=#006666]1[/COLOR][COLOR=#666600],[/COLOR][COLOR=#000000] k[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] DGV[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Columns[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]k [/COLOR][COLOR=#666600]-[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]1[/COLOR][COLOR=#666600]).[/COLOR][COLOR=#660066]HeaderText[/COLOR][COLOR=#000000]
                    xlWorkSheet[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Cells[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]i [/COLOR][COLOR=#666600]+[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]2[/COLOR][COLOR=#666600],[/COLOR][COLOR=#000000] j [/COLOR][COLOR=#666600]+[/COLOR][COLOR=#000000] [/COLOR][COLOR=#006666]1[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] DGV[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]j[/COLOR][COLOR=#666600],[/COLOR][COLOR=#000000] i[/COLOR][COLOR=#666600]).[/COLOR][COLOR=#660066]Value[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]ToString[/COLOR][COLOR=#666600]()[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#660066]Next[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#660066]Next[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Next[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] fl [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]String[/COLOR][COLOR=#000000]
        fl [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]SaveFileDialog1[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]FileName[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] flm [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]String[/COLOR][COLOR=#000000]
        flm [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] fl [/COLOR][COLOR=#666600]+[/COLOR][COLOR=#000000] [/COLOR][COLOR=#008800]".xls"[/COLOR][COLOR=#000000]
        xlWorkSheet[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]SaveAs[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]flm[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        xlWorkBook[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Close[/COLOR][COLOR=#666600]()[/COLOR][COLOR=#000000]
        xlApp[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Quit[/COLOR][COLOR=#666600]()[/COLOR][COLOR=#000000]

        releaseObject[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]xlApp[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        releaseObject[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]xlWorkBook[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        releaseObject[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]xlWorkSheet[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]

        [/COLOR][COLOR=#660066]Dim[/COLOR][COLOR=#000000] res [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]MsgBoxResult[/COLOR][COLOR=#000000]
        res [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]MsgBox[/COLOR][COLOR=#666600]([/COLOR][COLOR=#008800]"do you want to open file ?"[/COLOR][COLOR=#666600],[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]MsgBoxStyle[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]YesNo[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]If[/COLOR][COLOR=#000000] [/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]res [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]MsgBoxResult[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Yes[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Then[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#660066]Process[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Start[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]flm[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]If[/COLOR][COLOR=#000000]
        
    [/COLOR][COLOR=#660066]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR][COLOR=#000000]


[/COLOR][COLOR=#660066]Private[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR][COLOR=#000000] releaseObject[/COLOR][COLOR=#666600]([/COLOR][COLOR=#660066]ByVal[/COLOR][COLOR=#000000] obj [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Object[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Try[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#660066]System[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Runtime[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]InteropServices[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Marshal[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]ReleaseComObject[/COLOR][COLOR=#666600]([/COLOR][COLOR=#000000]obj[/COLOR][COLOR=#666600])[/COLOR][COLOR=#000000]
            obj [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Nothing[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Catch[/COLOR][COLOR=#000000] ex [/COLOR][COLOR=#660066]As[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Exception[/COLOR][COLOR=#000000]
            obj [/COLOR][COLOR=#666600]=[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Nothing[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]Finally[/COLOR][COLOR=#000000]
            GC[/COLOR][COLOR=#666600].[/COLOR][COLOR=#660066]Collect[/COLOR][COLOR=#666600]()[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#660066]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Try[/COLOR][COLOR=#000000]

    [/COLOR][COLOR=#660066]End[/COLOR][COLOR=#000000] [/COLOR][COLOR=#660066]Sub[/COLOR]
489438.jpg
 
Sort by date Sort by votes

Similar threads

J
  • Question
I can see the Excel Workbook, but the WorkSheet methods etc don't work :(
Replies
4
Views
907
johnhoens
J
T
  • Question
Resolved how i check if excel sheet is close to attach the file to Gmail
Replies
0
Views
793
Tamiryosef
T
K
  • Question
Closing Excel from VB.Net?
Replies
0
Views
2K
kentlip
K
R
  • Question
Question How to apply template on excel file exported using oledb ?
Replies
2
Views
2K
Rash24agg
R
R
  • Question
Question How to start exporting data to an excel file from a particular row of excel sheet?
Replies
4
Views
2K
jmcilhinney
jmcilhinney

Share this page

Latest posts

Back
Top