[PowerBuilder] DataWindows to Excel

/*저장하는 칼럼의 셀에 맞혀 셀 위치에 (1:일반),(2:텍스트),(3:날짜) 셋팅

long Array1[], Array2[]
Array1[] = {1,1,2,2,1} //ex = {A,B,C,D,E} 
Array2[] = {1,1,2,2,1} //엑셀에 값이 먼저 들어가기전에 형식지정을 먼저 해주어 ' 0 ' 값이 사라지는것을 막습니다.

 OleObject oleExcel , oleQuery
long li_rc

 //하나의 Excel에 저장하려는 datawindow name 과 .txt파일을 먼저 저장할 경로 지정
dw_1.SaveAs('c:\t1.txt', TEXT!, True) 

//이제 Excel 생성 - .txt로 생성한 파일을 Excel로 이동
oleExcel = Create OleObject
li_rc = oleExcel.ConnectToNewObject("excel.application")
IF li_rc <> 0 THEN
 MessageBox("Information!", "File Conversion Failed!")
 MessageBox('오류!', 'Excel을 구동하면서 오류가 발생했습니다.', stopsign!)
 Destroy oleExcel
 RETURN -1
end if

oleExcel.WorkBooks.Add()
oleExcel.ActiveWorkbook.Sheets.Add.Name = 't1'
oleQuery = oleExcel.ActiveWorkbook.Sheets('t1').QueryTables.Add('TEXT;c:\t1.txt'   , oleExcel.ActiveWorkbook.Sheets('t1').Cells(1,1) )
oleQuery.TextFileColumnDataTypes = Array1
oleQuery.refresh()

oleExcel.Application.Visible = True