重命名工作簿vba无法正常工作

Question

我还是VBA的新手，因此我所做的大多数编码都是在从互联网复制后记录或修改的。

在记录我执行的步骤后，我注意到宏将记录文件名和表名。

因此，如果我要打开一个与录制宏名称不相似的文件，我的宏将无法工作。

例如，文件B是在宏中注册的名称，但是我现在希望在文件C上执行宏程序但失败。

有没有一种方法可以绕过这个问题？

Sub trial() 

Dim wb, wb2, wb3 As Workbook 

Dim fn As String 

Set wb = ActiveWorkbook 

With Application.FileDialog(msoFileDialogOpen) 
.AllowMultiSelect = False 
If .Show = -1 Then 
fn = .SelectedItems(1) 
Set wb2 = Workbooks.Open(fn) 
Else 
MsgBox "You cancel the process." 
End If 
End With 

Dim SheetName As String 

'this is the place i would like to edit 
Windows("SPC July BPW341CL - Copy.csv").Activate 
    Sheets("SPC July BPW341CL - Copy").Select 
    Sheets("SPC July BPW341CL - Copy").copy after:=Workbooks(_ 
     "New Microsoft Excel Worksheet.xlsm").Sheets(4) 
      Sheets("SPC July BPW341CL - Copy").Activate 


SheetName = Format(Date, "yyyymmdd") 'Change the format as per your requirement 
ActiveSheet.Name = SheetName 


    Set wb3 = Application.ActiveWorkbook 

    Sheets("Summary").Activate 
    Range("A1").Select 

     For Each ws In wb3.Worksheets 
      If ws.Name <> "Compare to RGB" And ws.Name <> "Summary" Then 
       For i = 1 To 5 
        Selection.Value = ws.Name 
        Selection.Offset(0, 1).Select 
      Next 
     End If 
    Next 

End Sub 

Answer 1

你快到了。

在顶部，您要创建引用，您可以稍后在代码中使用的工作簿：

Set wb2 = Workbooks.Open(fn) 

这将创建一个工作簿中，你可以稍后在代码中使用的参考。

然后，当您有代码：

Windows("SPC July BPW341CL - Copy.csv").Activate 
Sheets("SPC July BPW341CL - Copy").Select 
Sheets("SPC July BPW341CL - Copy").copy after:=Workbooks(_ 
    "New Microsoft Excel Worksheet.xlsm").Sheets(4) 
     Sheets("SPC July BPW341CL - Copy").Activate 

我想这是记录的代码？您应该能够使用之前创建的引用：

wb.Sheets("SPC July BPW341CL - Copy").Select 
wb.Sheets("SPC July BPW341CL - Copy").copy after:=wb2.Sheets(4) 

等

这可能不是做的正是你想要什么做的，因为我并不完全清楚其上张要从哪个工作簿复制。但是你有一般的语法正确。

您还可以索引卡片一样

dim oSheet as worksheet 
set osheet = wb.sheets("sheetname") '//to set via name, Or 
set oSheet = wb.sheets(4)   '//Or to set via index 

等

希望这有助于。

编辑：其他几点注意： 1.）总是在代码的顶部使用Option Explicit。 2.）Dim wb，wb2，wb3作为工作簿 - 此行不声明三个工作簿对象。相反，它实际上声明了两个变体和一个工作簿。你需要声明它们为：Dim wb As Workbook, wb2 As Workbook, wb3 As Workbook