vb.net中使用sql获取datatable后再打开excel报警线程错误怎么办

这个问题可能是由于在Excel中打开DataTable时，线程不安全导致的。您可以尝试在打开Excel之前将DataTable复制到另一个DataTable中，然后再使用新的DataTable打开Excel。

以下是示例代码：

' 获取DataTable
Dim dt As New DataTable()
Using conn As New SqlConnection("your connection string")
    conn.Open()
    Using cmd As New SqlCommand("your sql query", conn)
        Using da As New SqlDataAdapter(cmd)
            da.Fill(dt)
        End Using
    End Using
End Using

' 复制DataTable
Dim newDt As New DataTable()
newDt = dt.Copy()

' 打开Excel
Dim xlApp As New Excel.Application
Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Add()
Dim xlWorksheet As Excel.Worksheet = CType(xlWorkbook.Worksheets(1), Excel.Worksheet)
For i As Integer = 0 To newDt.Rows.Count - 1
    For j As Integer = 0 To newDt.Columns.Count - 1
        xlWorksheet.Cells(i + 1, j + 1) = newDt.Rows(i)(j).ToString()
    Next
Next
xlApp.Visible = True

另外，如果您使用的是Visual Studio 2010或更早版本，则需要在应用程序的入口点添加以下代码，以确保应用程序在单线程Apartment模式下运行：

<System.STAThreadAttribute()> _
Sub Main()
    ' 应用程序的主入口点
End Sub

希望这些信息对您有所帮助！