Проблема с использованием цикла «For» в VBA

Question

По какой-то причине мой код не работает. Я получаю сообщение «Ошибка 91». Я побежал это нормально с «Для каждого цикла, но это не работает для меня.

Это говорит мне отладить на

strPrint = MsgBox(prompt:="Print " & shtCurrent & "?", Buttons:=vbYesNo + vbExclamation) 

, но я не могу найти ничего плохого с ним.

Public Sub PrintWorksheets2() 

    'declare variables and assign address 
    Dim strPrint As String, intCount As Integer, wkbHours As Workbook, shtCurrent As Worksheet 
    Dim intSum As Integer, shtCount As Integer 
    Set wkbHours = Application.Workbooks("auco6215_HW10_Ex9.xlsm") 

    shtCount = wkbHours.Sheets.Count 
    intSum = 0 

    'ask user if he or she wants to print the worksheet 
    For intCount = 1 To shtCount 
     'shtCurrent = wkbHours 
     intSum = intSum + intCount 
     strPrint = MsgBox(prompt:="Print " & shtCurrent & "?", Buttons:=vbYesNo + vbExclamation) 
     If strPrint = vbYes Then  'if user wants to print 
      shtCurrent.PrintPreview 
     End If 
    Next intCount 

End Sub 

Answer 1

Пожалуйста, попробуйте это.

'declare variables and assign address 
Dim strPrint As String, intCount As Integer, wkbHours As Workbook, shtCurrent As Worksheet 
Dim intSum As Integer, shtCount As Integer 
Dim oResult 
Set wkbHours = Application.Workbooks("auco6215_HW10_Ex9.xlsm") 

shtCount = wkbHours.Sheets.Count 
intSum = 0 

'ask user if he or she wants to print the worksheet 
For intCount = 1 To shtCount 
    'shtCurrent = wkbHours 
    intSum = intSum + intCount 
    oResult = MsgBox(prompt:="Print " & shtCurrent & "?", Buttons:=vbYesNo + vbExclamation) 
    If oResult = vbYes Then  'if user wants to print 
     shtCurrent.PrintPreview 
    End If 
Next intCount 

Answer 2

shtCurrent является Worksheet объект. Попробуйте кон catenating его свойство Name (который является String) в вашу MsgBox строку:

strPrint = MsgBox(prompt:="Print " & shtCurrent.Name & "?", Buttons:=vbYesNo + vbExclamation) 

Теперь strPrint объявлен как String:

Dim strPrint As String 

И MsgBox будет возвращать значение в vbMsgBoxResult перечислимого - вы делаете VBA делает много бесполезных неявных преобразований типов здесь, почему бы не объявить его как тип, который он возвращает?

Dim strPrint As vbMsgBoxResult 

И теперь вы видите, почему предваряя str к именам переменных (ака Венгерской нотации) плохо.

---

Это касается только части вопроса. Когда у вас был цикл For Each, каждая итерация присваивала значение переменной объекта, которая представляла рабочий лист текущей итерации. В этом коде с циклом For у вас есть рабочий лист shtCurrent, но он не назначен; вы увеличиваете счетчик, но это все, что вы делаете. Как было указано в комментариях, вам также необходимо указать Set ссылку на объект shtCurrent внутри цикла, до, который вы используете, иначе код будет взорван с ошибкой «ошибка объекта».

Ваших For петли индексов итерация рабочего лист, так что вы можете назначить shtCurrent к элементу в Worksheets коллекции:

Set shtCurrent = Worksheets(intCount) 

ли что, прежде чем что-нибудь еще в теле цикла For, и вы должны быть хорошо идти.

Теперь все хорошо, но когда вы повторяете объекты, часто лучше использовать цикл For Each вместо цикла For. For Петли хороши для итерации массивы; For Each Петли хороши для итерации коллекции - Я бы использовал петлю For Each здесь.