Загрузка данных из закрытого .xls файла - VBA (50548)
Формулировка задачи:
Доброго времени суток.
Необходимо создать код для выбора закрытого файла формата .xls путем вывода окошка "Открытие документа" и загрузки данных из выбранного .xls файла с первого листа ячеек A1:C12 во второй лист активной книги в ячейки A1:C12 соответственно.
Заранее спасибо!
Решение задачи: «Загрузка данных из закрытого .xls файла»
textual
Листинг программы
Sub Task() Dim wb As Workbook Dim Sh As Worksheet Dim sw As Workbook Dim ss As Worksheet Set sw = ThisWorkbook Set ss = sw.Sheets(1) fname$ = Application.GetOpenFilename("Файлы MsExcel (*.xls),*.xls", , "Выбор файла") If UCase$(fname$) <> "FALSE" And UCase$(fname$) <> "ЛОЖЬ" Then Set wb = Workbooks.Open(fname$) Set Sh = wb.Sheets(1) wb.Activate Sh.Select Sh.Range("A1:C12").Select Selection.Copy sw.Activate ss.Select Range("a1").Select ActiveSheet.Paste wb.Close MsgBox "OK!" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д