[ 파워빌더.엑셀 - Export 5 ]

 

 

☞   

 

 

요새 엑셀변환 문제로 테스트를 하다가 찾아낸 방법입니다.

(검색을 안 해봐서..-- 이미 올라와 있을지도..;;)

 

아래와 같이 적용하였을 경우 엑셀 전환 후 숫자필드의 자릿수 때문에 이상하게 보여지는 것도 해결이 가능하네요.

<?xml:namespace prefix = o />

 

String   s_FileDir, s_FileName

Integer  s_Result

 

s_Result = GetFileSaveName("Select File", s_FileDir, s_FileName, "Excel", "Excel Files (*.xls), *.xls")

 

If s_result <> 1 Then RETURN

 

dw_list.setredraw(false)

//dw내의 editmask가 설정이 되어 있지 않으면 문제 발생 – default로 지정되는 xxxxxxxxxxxxxxxxxx 로라도 선택이 되어 있어야 함.

String ls_mask[], ls_col[]

Long ll_i

 

ls_col[1] = 'sim_no'  //적용할 컬럼

ls_col[2] = 'phone_id'   //적용할 컬럼

 

For ll_i = 1 To Upperbound(ls_col)

           ls_mask[ll_i] = dw_list.describe(ls_col[ll_i] + ".editmask.mask")

           dw_list.Modify( ls_col[ll_i] + ".EditMask.Mask= '" + charA(28) + ls_mask[ll_i] + "'")         

Next

 

dw_list.saveasascii(s_FileDir)

 

//원래 상태의 editmask로 돌려놓음..

For ll_i = 1 To Upperbound(ls_col)

        dw_list.Modify( ls_col[ll_i] + ".EditMask.Mask= '"  + ls_mask[ll_i] + "'")  

Next

 

dw_list.setredraw(true)

Posted by 농부지기
,