Excel中的文本到列

时间:2013-05-27 07:13:45

标签: c# .net excel

我有一个包含单列和多行的Excel工作表,如:

000500114673HY340216-00       CT TAPING WORK DTYPE-OSKF 245 TWB.T H/C 37990110000250000100

我正在尝试通过我的C#代码创建一个新的Excel文件,但没有得到所需的结果。在我的新Excel文件中,我需要六列,每列分配一个特定范围,例如第一列12,第二列20等等(也包括空格)。我使用text to column方法,但我无法将其解析为固定宽度。我的代码示例是:

xlAppNew = new Application();
xlAppNew.DisplayAlerts = true;
workbooks = xlAppNew.Workbooks;                   
workbook = workbooks.Open(@filepath, 0, true, 1, "", "", true,
           Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t",
           false, false, 0, true, 1, 0);
xlWorkSheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets.get_Item(1);        
((Range)xlAppNew.Cells[1, 1]).EntireColumn.TextToColumns(Type.Missing,
           Microsoft.Office.Interop.Excel.XlTextParsingType.xlFixedWidth,
           Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierNone,
           Type.Missing, Type.Missing, Type.Missing, true, Type.Missing,
           Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
           Type.Missing);

我认为问题在于第四个最后一个参数,我无法正确提供的fieldinfo对象,我也使用了数组对象,但它产生了错误。我从这个问题4945621中获得了帮助。但那里没有提供确切的解决方案。

1 个答案:

答案 0 :(得分:2)

实际上,我要做的是首先将DAT文件转换为Excel,然后通过我的C#代码将其划分为固定数量的列。因此,在我的第一步中,我所做的是将DAT文件转换为具有单列和给定行数的Excel文件作为临时Excel文件。

                xlAppNew1 = new Application();
                xlAppNew1.DisplayAlerts = true;
                workbooks1 = xlAppNew1.Workbooks;
                workbook1 = workbooks1.Open(@filepath, 0, true, 1, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0);
                xlAppNew1.ActiveWorkbook.SaveAs(@filepathNew, -4143, "", "", false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange,
                missing, missing, missing, missing, missing);

现在确保关闭你创建的COM对象的所有实例,否则会造成很多问题。其次在另一个函数中我打开了我的临时Excel文件,并且数据集中的所有数据然后与Range对象的帮助和以下方法:

     range = range.get_Resize(range.Rows.Count, 9);           
     string[,] saRet = new string[range.Rows.Count, 9];         
     range.set_Value(Missing.Value, saRet);

整个代码有点像这样:

                xlAppNew = new Application();
                xlAppNew.DisplayAlerts = true;
                workbooks = xlAppNew.Workbooks;
                workbook = workbooks.Open(@filepathnew, 0, true, 1, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0);
                xlWorkSheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets.get_Item(1);                    
                if (getExtension.ToLower() == ".xls")
                    connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath_second + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1;\"";

                else
                    connString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filepath_second + ";Extended Properties=Excel 12.0 Xml;HDR=Yes;IMEX=1;";

                OleDbConnection con = new OleDbConnection(connString);

                con.Open();
                System.Data.DataTable dtSheet = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);
                string tname = dtSheet.Rows[0]["TABLE_NAME"].ToString();                    
                OleDbDataAdapter ad = new OleDbDataAdapter(@"Select * FROM [" + tname + "];", con);
                DataSet dset = new DataSet();
                ad.Fill(dset);
                range = xlWorkSheet.UsedRange;
                range = range.get_Resize(range.Rows.Count, 9);
                //Create an array.
                string[,] saRet = new string[range.Rows.Count, 9];
                //Fill the array.
                for (int iRow = 0; iRow < range.Rows.Count - 1; iRow++)
                {
                    for (int iCol = 0; iCol < 9; iCol++)
                    {
                        switch (iCol)
                        {
                            case 0:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(3, 9);//iRow.ToString() + "|" + iCol.ToString();
                                break;
                            case 1:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(12, 4);
                                break;
                            case 2:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(16, 18);
                                break;
                            case 3:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(34, 8);
                                break;
                            case 4:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(42, 4);
                                break;
                            case 5:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(46, 18);
                                break;
                            case 6:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(64, 40);
                                break;
                            case 7:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(104, 3);
                                break;
                            case 8:
                                saRet[iRow, iCol] = dset.Tables[0].Rows[iRow][0].ToString().Substring(107, 5);
                                break;

                        }

                    }
                }

                //Set the range value to the array.
                range.set_Value(Missing.Value, saRet);
                FieldInfo myf = typeof(MyNewService).GetField("saRet");//Fieldinfo object is also an important part
                //**********************
                ((Range)xlAppNew.Cells[1, 1]).EntireColumn.TextToColumns(Type.Missing, Microsoft.Office.Interop.Excel.XlTextParsingType.xlFixedWidth, Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierNone, Type.Missing, Type.Missing, Type.Missing, true, Type.Missing, Type.Missing, Type.Missing, myf, Type.Missing, Type.Missing, Type.Missing);
                xlAppNew.ActiveWorkbook.SaveAs(@temp_path, -4143, "", "", false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing);

希望能帮助他人节省时间。谢谢。