Sub PullPriorYearActualsByMonth()
'
' Pull prior year actuals by month for a given budget category
'
Workbooks.Open ("S:\Finance\Budget & Forecast\2023\2023 Budget\Consolidated\Finance Use Only\Updating 2022 Budget Macro File.xlsm")
Dim i As Integer
Dim VarCellValue As String
Dim VarCellValue2 As String
Dim VarCellValue3 As String
Dim currwbk As Workbook
Dim givingType As String
Dim fileName As String
fileName = Application.InputBox("Please copy and paste the Other Revenue Filename here")
Application.EnableEvents = False
Application.DisplayAlerts = False
'Workbooks.Open ("I:\Calendar 2023\2023 Budget\2023 Working Budget\3. Other Revenue\[Enter File Name Here].xlsm")
Workbooks.Open ("I:\Calendar 2023\2023 Budget\2023 Working Budget\3. Other Revenue\" & fileName & ".xlsx")
'Workbooks.Open ("I:\Calendar 2023\2023 Budget\2023 Working Budget\3. Other Revenue\2023 Budget - Workplace Giving (3-year Average).xlsx")
Sheets(1).Activate
givingType = Range("B3").Value
直接看上面。它填寫了正確的值，但維度為空。我需要用“設定”功能做些什么嗎？
uj5u.com熱心網友回復：
避免使用，并使用其父/Activate完全限定。RangeWorkbookWorksheet
Dim wb As Workbook
Set wb = Workbooks.Open("I:\Calendar 2023\2023 Budget\2023 Working Budget\3. Other Revenue\" & fileName & ".xlsx")
givingType = wb.Worksheets(1).Range("B3").Value
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/526958.html
標籤：擅长vba