PPT与Excel完美结合做练习

PPTExcelExcelExcelSheetlExcelPPTPPTVBAExcelPPTVBAExcelExcelPPTPowerPoint2003222VBAExcelPPTVBAVisualBasicMicrosoftVisualBasicVBA33PublicxIAppxlBookxISheeti43Excel■iExcel5SubESub5VBASubEndSubSetxIApp=CreateObject('Excel.Application')ExcelxIApp.Visible=FalseExcelSetxlBook=xlApp.Workbooks.Open(CurDir()+'\book1.xls')Excelbook1.xlsCurDir()SetxlSheet=xlBook.Worksheets(1)1Sheet1xlSheetActivePresentation.Slides(1)1.Shapes(1)1TextFrame.TextRange.TextActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text11xlSheet.Range('a'&i)Sheet1i=3A3B3Replace(xlSheet.Range('b'&i),Chr(10),Chr(13))&ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text=xlSheet.Range('a'&i)&''&Replace(xlSheet.Range('b'&i),Chr(10),Chr(13))SheetlA3B3i=i+13i+14IFxlSheet.Range('a'&i)msgbox()ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text=44VBAVBA1VBA555********************************PubigxIApp,xlBook,xISheetPubliciAsIntegerSub()SetxIApp=CreateObject('Excel.Application')xlApp.Visible=FalseSetxlBook=xlApp.Workbooks.Open(CurDir()+'\book1.xls')SetxlSheet=xlBook.Worksheets(1)i=3ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text=xlSheet.Range('a'&i)&''&Replace(xlSheet.Range('b'&i),Chr(10),Chr(13))EndSubSub()i=i+1IfxlSheet.Range('a'&i)''ThenActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text=''ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text=xlSheet.Range('a'&i)&''&Replace(xlSheet.Range('b'&i),Chr(10),Chr(13))ElseMsgBox('')EndIfEndSubSub()i=i-1IfxlSheet.Range('a'&i)''OrxlSheet.Range('a'&i)''ThenActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text=''ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text=xlSheet.Range('a'&i)&''&Replace(xlSheet.Range('b'&i),Chr(10),Chr(13))ElseMsgBox('')EndIfEndSubSub()ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text=xlSheet.Range('c'&i)EndSubSub()xlBook.Close(False)xlApp.QuitSetxlApp=NothingEndSub