你可以根据下面的代码进行修改。
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
这段代码是，把当前激活工作表的所有内容以行为单位写入一个文本文件,
并把这个文件保存在这个excel工作薄的同目录下。
文本文件的名字是工作簿名 工作表名。txt。
答：1、在WORD中打开这个文件进行替换操作，主要是把格式规范，便于导入EXCEL中。如把每次记录换行，把“2007”替换为“^p2007”等，进行几次有规律的替换...详情>>
答：这个问题牵扯的面很大，涉及到软件的破解问题，三言两语说不清的。买破解版的软件应该没有这个问题了。要学破解的话，必须会用汇编语言。暂时说这么多。详情>>
问：windows98与windows2000怎样设置才能网络共享？
答：在网上邻居中设置，就能解决。详情>>
