求助!!我想用VB读取保存在剪切版中的Excel

Question

我把Excel的部分数据复制到了剪切板中，想用VB保存成一个任意文件，用时通过VB打开临时文件再把保存的数据复制到剪切板中，在粘帖到Excel中。
'*************************************************
Option ExplicitDim xApp As Excel.Application
Dim xBook As Excel.Workbook
Dim xSheet As Excel.WorksheetPrivate Sub cmdRead_Click()
    
    Set xApp = New Excel.Application
    Set xBook = xApp.Workbooks.Open(App.Path & "\Temp.xls")
    Set xSheet = xBook.Worksheets(1)
    
    xSheet.Cells.Select
    
    xSheet.Cells.Copy
    
    xApp.Quit
    
    Set xApp = Nothing
    
    MsgBox "读取成功！"
End SubPrivate Sub cmdSave_Click()
    
    Set xApp = New Excel.Application
    Set xBook = xApp.Workbooks.Open(App.Path & "\Temp.xls")
    Set xSheet = xBook.Worksheets(1)
    
    xSheet.Cells.Select
    
    xSheet.Cells.ClearContents
    
    xSheet.Cells.Range("A1").PasteSpecial
    
    xBook.Save
    
    xApp.Quit
    
    Set xApp = Nothing
    
    MsgBox "保存成功！"
End Sub这样写把剪切板中的数据保存成了Object了，请某位路过的大拿帮帮忙，在线等，谢谢

Answer 1

有一个剪切板对象可以使用，看看msdn

Answer 2

你说的是Clipboard把，这个对象无法实现我想要的效果

Answer 3

我想在Excel中选择，进行复制，用vb保存下来，再用vb打开保存的文件，打开Excel进行粘帖，能把原来内容格式不变的情况下复制成功！