Создал макрос, но так как соображаю в них не очень хорошо))) где то ошибка. Прошу помочь.
Необходимо чтобы при нажатии на кнопку "веб" на листе то веб приложенного примера, автоматически сохранялись только 5 документов в формате html диапазонов A1:B4 листа 7; диапазон A1:C4 листов 8и9; диапазон A1:D4 листов 10и11.
Здравствуйте, суть проблемы в следующем.
Создал макрос, но так как соображаю в них не очень хорошо))) где то ошибка. Прошу помочь.
Необходимо чтобы при нажатии на кнопку "веб" на листе то веб приложенного примера, автоматически сохранялись только 5 документов в формате html диапазонов A1:B4 листа 7; диапазон A1:C4 листов 8и9; диапазон A1:D4 листов 10и11.Nik57
Здравствуйте, подскажите, где ошибка? Хочу сделать чтоб макрос работал на 1, 23,24,25 листы. Однако, он "загребает" с 1 по 25 листы включительно. Грешу вот на эту строчку "For x = 1 And 23 To 25" как ее правильно необходимо записать? Заранее спасибо!
'For Each sh In ThisWorkbook.Sheets For x = 1 And 23 To 25 'If CInt(sh.Index) <= FirstPartQuantity Then 'OutRange = RangeA 'If CInt(sh.Index) <= SecondPartQuantity Then 'OutRange = RangeB 'If CInt(sh.Index) <= ThirdPartQuantity Then 'OutRange = RangeC 'Else 'OutRange = RangeD 'End If 'End If Set sh = Sheets(x) Select Case x Case 1 OutRange = RangeA Case 23 OutRange = RangeB Case 24 OutRange = RangeC Case Else OutRange = RangeD End Select With ThisWorkbook.PublishObjects.Add(xlSourceRange, _ ThisWorkbook.Path & "\" & sh.Name & ".htm", sh.Name, OutRange, _ xlHtmlStatic, ThisWorkbook.Name & "_" & sh.Name, "") .Publish (True) .AutoRepublish = False End With Next x End Sub
[/vba]
Здравствуйте, подскажите, где ошибка? Хочу сделать чтоб макрос работал на 1, 23,24,25 листы. Однако, он "загребает" с 1 по 25 листы включительно. Грешу вот на эту строчку "For x = 1 And 23 To 25" как ее правильно необходимо записать? Заранее спасибо!
'For Each sh In ThisWorkbook.Sheets For x = 1 And 23 To 25 'If CInt(sh.Index) <= FirstPartQuantity Then 'OutRange = RangeA 'If CInt(sh.Index) <= SecondPartQuantity Then 'OutRange = RangeB 'If CInt(sh.Index) <= ThirdPartQuantity Then 'OutRange = RangeC 'Else 'OutRange = RangeD 'End If 'End If Set sh = Sheets(x) Select Case x Case 1 OutRange = RangeA Case 23 OutRange = RangeB Case 24 OutRange = RangeC Case Else OutRange = RangeD End Select With ThisWorkbook.PublishObjects.Add(xlSourceRange, _ ThisWorkbook.Path & "\" & sh.Name & ".htm", sh.Name, OutRange, _ xlHtmlStatic, ThisWorkbook.Name & "_" & sh.Name, "") .Publish (True) .AutoRepublish = False End With Next x End Sub