none
VBA 코드 VB.net 사용 엑셀 Table 데이터 영역지정하여 워드로 옮기기 RRS feed

  • 질문

  • visual basic 2015 버전을 이용하여 

    엑셀 표에있는 데이터를 워드 표에 넣는 프로그램을 코딩하고 있습니다. 

    문제는 아래와 같이 한셀에 하나의 데이터만을 옮기기 때문에 엄청난 반복 노가다가 되고있습니다. 

    WdDc.Bookmarks("Straddle_2C_Measured_2").Range.Text = Format(Exwb.Worksheets("Straddle_Test").range("D46").value, "0.00")

    이작업을 원활히 하기위하여 VBA코드중 아래와 같은 코드를 이용하여 코딩을 하려고하는데 

    ''변수선언
            Dim Excel As New Microsoft.Office.Interop.Excel.Application
            Dim Exwb As Microsoft.Office.Interop.Excel.Workbook
            '워드 변수선언
            Dim Word As New Microsoft.Office.Interop.Word.Application

            Dim WdDc As Microsoft.Office.Interop.Word.Document

    요기 아래의 핵심코드라인에서 밑줄친 라인에서 요청한 모음의 요소가 존재하지 않습니다 와 같은 에러가 발생하고 있습니다.

    아무래도 VBA코드를 VB.net 이라고하나요 ? 2015버전부터? 여기서사용하려고 하기때문에 발생하는 문제인것 같습니다. 이를 어떻게 변경해야할지.. 많은 시도를 해보았지만 실패하고 있습니다. 

    도움 부탁드립니다.

    Dim C As Object = Exwb.Worksheets("Duty Cycle").range("D45:G52")
            For i As Integer = 1 To C.rows.count
                For n As Integer = 1 To 6
                    WdDc.Tables(9).Cell(i + 2, n).Range.Text = C.cells(i, Choose(n, 1, 2, 3, 4)).value
                Next

            Next


     

    2016년 9월 27일 화요일 오전 12:32