[기타] [vb.net] CreateObject 를 이용한 Excel 컨트롤
하나를하더라도최선을
2019-10-10 18:24
10,148
0
본문
Dim Excel As Object = CreateObject("Excel.Application")
Excel.Visible = True
Dim WB As Object = Excel.Workbooks.Open(Application.StartupPath & "\csv.csv")
Dim WS As Object = WB.Worksheets(1)
Dim C As Object = WS.UsedRange
Dim R As DataRow
For i As Integer = 2 To C.rows.count
R = D.NewRow
For n As Integer = 1 To C.columns.count
R("ck") = D.Rows.Count + 1
R(C(1, n).Value.Replace(Space(1), "_")) = C(i, n).Value
Next
Next
댓글목록0