作者：绿色风
分类：
时间：2022-08-17
浏览：293
楼主
wcymiss |
Q：如何在选定区域（可以多重）后，点击按钮，将选定区域的内容追加复制到txt文本文件？
A：制作按钮，写入以下代码：
- Private Sub CommandButton1_Click()
- '将选定区域的内容追加复制到txt文本文件
- '先加载引用Micrsoft forms2.0 object library
- Dim str$, f$, mydata As New DataObject
- Application.ScreenUpdating = False
- f = Dir("C:\a.txt")
- If f <> "" Then
- Open "C:\a.txt" For Input As #1
- str = StrConv(InputB(LOF(1), 1), vbUnicode)
- Close #1
- End If
- Open "C:\a.txt" For Output As #1
- If Len(str) > 0 Then Print #1, str
- arr = Split(Selection.Address, ",")
- For i = 0 To UBound(arr)
- Range(arr(i)).Copy
- mydata.GetFromClipboard
- Print #1, mydata.GetText;
- Next
- Close #1
- Set mydata = Nothing
- Application.CutCopyMode = False
- Application.ScreenUpdating = True
- End Sub
 将选定区域的内容追加复制到txt文本文件.rar
|
2楼
wcymiss |
- Private Sub CommandButton1_Click()
- '将指定区域的数据追加到txt文本
- '先加载引用Micrsoft forms2.0 object library
- Dim str$, f$, mydata As New DataObject
- Application.ScreenUpdating = False
- Open "C:\a.txt" For Append As #1
- arr = Split(Selection.Address, ",")
- For i = 0 To UBound(arr)
- Range(arr(i)).Copy
- mydata.GetFromClipboard
- Print #1, mydata.GetText;
- Next
- Print #1, vbCr
- Close #1
- Set mydata = Nothing
- Application.CutCopyMode = False
- Application.ScreenUpdating = True
- End Sub
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一