利用VBA怎么把EXCEL的数据导入记事本

Question

如题所述

Answer 1

以下内容来自网络

保存成txt
不用先打开记事本 再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

我帮你写vba程序