Question

我能够在大多数笔记本电脑上成功运行代码，只有少数笔记本电脑出现此错误。

我正在尝试将当前excel中的工作表复制到另一个excel并将其保存在共享文件夹位置。

我已尝试将Activeworkbook.saveas更改为此workbook，以便更具体而不会混淆excel

我仍然无法解决此问题，因此无法在线找到任何解决方案。

下面给出了代码（仅导致错误的相关部分）。它运行完美，没有任何错误在一些笔记本电脑上。 20个中只有3-4台笔记本电脑出现此错误。

好的，我发现了一件事。如果我将其保存在本地文件夹中，则可以。但是当链接到Intranet上的服务器文件夹时，它会给出错误。知道如何解决？

Sub saveme()
 Dim name as Variant
 Set thiswb = ActiveWorkbook
 chk = thiswb.Path
 name= Range("E4").Value


'directory of shared folder
chng = "C:\Ananth\MBL\Excel\MBL EPM\Final1\Shared MBL"

' some lines of code


 'send file into the shared folder

   Set newbook = Workbooks.Add
  newbook.Worksheets("Sheet1").name = "new"
  ThisWorkbook.Sheets("Sheet1").Copy before:=newbook.Worksheets(1)
  Application.DisplayAlerts = False
  newbook.Worksheets("new").Delete

   ChDir chng

   newbook.SaveAs Filename:=chng & "\" & name & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, Password:=name, writeResPassword:="", CreateBackup:=False

 ActiveWorkbook.Close
 Range("A1").Select

Application.ScreenUpdating = True

End Sub

运行时错误＆＃39; 1004＆＃39;：SaveAs对象_workbook失败

0 个答案: