需要将xls文件保存为xlsx，关闭然后重新打开它

我发送了一个.xls文件以在我的宏中使用。 .xls文件的问题在于它们无法处理运行我的宏所需的行数。因此，为了解决这个问题，我试图首先保存我作为.xlsx文件发送的文件，然后按照计划继续使用宏。不幸的是，一旦我达到 APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN & "x")我收到一个错误：对象需要。我的代码有什么问题？我是否正在采取最佳方法解决我的.xls问题？需要将xls文件保存为xlsx，关闭然后重新打开它

MsgBox "Please select APPS Invoice file" 
APPSInvoiceFN = Application.GetOpenFilename' 

If APPSInvoiceFN = False Then ' User Pressed Cancel 
    MsgBox "APPS Invoice file not selected. APPS invoice will not be updated." 
    Application.ScreenUpdating = True 
    Exit Sub 
Else 
    On Error GoTo ErrHandler 
    Set APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN) 
    On Error GoTo 0 

APPSInvoiceWB.SaveAs FileFormat:=51 
APPSInvoiceWB.Close savechanges:=True 
APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN & "x")

来源

2015-09-25 Bryan F

的建议你忘了在最后一行的Set关键字：

Set APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN & "x")

至于方法去......这种方法一般应该正常工作到转换格式。

来源

2015-09-25 20:43:15

尝试

APPSInvoiceWB.SaveAs FileName:= APPSInvoiceFN & "x", FileFormat:=51

来源

2015-09-25 20:42:02

我不知道，BU为您发布部分代码，你有没有宣布APPSInvoiceWB为工作簿。

Dim APPSInvoiceWB as Workbook

并改变这部分 APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN & "x") 到 set APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN & "x")

你缺少Set，因此错误。

此外，更改由Tim

来源

2015-09-25 20:42:11 cyboashu

需要将xls文件保存为xlsx，关闭然后重新打开它

回答

相关问题