选择性粘贴VBA在嵌入式Excel工作簿中不起作用

Question

我在嵌入式 excel 工作簿中工作时遇到 PasteSpecial 函数的问题。我正在使用的程序是"Promax"，它是在 Visio 中运行的框图软件，可以选择添加嵌入式 excel 工作簿。我基本上在 excel 中设置了许多单元格，以便我可以将一堆字段导入 PDF 表单。

在嵌入式工作簿中工作时，我无法让此函数将任何输出到新的 excel 工作表中。如果我保存的工作簿版本不在 promax，则代码运行正常。如果我只是尝试粘贴而不是粘贴特殊，代码工作正常，但我粘贴的所有引用都会在新工作簿中中断。

Sub ExporttotxtFile()
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Sheets("Sheet1").Range("A1:HK2")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wb.Worksheets(1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
saveFile = Application.GetSaveAsFilename(InitialFileName:="Export", fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

有没有人有解决这个问题或其他方法的方法？这段代码取自： https://www.extendoffice.com/documents/excel/612-excel-export-data-to-text.html

谢谢！

Answer 1

在玩弄这个时，似乎xlPasteFormat正在将图像粘贴到值上而不是格式化。我放弃了粘贴方法并使用了不同的解决方案。

wb.Worksheets(1).Paste
wb.Worksheets(1).Range("A1:HK2").Value = WorkRng.Value

我用第一次粘贴粘贴所有内容，并在第二行设置值，以便保持格式。

谢谢大家的帮助。