VBA常用对象属性示例大全 电子书

win2009

根据论坛向您问好 大侠的帖子整理，因为下载那个帖子附件无法解压，也不知道其结构如何
原帖地址：http://club.excelhome.net/thread-226582-1-1.html
制作方法：下载个chm软件
用下面的代码，逐个生成文本文件
常用对象属性示例大全.rar (459.6 KB, 下载次数: 5213)

2012-11-6 12:16 上传

点击文件名下载附件

Sub 导出数据到文本()
    Dim arr,  Name As String
    arr = Selection
    Selection.Copy

    Dim MyData As DataObject, MyStr As String
    Set MyData = New DataObject
    MyData.GetFromClipboard    '获得剪切板内容
    MyStr = MyData.GetText     '赋值给变量

    Name = Replace(Replace(arr(1, 1), ":", ""), "/", "")
    Open "D:\1245\工作表探密\" & Name & ".txt" For Output As #1
    Print #1, MyStr
    Reset
    Application.CutCopyMode = False
End Sub
        

oldyuan

这个好东西。谢谢楼主！

liucqa

这个很不错，值得留存                                         

zhouxiao

好东西,谢谢楼主,我收藏了

mchscofield

谢谢楼主,我收藏了

ljx63426

很不错，值得留存,谢谢楼主.

墨弋

不错，值得留存,谢谢楼主.

。群_。

收起了，多谢！

isoyoung

原帖按顺序下载后分别编号为：2，1
即可解压
原帖39楼的文件按顺序下载后，分别编号：4，1，2，3
即可解压

snorebaby

学习一下  ，谢谢楼主分享