重命名工作簿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