VBA从记事本粘贴为未格式化的文本

Question

有一些代码可以复制值，打开记事本，将值粘贴到其中，然后将值粘贴到Excel中。粘贴问题仍然是Unicode文本，我需要无格式文本。有人遇到类似问题或知道如何将其粘贴为未格式化的文本吗？手动在PasteSpecial部分中有选择文本的选项。

planas.Sheets("Buy").Range("D3:I26").Copy '1B
'// Start Notepad with focus
Shell "notepad.exe", vbNormalFocus

'// Send the standard CTRL+V. Pastes to the
SendKeys "^V"

'// Send the standard CTRL+A. Mark all values
SendKeys ("^a")

'// Copy from Notepad
SendKeys ("^c")

'// Paste to Excel
sablonas.Sheets(1).Range("B10").PasteSpecial xlPasteValues