我有一个 Excel VBA 宏，可以将 Excel 公式复制/粘贴到另一个文件中。公式是这样的：

Question

问题的高级摘要：VBA 将双引号括在从 Excel 复制的字符串周围，这是我不想要的。我相信这段字符串 ($billtyp,) 导致 VBA 在它周围加上双引号。特别是末尾的逗号。我绝不是程序员。只是为了让我们办公室的一位女士的一些工作自动化。我非常感谢您的帮助！

要遵循的 VBA 代码。 Excel 值和公式如下：

What I want:
ADDLABEL -files zTestCo.cli -labelrec $billtyp,Test1 -log I:\LOG\29-08-2017-Add Label-zTestCo.txt

What I get:
"ADDLABEL -files zTestCo.cli -labelrec $billtyp,Test1 -log I:\LOG\29-08-2017-Add Label-zTestCo.txt"

Excel公式：

="ADDLABEL -files "&$C$1&".cli -labelrec $"&LOWER(B3)&","&C3&" -log I:\LOG\"&TEXT(NOW(),"dd-mm-yyyy")&"-Add Label-"&$C$1&".txt"

VBA 代码：

Sub SetCustomLabels()

Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wbDest As Workbook
Dim fName As String

'References
Set wbSource = ActiveWorkbook
Set wsSource = ActiveSheet
Set wbDest = Workbooks.Add

'Copy range on original sheet
wsSource.Range("J3:J50").Copy

'----------------------------
'Save in new workbook
wbDest.Worksheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

'Get file name and location from user
fName = Application.GetSaveAsFilename(InitialFileName:="I:\Axys3\auto\addLabel.scr", FileFilter:="Script Files (*.scr), *.scr", Title:="Save As")
If fName = "" Then Exit Sub '//user cancelled

'Save new tab delimited file
wbDest.SaveAs fName, xlText

wbDest.Close SaveChanges:=True

End Sub

Answer 1

这个测试似乎可以在我的电脑上运行。更改另存为的格式：

来自

wbDest.SaveAs fName, xlText

到

wbDest.SaveAs fName, xlTextPrinter

Answer 2

我有一个廉价而肮脏的解决方案 - 写下以下公式，它会完全如你所愿：

=MID(C10,2,LEN(C10)-2)

C10 中的值将从开始到结束被分割为 1 个字符。

Answer 3

当您在 Excel 中使用剪贴板时，您会看到此行为。事实上，Excel 正在尽最大努力保存您的数据。如果字符串包含特殊字符（如制表符、回车符或换行符），它将自动将您复制的字符串封装在双引号中，这样当它粘贴到单元格时，字符串不会被拆分。

作为剪贴板的替代方案，您可以将“粘贴”范围的值设置为“复制”范围的值，例如：

wbDest.Worksheets(1).Range("A1:A47") = wsSource.Range("J3:J50").value2

这将代替您的 .copy 和 .pastespecial 行。

如果您还必须带上数字格式，您可以保留现有的 .copy 和 .pastespecial 行并将特殊粘贴更改为 xlPasteNumberFormats（我认为这是常量名称）