Excel vba - 子行中的对象需要错误

Question

所以我在代码的开头遇到了一个错误，这是我上次打开和编辑 VBA 代码时没有使用的错误。有任何想法吗？这是其中的一部分。当我尝试单步执行代码时，出现错误：“需要对象”并且我的子行（第一行）被突出显示。有什么想法可以解决这个问题吗？

Sub ManagerCashflow()
   '---------------------------Declare all the variables---------------------------
   '------Define object names------
   'Dim i As Integer
   'Dim c As Integer
   Dim AUM_Cash_Projections_folder_pathname As String
   Dim AUM_Cash_Projections_FOLDER_YEARMONTH_pathname As String
   Dim AUM_Cash_Projections_filename_DATE As String
   Dim AUMCshf_wb As Workbook
   Dim MngrCshF_wb As Workbook
   'Dim CshF_lr As Integer
   'Dim PE_r As Integer
   'Dim lstmanager_r As Integer


   '------Set/call the objects to a destination------
   'Worksheets
   'Manager Cashflow
   Set MngrCshF_wb = ThisWorkbook
   Set MCF_Current_ws = MngrCshF_wb.Sheets("Sheet1")

   'AUM Cash Projections
   Set AUM_Cash_Projections_folder_pathname = "https://iportal.casey.org/Risk Management/CFP Reporting/AUM Cash Projection"
   Set AUM_Cash_Projections_FOLDER_YEARMONTH_pathname = Right(MCF_Current_ws.Cells(2, 1).Value, 7)
   Set AUM_Cash_Projections_filenamedate = MCF_Current_ws.Cells(2, 1).Value
   Set AUMCshf_wb = Workbooks.Open(AUM_Cash_Projections_folder_pathname + "/" + AUM_Cash_Projections_FOLDER_YEARMONTH_pathname + "/" + AUM_Cash_Projections_filenamedate)

   Set CshF_ws = AUMCshf_wb.Sheets("CashFlow + Projections")
        'Master Data with all of the current managers
   Set CurrAssets_ws = AUMCshf_wb.Sheets("Master Data")
   '... a bunch of other code that works....
End Sub 

Answer 1

不知道为什么以前没有发生过。您不需要使用 set 来为字符串赋值。

AUM_Cash_Projections_folder_pathname = "https://iportal.casey.org/Risk Management/CFP Reporting/AUM Cash Projection"
AUM_Cash_Projections_FOLDER_YEARMONTH_pathname = Right(MCF_Current_ws.Cells(2, 1).Value, 7)
AUM_Cash_Projections_filenamedate = MCF_Current_ws.Cells(2, 1).Value

您还需要声明 MCF_Current_ws 和其他工作表。除非您的代码顶部有“Option Explicit”，否则它不会告诉您，但这样做很好。

Dim MCF_Current_ws as Excel.Worksheet