파워빌더 엑셀 변환시 15자리 이상 0으로 변하는 문제 해결 방법

간략 설명

vom3_Exp.xls 의 문제가되는 행에 서식을 text로 정하여 아래 소스를 실행

OleObject  myoleobject, myoleobject1
Int		  rtn, rtn1
String	  ls_title,ls_Item, ls_path, ls_file, ls_range, ls_gubn, ls_file1
Long		  excel_rows, numcols,numrows
Long		  c, r, d, s, i

 ls_file  = GetCurrentDirectory() + "\vom3_Exp.xls"


myOleObject = Create OleObject           
rtn = myoleobject.connecttonewobject("excel.application") // Excel 실행 : Registry 정보 이용.


IF rtn = 0 THEN
	myOleObject.WorkBooks.Open(ls_file)        // Sheet OPEN
ELSE
	Messagebox("!", "실패")
	Destroy myoleobject 	
	Return
End If


myOleObject.Application.Visible = false  


string ls_order_no, ls_Pum_Nm, ls_Pum_Nm1, ls_Receiver, ls_Hp, ls_Zip, ls_Addr, ls_Memo
Long   ll_Order_Qty

For i = 1 to This.Rowcount()
		ls_Order_No  = this.GetitemString(i,'order_no')
		ls_Pum_Nm 	 = this.GetitemString(i,'pum_nm')		
		ls_Pum_Nm1   = this.GetitemString(i,'order_option')
		ll_Order_Qty = this.GetitemNumber(i,'order_qty')
		ls_Receiver  = this.GetitemString(i,'receiver')
		ls_Hp			 = this.GetitemString(i,'hp')		
		ls_Zip		 = this.GetitemString(i,'zip_no')
		ls_Addr  	 = this.GetitemString(i,'address')
		ls_Memo  	 = this.GetitemString(i,'memo')
		
	IF i = 1 Then
		myoleobject.application.workbooks(1).worksheets(1).cells(i,1).value = '고객주문번호'
		myoleobject.application.workbooks(1).worksheets(1).cells(i,2).value = '품목명'
		myoleobject.application.workbooks(1).worksheets(1).cells(i,3).value = '내품명'		
		myoleobject.application.workbooks(1).worksheets(1).cells(i,4).value = '박스수량'
		myoleobject.application.workbooks(1).worksheets(1).cells(i,5).value = '받는분성명'		
		myoleobject.application.workbooks(1).worksheets(1).cells(i,6).value = '받는분전화번호'
		myoleobject.application.workbooks(1).worksheets(1).cells(i,7).value = '받는분 우편번호'		
		myoleobject.application.workbooks(1).worksheets(1).cells(i,8).value = '받는분주소'
		myoleobject.application.workbooks(1).worksheets(1).cells(i,9).value = '배송메시지'		
		
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,1).value = ls_order_No
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,2).value = ls_Pum_Nm
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,3).value = ls_Pum_Nm1
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,4).value = ll_Order_Qty
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,5).value = ls_Receiver
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,6).value = ls_Hp
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,7).value = ls_Zip
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,8).value = ls_Addr
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,9).value = ls_Memo
		
	Else


		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,1).value = ls_order_No
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,2).value = ls_Pum_Nm
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,3).value = ls_Pum_Nm1
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,4).value = ll_Order_Qty
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,5).value = ls_Receiver
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,6).value = ls_Hp
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,7).value = ls_Zip
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,8).value = ls_Addr
		myoleobject.application.workbooks(1).worksheets(1).cells(i+1,9).value = ls_Memo

	End IF
Next

myOleObject.Application.Visible = True  
myoleObject.windowstate = 3     // Excel 창.  
                                // 1 : Normal, 2 : Minimize, 3 : Maximize

Destroy myoleobject 	

Return