none
Visual Basic 2015 엑셀 표 데이터 워드 표에 넣기 RRS feed

  • 질문

  • 현재 사용 버전은 2015 버전을 사용하고 있습니다.

    엑셀에서 워드로 데이터를 이관하는 프로그램을 제작하고 있습니다.

    아래의 코드는 엑셀의 워크 시트를 선택하고 RANGE에서 선택한 위치의 데이터를 워드의 책갈피로 지정한 위치에 값을 넣는 코드입니다.

    WdDc.Bookmarks("RSE_Measurement_ac_8").Range.Text = RADIATED_Exwb.Worksheets("sample").range("I168").value

    제가 구현하고 싶은 방법은 아래의 코드와 같이 엑셀에서 가지고오고자하는 영역을 지정하여 데이터를 가져와서 워드의 동일한 표에 넣고자 합니다. 아래의 코드는 현재 테스트해본 결과 약간의 튜닝을 거쳐 잘돌아갑니다.

    Dim C As Object = Exwb.Worksheets("sample").range("B8:P13")
            For i As Integer = 1 To C.rows.count
                For n As Integer = 1 To 6
                    WdDc.Tables(1).Cell(i + 2, n).range = C.cells(i, Choose(n, 1, 2, 8, 9, 11, 14)).value
                Next
            Next

    위와같은 하지만 제가 원하는 코드는 Tabels(1)처럼 몇번째 테이블을 선택하는게 아닙니다. (테이블 위치가 자주바뀜)

    테이블의 위치가 바뀌기 때문에 해당 워드 테이블에 책갈피를 지정하여 값을 넣고자 합니다.

     WdDc.Bookmarks("RSE_Measurement_ac_8").Range.Text = RADIATED_Exwb.Worksheets("sample") range("B10:I168").value

    현재 확인해본결과 엑셀에서 데이터를 가져오는데는 문제가없는데 워드의 책갈피 영역에 데이터가 들어가지를 않습니다.

    결론: 엑셀의 표를 워드의 동일한 구조의 표에 데이터를 한번에 옮기고자함 현재는 하나하나 떼어서 붙이는 방식을 사용하고 있음.

    Table(1)방식을 사용하면 가능하나 테이블의 위치가 자주바뀌어 해당 테이블전체를 책갈피로 지정하여 넣어보려고 하였으나 실패~!!

    도움이절실히 필요합니다 ㅠㅠ 이것만 구현이 된다면 코드가 1/10로 줄어들텐대.. 현재 엄청난 노가다를 하고있습니다.

    2016년 8월 3일 수요일 오전 2:27