excel - ExcelからPB8のテキストファイルにデータを保存する

Question

以下のコードを使用して、Excel ファイルのデータを Powerbuilder 8 のタブ区切りテキスト ファイルに転送していますが、シート 1 からのデータのみを転送しています。Excel ファイルのすべてのシートのデータを転送したい1 つの統合されたテキスト ファイルに。誰か助けてくれませんか？

コード -

 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

その後、すべてのテキスト ファイルを結合します。