无法使用macros保存Excel文件

我有一个在Word文档中完美工作的macros，但是当我尝试在Excel中使用它时会崩溃。 这个macros使用PHP文件保存当前打开的文件。 PHP文件分析文档的全名，并将其上传到一个特定的文件夹。 代码如下所示：

VB

Const BaseUrl = "http://localhost/docxgen-master/upload.php" Sub SaveCopyAs(SaveAsPath) Const lCancelled_c As Long = 0 If VBA.LenB(SaveAsPath) = lCancelled_c Then Exit Sub ActiveDocument.Save Application.Documents.Add ActiveDocument.FullName ActiveDocument.SaveAs SaveAsPath, wdFormatXMLDocumentMacroEnabled ActiveDocument.Close End Sub Sub Macros1() FileName = ActiveDocument.FullName + "temp" SaveCopyAs FileName MsgBox WinHTTPPostRequest(BaseUrl, FileName, ActiveDocument.Name) End Sub 'Other subroutines like WinHTTPPostRequest etc 

PHP ：upload.php

 $fileInfo = current($_FILES); if (!$fileInfo) die; $target_path = "./templates/"; $pattern = '|_\d+|'; preg_match_all($pattern,$fileInfo['name'], $matches); $target_path = $target_path."report_0".$matches[0][1].$matches[0][2].$matches[0][3].".docm"; if(!move_uploaded_file($fileInfo['tmp_name'], $target_path)) die; echo "You saved it!"; 

如果在doc文件中使用这个代码，那么这个代码工作的很好。 我试图在Excel中使用它，但无济于事。 当然，我对代码做了一些小修改：

 Sub SaveCopyAs(SaveAsPath) Const lCancelled_c As Long = 0 If VBA.LenB(SaveAsPath) = lCancelled_c Then Exit Sub ActiveWorkbook.Save Application.Workbooks.Add ActiveWorkbook.FullName ActiveWorkbook.SaveAs SaveAsPath, wdFormatXMLDocumentMacroEnabled ActiveWorkbook.Close End Sub 

不过，它不工作。

编辑

现在，我的代码如下所示：

 Sub SaveCopyAs(SaveAsPath) Const lCancelled_c As Long = 0 If VBA.LenB(SaveAsPath) = lCancelled_c Then Exit Sub ActiveWorkbook.Save Workbooks.Add ActiveWorkbook.SaveAs SaveAsPath, xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End Sub 

现在它几乎可以工作！ 它保存文件，但不幸的是没有macros。

编辑

我的最终版本的代码如下所示：

 Sub SaveCopyAs(SaveAsPath) Const lCancelled_c As Long = 0 ActiveWorkbook.Save Workbooks.Add ActiveWorkbook.FullName ActiveWorkbook.SaveAs SaveAsPath, xlOpenXMLWorkbookMacroEnabled ActiveWorkbook.Close End Sub 

但debugging器会抛出一个错误，指向ActiveWorkbook.Save （错误信息是在俄语中，所以我不知道正确的解释，但它是关于VB和macros）

编辑

这是GetFile函数，当我尝试保存文档的简化代码时引发错误：

 Function GetFile(FileName) Dim Stream: Set Stream = CreateObject("ADODB.Stream") Stream.Type = 1 'Binary Stream.Open Stream.LoadFromFile FileName ' The debugger points to this line now (firts test case of code) GetFile = Stream.Read Stream.Close End Function 

Answer 1

我build议你使用这个：

 Sub SaveCopyAs(SaveAsPath) Const lCancelled_c As Long = 0 Application.DisplayAlerts = False ActiveWorkbook.SaveAs SaveAsPath, xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True ActiveWorkbook.Close End Sub 

要么

 Sub SaveCopyAs(SaveAsPath) Const lCancelled_c As Long = 0 Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs SaveAsPath Application.DisplayAlerts = True ActiveWorkbook.Close End Sub 

后者不允许你改变文件格式。