excel 利用VBA将数据粘贴到记事本？

Question

excel固定区域复制，粘贴到记事本，记事本改名存盘关闭。求宏

Answer 1

用VBA将固定区域数据复制并粘贴到记事本，记事本文件命名为a1里的值

。

以下是一个使用VBA将固定区域数据复制到记事本，并保存的示例代码：

Sub CopyToNotepad()

Dim rng As Range

Dim filePath As String

Dim fileName As String

Dim fileContent As String

Dim fileNumber As Integer

' 设置要复制的区域

Set rng = Range("A1:D10")

' 获取记事本文件路径和名称

filePath = "C:\Path\To\Save\Folder\" ' 修改为实际的保存路径

fileName = Range("A1").Value & ".txt"

' 将区域数据复制到字符串变量

fileContent = ""

For Each cell In rng

fileContent = fileContent & cell.Value & vbCrLf

Next cell

' 将数据写入记事本文件

fileNumber = FreeFile

Open filePath & fileName

For Output As fileNumber

Print #fileNumber, fileContent
Close fileNumber

' 打开记事本文件

Shell "notepad.exe " & filePath & fileName, vbNormalFocus

End Sub

请确保在运行代码之前，先在VBA编辑器中引入Microsoft Excel对象库（Tools -> References -> Microsoft Excel xx.x Object Library）以及Microsoft Scripting Runtime（Tools -> References -> Microsoft Scripting Runtime）。

在代码中，你需要修改以下几个部分：

将A1:D10替换为你要复制的实际区域。

将"C:\Path\To\Save\Folder\"替换为你要保存记事本文件的实际路径。

确保"A1"单元格中的值是你要用作记事本文件名的值。

运行此宏后，它将复制指定区域的数据。

并将其粘贴到记事本文件中，记事本文件的名称将基于"A1"单元格中的值创建。然后，它将打开记事本文件，以供查看。