EXCEL表格内添加按钮输出文本文件

来源：百度知道 编辑：UC知道 时间：2024/05/30 13:37:54
我这有10个独立的EXCEL表格，我想在每个表格里添加一个控件按钮并给此按钮指定一个宏，点击按钮的效果是：出现一个窗口（这个窗口的作用是要你选择一个文件要存储的文件夹），选好文件夹后，表格自动将最后一行数据的某几个单元格的数据,（比如这几个单元是B1,C1,F1,G1,M1，都是最后一行，单元格的数据是1，3，4，2，5）输出到一个叫“数据.txt"的文件里，在文本文件里数据的格式是”1，3，4，2，5“不用排序，每一组数据单独一行（相当于在每组数据后面加个回车符）。这样剩下9个表格也是同样如此的效果，但是也是最重要的，这10个表格的数据要输入到同一个文本文件里（也就是上面说的”数据.txt“），第一个表格的数据输出完毕后，第二个表格输出的数据在同一个文本中接着第一个表格输出的数据下面一行输出，剩下的表格一次类推。
可能我说的比较多，但是对于高手这个应该很简单，希望高手帮忙！
回答的好，另有分加
yym6211邮件已经发给你，解决了，再送你50分

建议你到EXCELHOME网站上去提问，这个问题有点复杂，需要你提供原文件，光说是不行的。
http://CLUB.EXCELHOME.NET

把表格发到yymhy@163.com看一下。
Sub 保存文本()
Dim Shell, myPath
Set Shell = CreateObject("Shell.Application")
Set myPath = Shell.BrowseForFolder(&O0, "请选择文件夹", &H1 + &H10)
If Not myPath Is Nothing Then
fn = myPath.Items.Item.Path & "\数据.txt"
Open fn For Append As 1
'表格自动将最后一行数据的某几个单元格的数据
'比如这几个单元是B1,C1,F1,G1,M1，每一组数据单独一行
MyRow = [B65536].End(xlUp).Row
While Cells(MyRow, 2) = "" '直到末尾有数据的行号MyRow
MyRow = MyRow - 1
Wend
st = Cells(MyRow, 2) & "," & Cells(MyRow, 3) & "," & Cells(MyRow, 5) _
& "," & Cells(MyRow, 6) & "," & Cells(MyRow, 13) & vbCrLf '回车＋换行
Print #1, st
Close
End If
Set Shell = Nothing