Dim R3Table As Object
Dim wordTbi As Object
Public Sub DOI_EXCEL_MACRO()
Dim lv_count As Long
Dim i As Integer
Set R3Table = ThisWorkbook.Container.LINKSERVER.ITEMS("GT_SFLIGHT").Table
Worksheets("1").Select
Set wordTbi = ThisWorkbook.Worksheets(1)
lv_count = R3Table.RowCount
For i = 1 To lv_count
wordTbi.Cells(i + 1, 1) = CVar(R3Table.Value(i, 1))
wordTbi.Cells(i + 1, 2) = CVar(R3Table.Value(i, 2))
Next i
End Sub
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
650 | REPORT Z07_010. | sapjoy | 2006.12.07 | 2527 |
649 | REPORT Z07_011 [1] | sapjoy | 2006.12.07 | 2183 |
648 | REPORT Z07_012 | sapjoy | 2006.12.08 | 2326 |
647 | REPORT Z07_013 | sapjoy | 2006.12.08 | 2544 |
646 | REPORT Z07_014 | sapjoy | 2006.12.08 | 2098 |
645 | REPORT Z07_015 | sapjoy | 2006.12.08 | 2426 |
644 | REPORT Z07_017 | sapjoy | 2006.12.08 | 2609 |
643 | REPORT Z07_018 | sapjoy | 2006.12.08 | 2341 |
642 | REPORT Z07_019 | sapjoy | 2006.12.08 | 2284 |
641 | REPORT Z07_020 | sapjoy | 2006.12.08 | 2152 |
640 | REPORT Z07_021 [2] | sapjoy | 2006.12.08 | 2453 |
639 | REPORT Z07_024 | sapjoy | 2006.12.08 | 2472 |
638 | REPORT Z07_022 | sapjoy | 2006.12.08 | 2070 |
637 | REPORT Z07_023 | sapjoy | 2006.12.08 | 2255 |
636 | REPORT Z07_026 [3] | sapjoy | 2006.12.08 | 2632 |
635 | REPORT Z07_027 [3] | sapjoy | 2006.12.08 | 2376 |
634 | REPORT Z07_030 [4] | sapjoy | 2006.12.08 | 2438 |
633 | REPORT Z07_031 [2] | sapjoy | 2006.12.08 | 2309 |
632 | REPORT Z07_033 | sapjoy | 2006.12.08 | 2317 |
631 | REPORT z09_002 | sapjoy | 2006.12.15 | 2602 |