如何保存嵌入的txt文件？

Posted 2023-02-02

我需要保存txt文件，该文件作为对象嵌入在Excel工作簿中。

我看了Saving embedded OLE Object (Excel workbook) to file in Excel 2010。

在工作簿中，我有一个嵌入式文本文件和pdf文件（出于测试目的，但最终我需要使用txt文件）。当我将OLEObject指向xlsm并相应地更新fName时，以下命令将正常工作。

但是当我将OLEObject指向txt文件并将fName中的扩展名更改为txt时，它失败并带有

运行时错误1004。

txt文件的命令是什么？我按照其他线程尝试了SaveAs2。

Dim uName As String
Dim fName As String
Dim oEmbFile As Object

uName = Left(Environ("AppData"), Len(Environ("AppData")) - 16)
fName = uName & "\Desktop\OTPReport_Vin" & ".xlsm"

Set oEmbFile = wbkCurrent.Worksheets("Compare the changes").OLEObjects("Object 1")
oEmbFile.Object.SaveAs fName 

答案

您需要指定格式，而不仅仅是更改扩展名。

以下是其他列表（尽管我认为它并不完整）：https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat

您需要xlTextWindows，因此您的代码将是：

oEmbFile.Object.SaveAs fName, xlTextWindows