Question

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

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和其他工作表。除非你有＆＃34; Option Explicit＆＃34;否则它不会告诉你。在代码的顶部，但这样做很好。

Dim MCF_Current_ws as Excel.Worksheet

Excel vba - 子行所需的对象错误

1 个答案: