从Excel中填充数据表列作为字符串

我正在格式化（小数，日期等）的Excel表格中填充数据表。从Excel中填充数据表列作为字符串

我的问题是，列正被格式化为Excel表格，但我需要填充所有列作为字符串，我该怎么做？

我的导入方法：

Private Function upload(filename As String) As DataTable 
     Dim FilePath__1 As String = "Uploads/" 
     Try 
      Dim allowdFile As String() = {".xls", ".xlsx"} 
      Dim FileExt As String = ".xls" 

      Dim isValidFile As Boolean = allowdFile.Contains(FileExt) 
      If Not isValidFile Then 
       Return Nothing 
      Else 
       Dim filePath__2 As String = Server.MapPath(FilePath__1) & filename 

       Dim con As OleDbConnection = Nothing 
       If FileExt = ".xls" Then 
        con = New OleDbConnection((Convert.ToString("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=") & filePath__2) + ";Extended Properties=Excel 8.0;") 
       ElseIf FileExt = ".xlsx" Then 
        con = New OleDbConnection((Convert.ToString("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=") & filePath__2) + ";Extended Properties=Excel 12.0;") 
       End If 
       con.Open() 

       Dim dt As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing) 

       Dim getExcelSheetName As String = dt.Rows(0)("Table_Name").ToString() 

       Dim ExcelCommand As New OleDbCommand((Convert.ToString("SELECT * FROM [") & getExcelSheetName) + "]", con) 
       Dim ExcelAdapter As New OleDbDataAdapter(ExcelCommand) 
       Dim ExcelDataSet As New DataSet() 
       ExcelAdapter.Fill(ExcelDataSet) 
       con.Close() 
       If ExcelDataSet.Tables.Count > 0 Then 
        Return ExcelDataSet.Tables(0) 
       Else 
        Return Nothing 
       End If 
      End If 
     Catch ex As Exception 
      Return Nothing 
     End Try 
    End Function

任何帮助将是很好。

来源

2014-05-15 Ali Issa

一个简单的方法是进行循环行和使用ToString：

DataTable tblOld = ExcelDataSet.Tables[0]; 
DataTable tblNew = new DataTable(); 
foreach (DataColumn col in tblOld.Columns) 
    tblNew.Columns.Add(col.ColumnName); 
foreach (DataRow rowOld in tblOld.Rows) 
{ 
    DataRow rowNew = tblNew.Rows.Add(); 
    foreach (DataColumn col in tblOld.Columns) 
    { 
     rowNew.SetField(col.ColumnName, rowOld.IsNull(col) ? "" : rowOld[col].ToString()); 
    } 
} 
return tblNew;

来源

2014-05-15 07:05:10

这不起作用 –

有趣的是，没有错误，只是“不工作”？ –

你为什么讥讽？不工作我的意思是列仍然是双重的，日期等... –

请尝试使用IMEX的您的Excel连接字符串中= 1，如下

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=YourExcelFilePath.xls;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""

此属性提示读者读取所有值为文本

来源

2014-05-15 07:10:49

从Excel中填充数据表列作为字符串

回答

相关问题