0
아래의 코드는 Vb.net
한 핵심 기록에 Excel
파일로도C#에서 Excel 시트의 데이터를 바인딩하는 방법?
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 = "RepFile\Dispatch" & 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
도움말은 매우이다 C#
로 변환 할 수
나는이 코드를 필요 .csv
파일에 결합하는 데이터 집합을 결합하는 것입니다 thanks