자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 13,301회 작성일 19-10-10 18:24

본문



        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



 

댓글목록

등록된 댓글이 없습니다.