vba：打开工作簿并更改工作表名称

Question

我想复制工作表，然后打开副本以更改第一个工作表的名称。

这是插在Module1代码：

Sub CopiarNovaPlanilha() 
Dim wkb As Workbook 

ActiveWorkbook.SaveCopyAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx" 

Set wkb = Workbooks.Open("I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx") 
wkb.Sheets(1).Name = "FUNCIONARIOS" 

End Sub 

的Sub保存副本的第一部分完美的作品。虽然当我尝试运行它给了我下面的错误第二部分：

Run-time error 1004: Excel cannot open the file

而且它说，它无法理解的扩展.xlsx或者，也许该文件已损坏，但我查了一下文件是好的。

有谁知道这是什么问题？

Answer 1

这对我的作品

Private Sub derp() 
    Dim wbk As Workbook 
    Dim path As String 
    path = "C:\Users\dcoats\Desktop\Book1.xlsx" 
    Set wbk = Workbooks.Open(path) 
    wbk.Sheets(1).Name = "FUNCIONARIOS" 
End Sub 

所以也许检查字符串这就是路径到您的工作簿？

编辑

我刚刚试过这个，它的工作原理也是如此。

Private Sub derp() 
    Dim wbk As Workbook 
    Dim path As String 
    path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\Book1.xlsx" 
    Set wbk = Workbooks.Open(path) 
    wbk.Sheets(1).Name = "FUNCIONARIOS" 
End Sub 

我只是尝试这样做，以及

Private Sub derp() 
    Dim wbk As Workbook 
    Dim path As String 
    path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\yaybook.xlsm" 
    ThisWorkbook.SaveAs path, FileFormat:=52 
    Set wbk = Workbooks.Open(path) 
    wbk.Sheets(1).Name = "FUNCIONARIOS" 
End Sub 

一切正常，所以我们可能缺少细节

Answer 2

Don't want to Hijack Doug's answer, so here's a way to test:

Try comment out the second part of your code - leave the "saveas" and run. After finish go check your file in the destination path - see if you can open it successfully by manual.

Now in a NEW sub open up this file by code. Do NOT set the sheet name yet. Let us know the result

编辑：

尝试将工作表保存到一个新的工作簿并保存新工作簿：

Sub test() 

Dim wbk As Workbook 
Dim nwb As Workbook 
Dim path As String 

path = "C:\Users\dcoats\Desktop\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\" 

Set wbk = ThisWorkbook 
Set nwb = Workbooks.Add 

wbk.Sheets("Sheet1").Copy before:=nwb.Sheets(1) 

nwb.SaveAs path & "test2.xlsx" 

End Sub 

更新“工作表Sheet1”到任何worksheetname你节省