如何在 C# 中的 Excel 工作表中绑定数据



下面的代码是将数据集绑定到Excel文件中Vb.net
一个核心记录也绑定到.csv文件中
我需要将此代码转换为C#

 Public Function Write2CSV(ByVal ExlDs As Data.DataSet) As String
            Dim strfilename As String, i As Integer = 0, p As Integer = 0
            Dim dRandomNo As Integer = Rnd(1) * 10000
            Dim sAppPath As String = System.AppDomain.CurrentDomain.BaseDirectory
            Dim sFile As String = "RepFileDispatch" & Format(Now, "ddMMyyyyHHmmss") & dRandomNo & ".csv"
            Dim sOpnURL As String
            TextBox1.Text = sFile
            strfilename = sAppPath & "Reports" & sFile
            Dim swObj As StreamWriter
            Try
                swObj = File.AppendText(strfilename)
                For Each colObj As DataColumn In ExlDs.Tables(0).Columns
                    swObj.Write(colObj.ColumnName & ",")
                Next
                swObj.WriteLine()
                For intRow As Integer = 0 To ExlDs.Tables(0).Rows.Count - 1
                    For intCol As Integer = 0 To ExlDs.Tables(0).Columns.Count - 1
                        swObj.Write(ExlDs.Tables(0).Rows(intRow)(intCol) & ",")
                    Next
                    swObj.WriteLine()
                Next
                Dim strFileURL() As String = Split(sFile, "")
                sOpnURL = "RepFile/" & strFileURL(UBound(strFileURL))
                'sbObj.Save(strfilename)
            Catch ex As Exception
                'bError = True
                Dim ErrContext As HttpContext = HttpContext.Current
                ErrContext.Items.Add("ErrDesc", ex.Message)
                ErrContext.Items.Add("ErrSrc", ex.Source)
                ErrContext.Items.Add("ErrInfo", ex.StackTrace)
                ErrContext.Items.Add("ErrFile", "T")
            Finally
                'sbObj = Nothing
                swObj.Close()
                swObj = Nothing
            End Try
            Return sOpnURL
        End Function

高度赞赏帮助

你好@Manohar_A我认为你需要的是将你的代码翻译成C#
如果是这种情况,您就有函数的C#版本。

    public string Write2CSV(System.Data.DataSet ExlDs)
    {
        using (ExlDs)
        {
            string strfilename;
            var Rnd = new Random();
            var dRandomNo = Rnd.Next(1, 10000);
            var sAppPath = System.AppDomain.CurrentDomain.BaseDirectory;
            var sFile = @"RepFileDispatch" + DateTime.Now.ToString("ddMMyyyyHHmmss") + dRandomNo + ".csv";
            var sOpnURL = string.Empty;
            TextBox1.Text = sFile
            strfilename = sAppPath + @"Reports" + sFile;
            StreamWriter swObj = null;
            try
            {
                swObj = File.AppendText(strfilename);
                foreach (System.Data.DataColumn colObj in ExlDs.Tables[0].Columns)
                {
                    swObj.Write(colObj.ColumnName + ",");
                }
                swObj.WriteLine();
                for (int intRow = 0; intRow < ExlDs.Tables[0].Rows.Count - 1; intRow++)
                {
                    for (int intCol = 0; intCol < ExlDs.Tables[0].Columns.Count - 1; intCol++)
                    {
                        swObj.Write(ExlDs.Tables[0].Rows[intRow][intCol] + ",");
                    }
                }
                var strFileUrl = Strings.Split(sFile, "\");
                sOpnURL = "RepFile/" + strFileUrl[strFileUrl.Length];
                //sbObj.Save(strfilename);
            }
            catch (Exception ex)
            {
                //bError = true;
                var ErrContext = HttpContext.Current;
                ErrContext.Items.Add("ErrDesc", ex.Message);
                ErrContext.Items.Add("ErrSrc", ex.Source);
                ErrContext.Items.Add("ErrInfo", ex.StackTrace);
                ErrContext.Items.Add("ErrFile", "T");
            }
            finally
            {
                //sbObj = null;
                swObj.Close();
                swObj = null;
            }
            return sOpnURL;
        }
    }

请注意,您将需要以下imports

using Microsoft.VisualBasic;
using System;
using System.IO;
using System.Web;

请尝试一下,让我知道您的评论

最新更新