使用保存文件對話框從數據表中導出Excel

Question

我正在使用VB.Net。 我想使用“保存文件”對話框從數據表中導出Excel。 但我得到錯誤為：

“在進行OLE調用之前，必須將當前線程設置為單線程單元（STA）模式。確保在Main函數上標記了STAThreadAttribute。僅當將調試器附加到進程時，才會引發此異常。”

我已經在Google上搜索了很多，但是對於我的“ Web應用程序”卻無法解決。

這是我的代碼：

 Dim saveFileDialog1 As New SaveFileDialog()
    saveFileDialog1.Filter = "Excel File|*.xls"
    saveFileDialog1.FilterIndex = 2
    saveFileDialog1.RestoreDirectory = True

    If saveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
   Then
        ExportExcel(dt, "Appraisals" + value.ToString())
    End If

Answer 1

我找不到您的代碼錯誤，但可以嘗試我的= D

Dim workBookName As String = "Computers"

If Not workBookName = "" Then
   SaveFileDialog1.Filter = "Excel WorkBook|*.xlsx"
   SaveFileDialog1.ShowDialog()
   Location = SaveFileDialog1.FileName
   ExportExcel(dt, "Appraisals" + value.ToString())
Else
   MsgBox("Please enter Worksheet Name", MsgBoxStyle.Critical, "Export To Excel")
End If