另存为嵌入另一个 Excel 文件的 Excel 文件
Save as an Excel file embedded in another Excel file
我想使用 VBA 管理嵌入在另一个 Excel 文件中的 Excel 文件。我可以通过 .docx 文档找到很多结果，但我坚持使用 .xlsx 文档。
我最后一次尝试使用 OLE 对象，但卡在行 "SaveAs"（错误 1004）。
这是奇怪的部分：当我开始调试时，或者如果我 运行 使用 F8 逐步调试程序，它会 运行，但没有文件被保存...
我为这个例子调用了我的 OLEObject "TEST"：
Sub testOLE()
mPath = ActiveWorkbook.Path
For Each obj In Worksheets(1).OLEObjects
If obj.Name = "TEST" Then
obj.Verb
obj.Object.Activate
obj.Object.SaveAs mPath & "TEST_success.xlsx"
obj.Object.Close
End If
i = i + 1
Next
End Sub
我不明白如何将 OLEObjects 保存为 .xlsx，你能帮我一下吗？
我刚刚 成功 使用 obj.Object.SaveCopyAs 而不是 obj.Object.SaveAs。
我想使用 VBA 管理嵌入在另一个 Excel 文件中的 Excel 文件。我可以通过 .docx 文档找到很多结果，但我坚持使用 .xlsx 文档。
我最后一次尝试使用 OLE 对象，但卡在行 "SaveAs"（错误 1004）。 这是奇怪的部分：当我开始调试时，或者如果我 运行 使用 F8 逐步调试程序，它会 运行，但没有文件被保存...
我为这个例子调用了我的 OLEObject "TEST"：
Sub testOLE()
mPath = ActiveWorkbook.Path
For Each obj In Worksheets(1).OLEObjects
If obj.Name = "TEST" Then
obj.Verb
obj.Object.Activate
obj.Object.SaveAs mPath & "TEST_success.xlsx"
obj.Object.Close
End If
i = i + 1
Next
End Sub
我不明白如何将 OLEObjects 保存为 .xlsx，你能帮我一下吗？
我刚刚 成功 使用 obj.Object.SaveCopyAs 而不是 obj.Object.SaveAs。