[ Excel 관려 ]

Long ll_ret

String ls_ret

String ls_string1

oleobject myoleobject

myoleobject = create oleobject

ll_ret = myoleobject.connecttoobject("c:\a.xls")

Messagebox("Result!",string(ll_ret))

myoleobject.Application.Visible = TRUE

// 쓰기

myoleobject.application.workbooks(1).worksheets(1).cells(1,1).value="Test"

// 읽기

ls_ret = myoleobject.application.workbooks(1).worksheets(1).cells(1,1).value

/* 추가 사항 */

//Excel File Open

myOleObject.WorkBooks.Open("c:\a.xls")

// Sheet Name

ls_string1 = myOleObject.sheets[1].Name

// Sheet 자동마춤

myOleObject.Worksheets[1].Columns.AutoFit

//읽기

ls_ret = myOleobject.application.workbooks(1).worksheets(1).Range( "A1" ).Value

//쓰기

myOleobject.application.workbooks(1).worksheets(1).Range( "A1" ).Value = 'Test'

// 시트의 이름을 지정

myoleobject.Sheets[1].Name = "Sheet명"

//저장

myoleobject.application.workbooks(1).Save()

//다른이름으로 저장

myoleobject.application.workbooks(1).SaveAs("c:\b.xls")

//새로열기

myoleobject.connecttonewobject("excel.application")

//파일열기

myoleobject.WorkBooks.Opentext('c:\tmpgoodef.xls')

//타이틀바 바꾸기

myoleobject.Application.caption = "My Excel"

// 첫번째 Row 선택후 처리

myoleobject.rows("1:1").select

//굵은글씨

myoleobject.selection.font.bold = true

//이탤릭으로

myoleobject.selection.font.italic = true

//글씨색

myoleobject.selection.font.Color = RGB (128,128,0)

//보더색

myoleobject.selection.Borders.Color = RGB (0,0,128)

//워드랩

myoleobject.selection.wraptext = true

//가로정렬

myoleobject.selection.horizontalalignment = true

//세로정렬

myoleobject.selection.verticalalignment = true

//상태바 표시

myoleobject.statusbar = " My Status"

//첫번째Row를 프린트시 반복으로 (헤더로 표시)

myoleobject.Activesheet.PageSetup.PrintTitleRows = "$1:$1"

//첫번째쉬트를 복사 - 자세한 내용은 엑셀도움말을 참조

myoleobject.Worksheets(1).copy

//저장없이 닫기

myoleobject.WorkBooks(1).Close(false)

//연결해제

myoleobject.DisConnectObject()

destroy myoleobject

------------------------------

oleExcel.ActiveWorkbook.saveas("파일명", 56)

56이면 97~2003용

51이면 2007용

--------------------------------

선그리기...

OleExcel.application.workbooks[1].worksheets[1].Range('A4:D'+String(j)).Borders(1).LineStyle = 1