Vba обращение к листу excel: Ссылки на листы по номеру индекса

Как в VBA обратиться к ячейке другого листа Excel? — .net

Как в VBA обратиться к ячейке другого листа Excel? — .net — Личная страница, Фёкла Салькова

Разрешите представиться — Фёкла Салькова, провожу жизнь в Россия, Сахалинская область, Южно-Сахалинск. Я много времени посвятил изучению множества областей науки: .net, косметология, аксессуары, а, шутки. Есть что сказать? — пишите [email protected].

Что нового

Популярные вопросы

как узнать путь к файлу C#
Теоретически я знаю, что у меня есть файл test.txt лежит он в папке c: est est.txt переменная String…

Как соединить два куска кожаного ремня торцами?
Как соединить два куска кожаного ремня торцами? (так чтобы он отсоединялся, но не используя бляху…

Как отчистить от черноты бижутерию?
в Avon я заказало очень красивое золотистое колье, а пришло оно с чернотой, возвращать не удобно. по…

🙂 Что носят девушки в огромных сумках? 🙂
при чем видно, что сумка не пустая! и довольно увесистая.
мне до жути интересно — ЧТО ТАМ? 🙂
…

ASP.NET позволяет быстро создавать сайты. Так ли это?
Читаю книгу «Ozon.ru. История успешного интернет-бизнеса в России». Там разработчики восто…

Последние вопросы

Как реализовать обход критической секции (C# .NET)?
Есть блок кода и несколько потоков, претендующих на его выполнение. Как реализовать схему, при котор…

Как в VBA обратиться к ячейке другого листа Excel?
Как в VBA обратиться к ячейке другого листа Excel?
Есть 2 листа «статистика» и «мо…

как в js написать функцию которая бы активировала все checkbox(ы)? (одной кнопкой)
как в js написать функцию которая бы активировала все checkbox(ы)? (одной кнопкой…

Delphi 7 как сделать кнопки другой формы, круглой или еще какой-нибудь не стандартной формы
Delphi 7 как сделать кнопки другой формы, круглой или еще какой-нибудь не стандартной форм…

Visual Studio 2010 и Visio 2007 — как работать в такой связке?
Есть необходимость рисовать простейшие Visio диаграммы из программы на C# (пишется в VS2010). Как по…

Вопрос

Как в VBA обратиться к ячейке другого листа Excel?
Как в VBA обратиться к ячейке другого листа Excel?
Есть 2 листа «статистика» и «москва», не знаю как перевести указатель на другой лист
Как в ячейку А1 статистики занести значение А2 москвы допустим
Спасибо!

Ответ

Более универсальный вариант:

‘ объявляем переменные типа «Лист»
Dim mySheetStat As Worksheet
Dim mySheetMoskwa As Worksheet

‘ связываем переменные с конкретными объектами

Set mySheetStat = ActiveWorkbook.Worksheets(«статистика»)
Set mySheetMoskwa = ActiveWorkbook.Worksheets(«москва»)

‘ обращение к диапазонам, можно использовать именные

mySheetStat.Range(«A1»).Value = mySheetMoskwa.Range(«A2»).Value

‘ альтернативный вариант — задать «координаты» ячеек

mySheetStat.Cells(1, 1).Value = mySheetMoskwa.Cells(2, 1).Value

.net

косметология

аксессуары

а

шутки

© Фёкла Салькова Карта сайта

Сайт создан в системе uCoz

[VBA] Обращение к листу по имени в макросе Excel

JavaScript отключён. Чтобы полноценно использовать наш сайт, включите JavaScript в своём браузере.

• 
  Автор темыNeoneta
• 
  Дата начала9 Фев 2023

Neoneta

Новый пользователь

• 9 Фев 2023

• #1

Указать для макроса в эксель не номер листа — wb.Sheets(2), а указать конкретное имя — Sheets(«лютий»)

Dragokas

Angry & Scary Developer

• 9 Фев 2023

• #2

Вообщем, у вас в VBA IDE вместо имён листов стоят знаки ______, и макросы не воспринимают вариант Sheets(«лютий»), потому что в языковых настройках системы неверно выставлен параметр: Язык программ, не поддерживающих Юникод — нужно выбрать Русский (или украинский).

Меняется так:

1. Откройте Панель управления (для этого, нажмите комбинацию клавиш Win+R и введите слово control затем кнопку ОК).
2. Найдите пункт Изменение форматов даты, времени и чисел и нажмите его (может называться немного иначе, например «Часы и регион«) — дальше вероятно, придётся ещё раз нажать пункт «Регион«
3. В открывшемся диалоговом окне перейдите на вкладку Дополнительно и убедитесь, что Язык программ, не поддерживающих Юникод выбран Русский (Россия). Если другой, нажимаете изменить язык системы и выбираете Русский или Украинский.
4. После нажатия ОК перезагружайте компьютер.

Если Windows с английским интерфейсом, там пункты называются так: Clock And Region — Region — Administrative — Language for non-Unicode programs — Change system locale.

После этого к листу можно будет обращаться макросом Sheets(«лютий») т.е. по имени.

// Прим.: также, вариант решения см. в посте № 4.

Последнее редактирование: 15 Фев 2023

Neoneta

Новый пользователь

• 14 Фев 2023

• #3

Политика компании строга, к настройкам нет возможности применить изменения.

Neoneta

Новый пользователь

• 14 Фев 2023

• #4

Вопрос решен применяя имя иного вида:
wb. Worksheets(«лютий») взамен wb.Sheets(2)

Dragokas

Angry & Scary Developer

• 14 Фев 2023

• #5

Неожиданно. Спасибо за информацию!
Я всегда считал, что разницы нет никакой.
Но если проблема была с языком для неюникодных программ, то лично у меня IDE даже не даёт ничего написать на русском.
Хорошо, что удалось решить без смены настроек.

Dragokas

Angry & Scary Developer

• 15 Фев 2023

• #6

А політика компанії дозволяє хоча б подивитися, яка мова встановлена в налаштуваннях? Цікаво, чи саме це є причиною.

Neoneta

Новый пользователь

• 15 Фев 2023

• #7

Dragokas

Angry & Scary Developer

• 15 Фев 2023

• #8

Спасибо за доп. информацию.
Поставил эксперимент, у меня воспроизвести ситуацию не получилось.
Значит у вас какая-то иная причина, и ваш вариант решения наиболее удачен.

Поделиться:

Ссылка

Назад

Сверху
Снизу

Получение значений из другого листа в Excel с помощью VBA

Excel чрезвычайно эффективен даже при использовании только базовых функций добавления данных в ячейки и электронные таблицы, сортировки и обработки этих данных в прекрасную работу клеточного удовольствия. Тем не менее, Excel способен на гораздо большее, чем позволяет стандартное редактирование содержимого ячеек, благодаря волшебству скриптов Visual Basic for Applications или VBA .

Мы кратко рассмотрим один простой пример использования VBA в Excel для извлечения значений из одного рабочего листа , но это лишь верхушка айсберга того, что Excel и VBA могут выполнить вместе.

Доступ к редактору Visual Basic

Для начала вам потребуется найти редактор Visual Basic в Excel. Поиск этого зависит от того, какую версию Excel вы используете, но для большинства современных версий Visual Basic Editor можно найти на вкладке Developer на ленте меню.

Найдя, просто нажмите Макросы , введите имя макроса (в этом примере мы будем использовать MySum ), затем нажмите создать , чтобы открыть редактор и начать писать сценарии.

Сценарий

В редакторе вы увидите объявление вашего макроса MySum , который представляет собой стандартную функцию vba , которую мы можем редактировать в соответствии с нашими требованиями.

 Sub MySum()
Конец сабвуфера
 

В нашем примере, возможно, у нас есть рабочий лист с именем Sales , и мы хотим использовать этот макрос для суммирования ( sum ) первых 25 значений в столбце B .

Таким образом, чтобы начать наш сценарий, нам нужно выбрать соответствующий рабочий лист с именем Sales , а затем, используя этот выбранный объект , сузить наш выбор, захватив определенные ячейки (известные как диапазон ячеек), которые мы хотим всего.

 Sub MySum()
    Рабочие листы («Продажи»). Диапазон («B1: B25»)
Конец сабвуфера
 

Теперь нам действительно нужно получить общее количество или сумма всех этих значений, поэтому мы оборачиваем предыдущий вызов объекта в WorksheetFunction из Sum , например:

 Sub MySum()
    WorksheetFunction. Sum(Worksheets("Продажи").Range("B1:B25"))
Конец сабвуфера
 

Но это еще не последний шаг. В нашем примере мы хотим извлечь эту сумму из рабочего листа Sales , а затем вставить это общее значение в текущую ячейку, которую мы выбрали при запуске этого макроса.

Для этого мы будем использовать Объект ActiveCell , установив его Value равным нашей сумме:

 Sub MySum()
    ActiveCell.Value = WorksheetFunction.Sum(Worksheets("Продажи").Range("B1:B25"))
Конец сабвуфера
 

Хорошо, теперь наш макрос завершен, так что давайте сохраним и вернемся к нашей настоящей электронной таблице, чтобы проверить ее.

Запуск макроса

Чтобы убедиться, что он работает, выберите другую электронную таблицу, затем выберите одну ячейку, в которую вы хотите вставить сумму.

Чтобы запустить сохраненный макрос, просто вернитесь на вкладку Developer , снова выберите Macros и выберите макрос MySum . Содержимое ячейки теперь должно быть заменено суммой указанных нами значений столбца Sales B .

vba — открыть и прочитать из файла excel

Задавать вопрос

спросил
6 лет, 11 месяцев назад

Изменено
2 года, 10 месяцев назад

Просмотрено
25 тысяч раз

Редактировать: После user3561813 предложение добавить "/" , теперь он читает первый файл. У меня есть сообщение об ошибке вне диапазона "9" . Он правильно читает первый файл. В конечном итоге я пытаюсь открыть каждый файл и прочитать имя и возраст (это тестирование, а не реальная производственная форма). И верните значения на мой основной рабочий лист.

Исходный вопрос

Я пытаюсь прочитать сотни форм Excel в папке, прочитать определенную позицию ячейки и записать их в свой тестовый лист. Я погуглил этот учебник и попытался написать свой код. Но когда я выполняю функцию «Получение папки», выбирая путь к папке, она не зацикливает файлы Excel, которые у меня есть. (или запишите их имена)

 Источник: https://www.youtube.com/watch?v=7x1T4s8DVc0
Sub получение папки ()
Dim SelectedFolder как строка
С Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку"
    .ButtonName = "Подтвердить"
    .InitialFileName = "U:\"
    Если .Показать = -1 Тогда
        ок нажал
        ВыбраннаяПапка = .ВыбранныеЭлементы(1)
        MsgBox SelectedFolder
        ' Здесь я хочу вызвать свою функцию
        LoopFiles (SelectedFolder)
    Еще
        'отменить нажал
    Конец, если
Конец с
Конец сабвуфера
' Источник: http://www.excel-easy.com/vba/examples/files-in-a-directory.html
Sub LoopFiles (путь как строка)
Каталог Dim As String, имя файла As String, лист As Worksheet
Dim i как целое число, j как целое число
' Избегайте мерцания экрана и повышайте производительность
Application. ScreenUpdating = Ложь
'Исправлено согласно предложению ниже..
каталог = путь и "\"
fileName = Dir(каталог & "*.xl??")
Делать, пока имя_файла <> ""
    я = я + 1
    j = 2
    Ячейки (i, 1) = имя_файла
    Workbooks.Open (каталог и имя файла)
    Для каждого листа в рабочих книгах (имя файла). Рабочие листы
        Рабочие книги («Тестирование.xlsm»). Рабочие листы (1). Ячейки (i, j). Значение = лист. Имя
        дж = дж + 1
    Следующий лист
    Книги(имя_файла).Закрыть
    имя_файла = Каталог()
Петля
' Сброс настроек обновления экрана
Application.ScreenUpdating = Истина
Конец сабвуфера
 

• Excel
• ВБА

3

Интересный вопрос! Это должно сделать это за вас. Измените по мере необходимости.

 Sub LoopAllExcelFilesInFolder()
НАЗНАЧЕНИЕ: просмотреть все файлы Excel в указанной пользователем папке и выполнить над ними заданную задачу.
ИСТОЧНИК: www.TheSpreadsheetGuru.com
Dim wb как рабочая книга
Dim myPath как строка
Dim myFile как строка
Dim myExtension как строка
Dim FldrPicker как FileDialog
'Оптимизировать скорость макросов
  Application. ScreenUpdating = Ложь
  Приложение.EnableEvents = Ложь
  Приложение.Расчет = кслкалкулатионмануал
'Получить путь к целевой папке от пользователя
  Установите FldrPicker = Application.FileDialog (msoFileDialogFolderPicker)
    С FldrPicker
      .Title = "Выберите целевую папку"
      .AllowMultiSelect = Ложь
        Если .Show <> -1, то перейти к следующему коду
        мой путь = .SelectedItems(1) & "\"
    Конец с
'В случае отмены
СледующийКод:
  мой путь = мой путь
  Если myPath = "", то перейдите к ResetSettings
'Расширение целевого файла (должно включать подстановочный знак "*")
  myExtension = "*.xlsx"
'Целевой путь с конечным расширением
  мой файл = каталог (мой путь и мое расширение)
  Ряд = 1
'Перебрать каждый файл Excel в папке
  Делать, пока мой файл <> ""
    'Установить переменную, равную открытой книге
      Установите wb = Workbooks.Open (имя файла: = мой путь и мой файл)
    «Изменить фоновую заливку первого рабочего листа синего цвета»
      ThisWorkbook.Worksheets("Лист1"). Range("A" & Row).Value = Worksheets(1).Range("A1").Value
      Ряд = Ряд + 1
    'Сохранить и закрыть книгу
      wb.Close SaveChanges: = True
    'Получить следующее имя файла
      мой файл = каталог
  Петля
'Окно сообщения, когда задачи выполнены
  MsgBox "Задание выполнено!"
Сбросить настройки:
  'Сбросить настройки оптимизации макросов
    Приложение.EnableEvents = Истина
    Приложение. Расчет = кслкалкулатуатаматимат
    Application.ScreenUpdating = Истина
Конец сабвуфера
 

1

В вашем коде переменная пути не может содержать завершающую обратную косую черту. Это приводит к тому, что следующий код в вашей подпрограмме LoopFiles(<>) будет неточным:

 каталог = путь
fileName = Dir(каталог & "*.xl??")
 

Имя файла будет выглядеть примерно так: c:\users\name\documentshello.xlsx

Попробуйте изменить приведенный выше код на:

 directory = path & "\"
 fileName = Dir(каталог & "*.