I'm stuck with my code and I found out this snippet to save(Export) an Excel file to D:. However, I would like to give a User an option to save it according to his/her necessity.
Please find the Code Snippet below:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try If ComboBox1.Text = "Select a Month to Proceed" Then MsgBox("Bad Selection. Make a choice by Selecting a Month first") Else 'Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\msv\MSVDB.accdb;Persist Security Info=True;Jet OLEDB:Database Password=hdAI##^1939") If cn.State = ConnectionState.Open Then cn.Close() End If cn.Open() cmd.Connection = cn cmd.CommandText = "SELECT (EmpID)as [Employee ID],(Answer1) as [Answer 1],(Answer2)as [Answer 2],(Answer3) as [Answer 3],(Answer4) as [Answer 4],(Answer5) as [Answer 5],(Answer6) as [Answer 6],(Answer7) as [Answer 7],(Answer8) as [Answer 8],(Answer9) as [Answer 9],(Answer10) as [Answer 10] INTO [Excel 12.0 Xml;HDR=YES;DATABASE=D:\zzzNew.xlsx].[Sheet1] FROM " & Label2.Text & "" If cmd.ExecuteNonQuery() Then MsgBox("File Saved Successfully. Check your D:\zzzNew.xlsx for Exported Data") End If End If Catch ex As Exception MsgBox("Bad Selection. Your file is already Exported OR You haven't selected an appropriate Month", MsgBoxStyle.Critical, "Error") End Try End Sub