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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
329 | FUNCTION Z_BAPIALE_SEND. | sapjoy | 2009.02.10 | 2420 |
328 | REPORT zale_001 . | sapjoy | 2009.02.10 | 2470 |
327 | REPORT ZBAPI_002. | sapjoy | 2009.02.09 | 2590 |
326 | FUNCTION Z_BAPI_REQ_FUNCLOC. | sapjoy | 2009.02.05 | 2421 |
325 | REPORT ZBAPI_ALE | sapjoy | 2009.02.05 | 2333 |
324 | zbapi_java | sapjoy | 2009.02.02 | 2693 |
323 | FUNCTION Z_BAPI_ASSETNAME_SEARCH | sapjoy | 2009.01.30 | 2898 |
322 | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
321 | REPORT ZSMARTFORMS_07. | sapjoy | 2009.01.22 | 2389 |
320 | REPORT zBADI_FIND | sapjoy | 2009.01.15 | 2724 |
319 | REPORT ZBADI_003. | sapjoy | 2009.01.14 | 2403 |
318 | REPORT zbadi_002. | sapjoy | 2009.01.09 | 2545 |
317 | REPORT zbadi_001 | sapjoy | 2009.01.06 | 2527 |
316 | doi_excel.xls | sapjoy | 2008.12.26 | 2175 |
315 | report zsapdoi_005. | sapjoy | 2008.12.26 | 2978 |
314 | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
313 | report zsapdoi_003. | sapjoy | 2008.12.26 | 2569 |
312 | report zsapdoi_002. | sapjoy | 2008.12.26 | 4405 |
» | Sub DOI_EXCEL_MACRO() | sapjoy | 2008.12.26 | 3312 |
310 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |