求助 excel新建文本文档并添加内容

heike2004 · 发表于 2016-12-28 17:33

请教
一个excel工作簿，内有一张工作表，如何新建一个同名文本文件，把工作表上的两列内容复制粘贴到文本文件中，见附件。
谢谢

heike2004 · 发表于 2016-12-28 20:54

多帮忙啊

顶一下

小花鹿 · 发表于 2016-12-28 21:08

heike2004 发表于 2016-12-28 20:54
多帮忙啊

顶一下

这个级别还问这种问题？.....................................................................................................

lsc900707 · 发表于 2016-12-28 21:27

heike2004 发表于 2016-12-28 20:54
多帮忙啊

顶一下

If ActiveSheet.[a1] <> "FBFBM" Then
MsgBox "当前工作表格式不规范，不能导出。 ", 48, "错误"
Exit Sub
End If
nRow = Range("a1048576").End(xlUp).Row
nL = Range("a1").End(xlToRight).Column
Arr = Range("a1").Resize(nRow, nL).Value

heike2004 · 发表于 2016-12-29 14:56

lsc900707 发表于 2016-12-28 21:27
If ActiveSheet.[a1] "FBFBM" Then
MsgBox "当前工作表格式不规范，不能导出。 ", 48, "错 ...

不好意思，可能是我没说清楚
我的想法是在工作表上做一个按钮，点击按钮生成一个文本文件，文本文件的内容是工作表的两列文字，文字的排列如附件样式
请指导一下

heike2004 · 发表于 2016-12-29 14:58

小花鹿发表于 2016-12-28 21:08
这个级别还问这种问题？............................................................................ ...

不好意思，可能是我没说清楚
我的想法是在工作表上做一个按钮，点击按钮生成一个文本文件，文本文件的内容是工作表的两列文字，文字的排列如附件样式
请指导一下

fxl447098457 · 发表于 2016-12-29 15:14

heike2004 发表于 2016-12-29 14:58
不好意思，可能是我没说清楚
我的想法是在工作表上做一个按钮，点击按钮生成一个文本文件，文本文件的 ...

Sub txtdata()
Dim sFilename As String, Arr As Variant, rng As Variant
Arr = ActiveSheet.UsedRange
sFilename = ThisWorkbook.Path & "\工程预算.txt"
Open sFilename For Output As #1
For Each rng In Arr
If Len(rng) Then Print #1, rng
Next rng
Close #1
End Sub

复制代码

fxl447098457 · 发表于 2016-12-29 15:16

heike2004 发表于 2016-12-29 14:58
不好意思，可能是我没说清楚
我的想法是在工作表上做一个按钮，点击按钮生成一个文本文件，文本文件的 ...

见附件。。txt在excel同一路径下。

工程预算.rar (13.76 KB, 下载次数: 20)

heike2004 · 发表于 2016-12-29 15:46

fxl447098457 发表于 2016-12-29 15:16
见附件。。txt在excel同一路径下。

很好，谢谢帮助
能讲一讲代码的每一句都是什么意思吗？

heike2004 · 发表于 2016-12-29 15:51

fxl447098457 发表于 2016-12-29 15:14

高大上，看不懂
#1什么意思？

		自动登录	找回密码
密码			免费注册

[求助] 求助 excel新建文本文档并添加内容

最新热点 /1