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
将A1:D10替换为你要复制的实际区域。
将"C:\Path\To\Save\Folder\"替换为你要保存记事本文件的实际路径。
确保"A1"单元格中的值是你要用作记事本文件名的值。