[VB6] Scaricare il buffer

[fradipa]

Salve ragazzi,
nella mia procedura eseguo ad ogni iterazione un copia e incolla; avrei la necessità di liberare il buffer degli appunti ogni volta (infatti ad ogni giro mi compare un messaggio che mi chiede se voglio mantenere il contenuto degli appunti oppure svuotarlo).
Ho provaro a risolvere il problema con una SendKey ma nulla cambia!
Esiste qualche comando che mi consente di scaricare sto benedetto buffer?
Grazie mille

[oregon]

Mostra il codice che usi ...

[fradipa]

Ecco il codice (considera che c'è un cilclo esterno, per cui la routine viene iterata) :


Private Sub Form_Load()
Dim MYExcel As New Excel.Application
Dim Myrange As Excel.Range
Dim Mysheet As Excel.Worksheet

Dim ppt As New PowerPoint.Application

Set MYExcel = New Excel.Application
Set ppt = New PowerPoint.Application

MYExcel.Workbooks.Open "D:\Doc\Applicazioni Au\Sviluppo Grafico Sito\Doc\CALABRIA_prova.xls"
Set Mysheet = MYExcel.ActiveWorkbook.Sheets("foglio3")

Mysheet.Select
Mysheet.Copy
Set Myrange = Mysheet.Cells
Myrange.Copy
ppt.Activate
ppt.Presentations.Add
ppt.ActivePresentation.Slides.Add 1, ppLayoutBlank
ppt.ActivePresentation.Slides.Item(1).Shapes.Paste

ppt.ActivePresentation.SaveAs "D:\Acquisti\pippa", ppSaveAsGIF
'ppt.ActivePresentation.SaveAs "D:\Acquisti\" + "'" & zonars & "'" + "'" & mydata & "'""", ppSaveAsGIF
MYExcel.SendKeys "{TAB}+ {ENTER}"

MYExcel.Quit
Set MYExcel = Nothing
'ppt.ActivePresentation.Close
ppt.Quit
Set ppt = Nothing
Unload Me
End Sub


grazie