powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перебрать листы Excel?
4 сообщений из 4, страница 1 из 1
Как перебрать листы Excel?
    #32638178
Sasha09
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!
Написал это же сообщение в VB.NET но там сонно как-то. Мож здесь кто знает?
Мне нужно узнать все листы в открытой книге Excel, как это можно сделать?
Я иду таким путем:
Public appExcel As Excel.Application
Public wbkNew As Excel.Workbook
--------------------------------------
Dim ShCount As Integer
Dim ShName() As String
appExcel = New Excel.Application
wbkNew = appExcel.Workbooks.Open(FileName)
ShCount = appExcel.Sheets.Count
Do While i <= ShCount
ReDim ShName(i)
ShName(i) = appExcel.Sheets(i).Name ' Ошибка тутmsgbox ShName(i)
i += 1
Loop

Ошибка - неверный тип переменной

Как быть?
...
Рейтинг: 0 / 0
Как перебрать листы Excel?
    #32638196
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по перебору - это vba
Dim iWS As Worksheet
For Each iWS In ThisWorkbook.Worksheets

Next iWS



...
Рейтинг: 0 / 0
Как перебрать листы Excel?
    #32638232
Sasha09
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин, здорово!
Как мне в голову не пришло, ведь делал так
Спасибо!
...
Рейтинг: 0 / 0
Как перебрать листы Excel?
    #32638419
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
ShCount = appExcel.Sheets.Count
i=1
Do While i <= ShCount
...
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перебрать листы Excel?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]