靠谱朗驰娱乐体育

首先，在MS Excel中创建一个含有不同OLE对象的工作簿。

我们在第一个工作表中添加一个MS Word文档，一个Excel工作簿和一个PDF文档作为OLE对象。

然后，使用Aspose.Cells从工作簿中提取的OLE对象，代码如下：

[C#]

 //Instantiating a Workbook object
//Open the template file.
Workbook workbook = new Workbook(@"c:\oleFile.xls");

//Get the OleObject Collection in the first worksheet.
Aspose.Cells.Drawing.OleObjectCollection oles =

workbook.Worksheets[0].OleObjects;

//Loop through all the oleobjects and extract each object

in the worksheet.
for (int i = 0; i < oles.Count; i++)
{

    Aspose.Cells.Drawing.OleObject ole = oles[i];

    //Specify the output filename.
    string fileName = "c:\\outOle" + i + ".";

    //Specify each file format based on the oleobject

format type.
    switch (ole.FileType)
    {

        case OleFileType.Doc:
              fileName += "doc";
&nbsp;           break;

        case OleFileType.Xls:
            fileName += "Xls";
            break;

        case OleFileType.Ppt:
            fileName += "Ppt";
  &nbsp; &nbsp;       break;

        case OleFileType.Pdf:
            fileName += "Pdf";
 &nbsp;          break;

        case OleFileType.Unknown:
            fileName += "Jpg";
       &nbsp;    break;

        default:
            //........
            break;
    }

    //Save the oleobject as a new excel file if the object

type is xls.
    if (ole.FileType == OleFileType.Xls)
    {

        MemoryStream ms = new MemoryStream();

     ;   ms.Write(ole.ObjectData, 0, ole.ObjectData.Length);

      &nbsp; Workbook oleBook = new Workbook();

  ;      oleBook.Open(ms);

        oleBook.Worksheets.IsHidden = false;

        oleBook.Save(@"C:\outOle" + i + ".xls");

    }

   //Create the files based on the oleobject format types.
    else
    {

        FileStream fs = File.Create(fileName);

 &nbsp;      fs.Write(ole.ObjectData, 0, ole.ObjectData.Length);

 &nbsp;  &nbsp;   fs.Close();

    }

}

[VB]

 'Instantiating a Workbook object
'Open the template file.
Dim workbook As New Workbook("c:\OleFile.xls")

'Get the OleObject Collection in the first worksheet.
 Dim oles As Aspose.Cells.Drawing.OleObjectCollection =

workbook.Worksheets(0).OleObjects

'Loop through all the oleobjects and extract each object in

the worksheet.

For i As Integer = 0 To oles.Count - 1

  ;  Dim ole As Aspose.Cells.Drawing.OleObject = oles(i)

    'Specify the output filename.
    Dim fileName As String = "C:\outOle" & i & "."

    'Specify each file format based on the oleobject format

type.
    Select Case ole.FileType

     &nbsp;&nbsp; Case OleFileType.Doc

          &nbsp; fileName &= "doc"

        Case OleFileType.Xls

          &nbsp; fileName &= "Xls"

      ;  Case OleFileType.Ppt

    &nbsp;  &nbsp;    fileName &= "Ppt"

    &nbsp;   Case OleFileType.Pdf

            fileName &amp;= "Pdf"

&nbsp;       Case OleFileType.Unknown

   &nbsp;        fileName &= "Jpg"

        Case Else
            '........

    End Select

&nbsp;   'Save the oleobject as a new excel file if the object

type is xls.
    If ole.FileType = OleFileType.Xls Then

    &nbsp;   Dim ms As New MemoryStream()

&nbsp;       ms.Write(ole.ObjectData, 0, ole.ObjectData.Length)

        Dim oleBook As New Workbook()

     &nbsp;  oleBook.Open(ms)

&nbsp;       oleBook.Worksheets.IsHidden = False

        oleBook.Save("C:\outOle" & i & ".xls")

        'Create the files based on the oleobject format

types.

    Else

      ;  Dim fs As FileStream = File.Create(fileName)

  &nbsp;     fs.Write(ole.ObjectData, 0, ole.ObjectData.Length)

    ;    fs.Close()

    End If

Next i
 
Result Task 1:

代码运行后，提取的OLE对象如下图：