Есть некоторый код, который копирует значения, открывает Блокнот, вставляет туда значения и скопированные значения, снова вставляет его в 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