Question

请用vba打开记事本后，怎样通过vba把excel中数据copy到记事本中，并保存。关闭记事本。谢谢

Answer 1

不用先打开记事本 再copy数据进去.那样比较麻烦,给你个写转文本文件的例子
下面的代码 把当前激活工作表的所有内容以行为单位写入一个文本文件,并把这个文件保存在这个excel工作薄的同目录下.文本文件的名字是工作簿名+工作表名.txt

Sub 转文本()
Dim rng As Range, Hrng As Range
ipath = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "-" & ActiveSheet.Name & ".txt"
Open ipath For Output As #1
For Each rng In ActiveSheet.UsedRange.Rows
arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(rng))
istr = Join(arr, " ")
Print #1, istr
Next
Close #1
End Sub

Answer 2

应该发个excel表范例，别人才好帮你设啊。