Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 转换带有千位分隔符和小数点的数字,不在“中”&引用;_Vba_Excel - Fatal编程技术网

Vba 转换带有千位分隔符和小数点的数字,不在“中”&引用;

Vba 转换带有千位分隔符和小数点的数字,不在“中”&引用;,vba,excel,Vba,Excel,我想将启用.xlsm宏且带有Excel VBA的工作簿转换为.txt文件 相关Excel图表包含带千位分隔符和小数点的数字(例如123456789.01) 我使用此VBA代码在.txt中进行转换: Sub convert2txt() Dim filename As String filename = Application.GetSaveAsFilename("list.txt", fileFilter:="Text Files (*.txt), *.txt") If f

我想将启用.xlsm宏且带有Excel VBA的工作簿转换为.txt文件

相关Excel图表包含带千位分隔符和小数点的数字(例如123456789.01)

我使用此VBA代码在.txt中进行转换:

Sub convert2txt()
    Dim filename As String
    filename = Application.GetSaveAsFilename("list.txt", fileFilter:="Text Files (*.txt), *.txt")
    If filename <> "" Then
        ThisWorkbook.Sheets("Chart1").SaveAs filename, xlTextWindows
    End If
End Sub
Sub-convert2text()
将文件名设置为字符串
filename=Application.GetSaveAsFilename(“list.txt”,fileFilter:=“文本文件(*.txt),*.txt”)
如果文件名为“”,则
此工作簿.Sheets(“图表1”).SaveAs文件名,xlTextWindows
如果结束
端接头
但是我得到了一个.txt文件,其中的数值是双引号
(即
“123456789.01”


如何保存文本文件,使数字不被视为字符串?

将Excel中的单元格格式化为普通数字,这将删除数千个分隔符,然后将其导出。谢谢,这很有效!!另一个问题:是否有VBA命令将“a”更改为“b”,将“b”更改为“a”?我不知道这是什么意思。我也不知道你们在感谢谁,也不知道什么起作用了。谢谢你们!我所有的问题都解决了!