Вставить значение в выделенную ячейку из файла выбранного вручную - VBA
Формулировка задачи:
Добрый день!
Помогите пожалуйста с макросом.
Необходимо сделать ,чтобы при выделении ячейки из таблицы (из файла for Cyberforum1), и нажатии кнопки "вставить значение", открывался "обзор файлов" где ты выбираешь нужный файл (например for Cyberforum2) и из него копировалась например ячейка B2 и вставлялась в выделенную ячейку.
Можно ли такое реализовать?
Буду очень благодарен если поможете!
Решение задачи: «Вставить значение в выделенную ячейку из файла выбранного вручную»
textual
Листинг программы
Option Explicit Sub Кнопка1_Щелчок() Dim f$ f = GetFilePath If Len(f) Then With GetObject(f) Selection(1) = .ActiveSheet.[b2] End With End If End Sub Function GetFilePath(Optional ByVal Title As String = "Выберите файл для загрузки", _ Optional ByVal InitialPath As String = "C:", _ Optional ByVal FilterDescription As String = "Книги Excel", _ Optional ByVal FilterExtention As String = "*.xlsx*") As String ' функция выводит диалоговое окно выбора файла с заголовком Title, ' начиная обзор диска с папки InitialPath ' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора ' для фильтра можно указать описание и расширение выбираемых файлов On Error Resume Next With Application.FileDialog(msoFileDialogOpen) .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath .Filters.Clear: .Filters.Add FilterDescription, FilterExtention If .Show <> -1 Then Exit Function GetFilePath = .SelectedItems(1) End With End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д