Excel에서 PB8의 텍스트 파일에 데이터 저장

Question

아래 코드를 사용하여 Excel 파일의 데이터를 Powerbuilder 8의 탭 구분 텍스트 파일로 전송합니다.하지만 시트 1의 데이터 만 전송합니다. Excel 파일의 모든 시트의 데이터를 단일 통합 텍스트 파일로 전송할 수 있습니다. 누군가 도와 주실 수 있습니까?

Code--

integer iresult 

OLEObject MyOleObject 
MyOleObject = CREATE OLEObject 
iResult = MyOleObject.ConnectToObject("D:\AP52_All.xlsx"); 
    messagebox("result",iresult) 
IF iResult = 0 THEN 

     MyOleObject.Application.Workbooks(1).SaveAs("D:\AP52_Rates_1.txt",21) 


End if 

Answer 1

당신 수이 VBA 코드와 비슷한 일을 통합 문서 내에서 워크 시트를 통해 루프 : 대신 라인의 매트의 제안에 따라

//refer total number of worksheets in the specified workbook using the Worksheets.Count property: For i = 1 To MyOleObject.Application.Worksheets.Count MsgBox MyOleObject.Application.Worksheets(i).Name Next i

Answer 2

을

MyOleObject.Application.Workbooks(1).SaveAs("D:\AP52_Rates_1.txt",21) 

다음을 사용할 수 있습니다.

book = MyOleObject.Application.Workbooks(1) 
For i = 1 To MyOleObject.Application.Worksheets.Count 
    book.Worksheet(i).SaveAs("D:\AP52_Rates_"& i & ".txt",21) 
Next 

이상으로 모든 텍스트 파일을 결합하십시오.