复制指定区域内容到前贴板，并转成纯文本且保持换行

eyeyeey

有很多门店每天要录入数据到一个EXCEL表中，格式固定，只录入可变数据（如图所示）。录入后要复制所有内容以图中下面的纯文本格式，中间没空格，且保持换行方式，贴到公司微信群里。
我把所有数据弄到了一个单元格中，根据论坛中相似的情况做了一个按钮，可复制后还是带格式，贴到微信里就是个单元格的图
求助高手，这个要如何实现。




====================无意中发现了一个解决方法。
我的那个表里的方式不变，引用所有内容到一个单元格中，点击按钮会复制这个汇总的单元格。
重点来了：这里不要直接贴到微信中，而是关闭excel，然后再贴到微信中，就是纯文本了。
====================
复制到剪贴板转换成文本.rar (16.57 KB, 下载次数: 30)

2017-11-15 21:17 上传

点击文件名下载附件

一把小刀闯天下

'输出到 c:\a.txt 文本文件，自己打开看一下
Option Explicit

Sub test()
  Dim arr, i, j, s
  arr = [d3:f9]
  Open "c:\a.txt" For Output As #1
  For i = 1 To UBound(arr, 1)
    s = vbNullString
    For j = 1 To UBound(arr, 2)
      s = s & arr(i, j)
    Next
    Print #1, s
  Next
  Close #1
End Sub

eyeyeey

一把小刀闯天下 发表于 2017-11-15 21:25
'输出到 c:\a.txt 文本文件，自己打开看一下
Option Explicit

谢谢，不过我想着能省点事，直接到剪贴板中会是文本格式。

eyeyeey

无意中发现了一个解决方法。
我的那个表里的方式不变，引用所有内容到一个单元格中，点击按钮会复制这个汇总的单元格。
重点来了：这里不要直接贴到微信中，而是关闭excel，然后再贴到微信中，就是纯文本了。

一把小刀闯天下

eyeyeey 发表于 2017-11-15 21:47
谢谢，不过我想着能省点事，直接到剪贴板中会是文本格式。

'是这意思？直接输出不是更好得吗？
Option Explicit

Sub test()
  Dim arr, i, j, s As String, obj
  arr = [d3:f9]
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      s = s & arr(i, j)
    Next
    s = s & vbNewLine
  Next
  Set obj = New DataObject
  With obj
    .SetText s
    .PutInClipboard
  End With
End Sub

244281435

一把小刀闯天下 发表于 2017-11-15 22:09
'是这意思？直接输出不是更好得吗？
Option Explicit

您好，您这个代码非常好，但有我的表还有一些问题，这样导出来的TXT文件，没有显示我在Excel表中的1.星期2.百分比3.数据的小数点没有隐藏，请问可以帮调一下吗？

592rmb

好，收藏了，学习