Вставить значение в выделенную ячейку из файла выбранного вручную - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы