求老师完善代码，谢谢

35815901

Sub 测试复制_批发1()
Dim wjm As String
Dim i&, sj
Dim Data As String
sj = [O1:O100]
wjm = "D:\WD\PF_N " & Format(Now, "yyyymmddhhmmss") & ".txt"
Open wjm For Output As #1
For i = 4 To Sheets("报价").Range("a110").End(xlUp).Row
    Data = sj(i, 1)
    Print #1, (Data)
Next i
Close #1
Shell "Notepad.exe " & wjm, vbNormalFocus
CopyToClipbox Data
End Sub

Sub CopyToClipbox(strText As String)
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText strText
        .PutInClipboard
    End With
End Sub



装入剪贴板时，只有最后一行数据，求完善，谢谢

35815901

别沉啊，来个大神解答下啦

y1983y

要实现的功能说一下吧！"D:\WD\PF_N " & Format(Now, "yyyymmddhhmmss") & ".txt"
这个文件没有，无法测试呀！

35815901

y1983y 发表于 2018-3-11 15:10
要实现的功能说一下吧！"D:\WD\PF_N " & Format(Now, "yyyymmddhhmmss") & ".txt"
这个文件没有，无法测试 ...

报歉，你在D盘建个名为WD的文件夹就可以测试了，
需要的功能就是我在QQ聊天框里按CTRA+V能直接把TXT里的内容粘贴上，要发成文本，不要发成图片

y1983y

35815901 发表于 2018-3-12 15:14
报歉，你在D盘建个名为WD的文件夹就可以测试了，
需要的功能就是我在QQ聊天框里按CTRA+V能直接把TXT里的 ...

一切正常呀！
021 109 469           不含税    45
021 115 444 B         没货     0
021 903 016 AV        没货     0
022 103 151 D         没货     0
022 103 484 D         不含税    38
022 109 601 G         没货     0
022 109 601 H         没货     0
022 109 611 N         没货     0
022 109 611 P         没货     0
022 145 276 A         没货     0

35815901

y1983y 发表于 2018-3-13 16:19
一切正常呀！
021 109 469           不含税    45
021 115 444 B         没货     0

导入到TXT是正常的，，点了导出按钮直接按CTRL+V,这时就只有最后一条数据

y1983y

35815901 发表于 2018-3-14 17:10
导入到TXT是正常的，，点了导出按钮直接按CTRL+V,这时就只有最后一条数据

导出TXT文件，ctrl+A,在Ctrl+C，然后Ctrl+V在QQ对话框，我这里试验一切正常的。

35815901

y1983y 发表于 2018-3-15 15:03
导出TXT文件，ctrl+A,在Ctrl+C，然后Ctrl+V在QQ对话框，我这里试验一切正常的。

现在就是想省略ctrl+A,在Ctrl+C,这两个，

y1983y

35815901 发表于 2018-3-17 11:11
现在就是想省略ctrl+A,在Ctrl+C,这两个，

哦，明白了。

y1983y

Sub 测试复制_批发1()
Dim wjm As String
Dim i&, j&, sj
Dim Data As String
    Dim Mydata
sj = [O1:O100]
wjm = "D:\WD\PF_N " & Format(Now, "yyyymmddhhmmss") & ".txt"
Open wjm For Output As #1
For i = 4 To Sheets("报价").Range("a110").End(xlUp).Row
Data = Data & sj(i, 1) & Chr(13) & Chr(10)
Next i
    Print #1, (Data)
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText Data
        .PutInClipboard
    End With
    Close #1
'   Shell "Notepad.exe " & wjm, vbNormalFocus
End Sub