在 Excel 中将单元格的内容保存到不带引号的 csv答案

【问题标题】：Save the contents of a cell to a csv without quotes in Excel在 Excel 中将单元格的内容保存到不带引号的 csv
【发布时间】：2020-04-14 23:19:15
【问题描述】：

我正在尝试使用 VBA 创建一个 csv 文件（不带引号） - 文件的唯一内容应该是名为“MetricValue”的单元格中的值。

    Dim FileName As String
    Dim PathName As String
    Dim ws As Worksheet

    Set Range.Value = MetricValue
    FileName = "filename.csv"
    PathName = Application.ActiveWorkbook.Path
    ws.Copy
    ActiveWorkbook.SaveAs FileName:=PathName & "\" & FileName, _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

我知道我在设置范围时搞砸了，但不知道为什么。我试图开始工作的所有内容都只输出带有引号的值。谁能指出我正确的方向？

【问题讨论】：

你的值中有逗号吗？
Set ws = Range.Value = MetricValue - 那应该怎么做？
@BigBen 用于设置我要导出的值。
@PGSystemTester 不，没有逗号，它只是一个数字，例如。 “-34123.32”
Set Range.Value = MetricValue 仍然有问题...您实际运行的代码是什么？

标签： excel vba

【解决方案1】：

我认为您的问题令人困惑，因为您似乎真正想要做的是将单个值保存为 CSV。正在创建的引号可能来自文件的其他部分。可能有更好的方法来实现您的总体目标。这是一个很好的StackOverflow post 通过 excel 处理 CSV 文件，可能有用。

无论如何，这里有两种使用宏将命名范围值保存为 CSV 文件的解决方案。确保命名范围位于工作簿级别（而不是工作表）。

选项一

Sub MakeASingleValueCSVFile()
Dim FileName As String: FileName = "filename.csv"
Dim PathName As String: PathName = Application.ActiveWorkbook.Path
Dim finalValue As Double: finalValue = Range("MetricValue").Value

    
Dim iFileNum As Long
iFileNum = FreeFile
Open PathName & "\" & FileName For Output As iFileNum

Print #iFileNum, finalValue
Close #iFileNum
End Sub

这有一些你可能不喜欢的间距问题。

选项 2

（更新了比初始问题更动态的解决方案）

Const FileName As String = "filename2"
Const namedRange As String = "MetricValue" 'make sure at workbook level
Dim PathName As String: PathName = Application.ActiveWorkbook.Path
Dim pullRNG As Range: Set pullRNG = Range(namedRange)
Dim wkBK As Workbook: Set wkBK = Application.Workbooks.Add

With wkBK

    .Sheets(1).Cells(1, 1).Resize(pullRNG.Rows.Count, pullRNG.Columns.Count) = pullRNG.Value

        .SaveAs PathName & "\" & FileName, xlCSV
    .Close
End With

【讨论】：