请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！

Posted 2023-03-19

请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！

参考技术A 这个很难的。
可以一键将单元格内容转换成文本放在剪贴板上，然后手动到微信群上粘贴。追问

我现在用的都是手工转成文本然后再转到微信上发送，这样一来我太麻烦了！所以来请帮忙了…

如何用VBA将excel表导出成文本类型的文件?

其实就是想用VBA把一个sheets里的内容 导出到一个叫 dataout.json的文件里(这个文件实际上就是一个txt文件改了下扩展名)
我用以下的语句
ActiveWorkbook.SaveAs Filename:="D:\doc\dataout.json", FileFormat:=xlText, CreateBackup:=False
结果导出的文件中 原先每个cell的位置上都有一对"" 令我非常郁闷
请问有什么别的命令么..

保存CSV格式，没有""符号。
ActiveWorkbook.SaveAs Filename:="D:\doc\dataout.json", FileFormat:=xlCSV, CreateBackup:=False追问

xlcsv的话又全都变成 , 了 我需要的是原先是什么样 现在就什么样 谢谢了

追答

你如果不用“，”号，那你怎么区分单元格？你数据只有一列吗？

追问

原先的文件如上图
导出文本文档后希望如下
所以希望没有逗号
"ornament":

"ornament1":

"name":"ornament1" ,
"ID":1 ,
"build_exp":10 ,
"build_gold":5 ,
"level_require":"lv1" ,
"horror":20
,

追答

那你还不如用代码从单元格直接读出数据，然后写入txt文件。

追问

可具体怎么做呢...

追答

Sub daochu()
Dim iStartCol As Integer
Dim iStartRow As Integer
Dim iMaxCol As Integer
Dim iMaxRow As Integer
Dim str1 As String

iStartRow = ActiveSheet.UsedRange.Row
iMaxRow = ActiveSheet.UsedRange.Rows.Count + iStartRow - 1

iStartCol = ActiveSheet.UsedRange.Column
iMaxCol = ActiveSheet.UsedRange.Columns.Count + iStartCol - 1

Open "D:\dataout.json" For Output As #1
For i = iStartRow To iMaxRow
For j = iStartCol To iMaxCol
str1 = str1 & Cells(i, j)
Next j
Print #1, str1
Next i
Close #1
End Sub

参考技术A 不想编程的话，干脆等导出文本文件之后，再全局替换一下，把""替换掉，呵呵。