• 쇼핑몰
  • 커뮤니티
  • 북마크

vb.net




[기타] [vb.net] CreateObject 를 이용한 Excel 컨트롤

하나를하더라도최선을
2019.10.10 18:24 1,421 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

등록된 댓글이 없습니다.