excel - 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