excel - 将 Excel 中的单元格内容粘贴到记事本中？

Question

我需要一些帮助来创建批处理文件并将 Excel 中的特定范围粘贴到其中，但保留 Excel 中显示的文本。
示例:(这是我要粘贴到批处理文件中的单元格的内容)

"pushd N:\contracte\CONTRACTE NEVOI PERSONALE\Contracte nevoi personale 102501N - 105000N\
for /f ""delims="" %%a in ('dir /b /s ^| find ""104020""') do (
cd ..
xcopy ""%%a"" ""C:\Users\agrigoriu\Desktop\COPIERE\"" /E /D /Y )
@ECHO ---"

问题1: 所有内容都将显示在一行中，如下所示:Pushd N:\contracte\CONTRACTE NEVOI PERSONALE\Contracte nevoi persone 102501N - 105000N\for/f ""delims=""%%a in ('dir/b/s ^| find ""104020""') do ( cd .. xcopy ""%%a""""C:\Users\agrigoriu\Desktop\COPIERE\""/E/D/Y ) @ECHO ---"

问题 2:将原文中的每个逗号加倍

这是我到目前为止的代码，它仅将范围中的信息粘贴到记事本中(存在上述问题):

Sub test()
    'The range that contains the values
    Range("D:D").Copy
    'Start Notepad And let it recieve focus
    Shell "notepad.exe", vbNormalFocus
    'Send the keys CTRL+V To Notepad (i.e the window that has focus)
    SendKeys "^V"
End Sub

想法:一个“解决方案”是先将其粘贴到 Word 中，然后再次复制并粘贴到记事本中，但这必须适用于所有标准计算机，而且我观察到没有多少人打开了 vba 上的 Word 应用程序默认情况下。

Answer 1

最好将文本写入文件，然后在记事本中打开该文件，这样您就可以控制格式，并且不会丢弃用户剪贴板中的任何内容。

Dim hF As Integer:  hF = FreeFile()
'// get temp file name
Dim path As String: path = Environ$("TEMP") & "\DUMP.TXT"

Open path For Output As #hF
    Print #hF, Replace$(Range("D1").Text, vbLf, vbCrLf)
Close #hF

Shell "NOTEPAD.EXE " & path, vbNormalFocus

(这会将单元格中存在的\n 新行替换为\r\n，这是所有内容都出现在一行上的原因)