Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.07.2017, 12:57   #1
Dimitriusik
Пользователь
 
Регистрация: 02.06.2017
Сообщений: 29
По умолчанию Скопировать данные из таблицы xlsx в текущую книгу

У нас открыта книга с таблицей. В каталоге C:/Raports/block/ находится 1 файл в формате xlsx.
Надо из этого файла скопировать столбцы A и B в текущую открытую книгу в столбцы G и H макросом
Dimitriusik вне форума Ответить с цитированием
Старый 06.07.2017, 13:22   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Вы жалуетесь, или хвастаетесь?
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 06.07.2017, 13:23   #3
Dimitriusik
Пользователь
 
Регистрация: 02.06.2017
Сообщений: 29
По умолчанию

Цитата:
Сообщение от kuklp Посмотреть сообщение
Вы жалуетесь, или хвастаетесь?
спрашиваю. не знаю как это сделать макросом
Dimitriusik вне форума Ответить с цитированием
Старый 06.07.2017, 13:25   #4
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Ну извините, я вот не увидел и намека на вопрос в топике. Да и пример в файле принято выкладывать. Быстрей результат будет.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 06.07.2017, 14:08   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Dimitriusik Посмотреть сообщение
как это сделать макросом
например, так:

Код:

Sub GetColumnsFromFirstFile()
  Dim fn$, wb As Workbook, activewb As Workbook
  Const pt$ = "C:\Raports\block\"

  'Отключаем обновление экрана
  Application.ScreenUpdating = False
  Application.DisplayAlerts = 0

  fn = Dir(pt & "*.xlsx")
  If fn = "" Then
     MsgBox "Not Found xlsx Files in catalog " & pt
  Else

    Set activewb = ActiveWorkbook
    Set wb = Workbooks.Open(pt & fn)

    wb.Worksheets(1).Range("A:B").Copy _
         Destination:=activewb.ActiveSheet.Range("G:H")
    wb.Close
 
    MsgBox "Get data from " & fn

  End If


  Application.DisplayAlerts = 1
  'Включаем обновление экрана
  Application.ScreenUpdating = True

End Sub
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.07.2017, 14:17   #6
Dimitriusik
Пользователь
 
Регистрация: 02.06.2017
Сообщений: 29
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
например, так:

Код:

Sub GetColumnsFromFirstFile()
  Dim fn$, wb As Workbook, activewb As Workbook
  Const pt$ = "C:\Raports\block\"

  'Отключаем обновление экрана
  Application.ScreenUpdating = False
  Application.DisplayAlerts = 0

  fn = Dir(pt & "*.xlsx")
  If fn = "" Then
     MsgBox "Not Found xlsx Files in catalog " & pt
  Else

    Set activewb = ActiveWorkbook
    Set wb = Workbooks.Open(pt & fn)

    wb.Worksheets(1).Range("A:B").Copy _
         Destination:=activewb.ActiveSheet.Range("G:H")
    wb.Close
 
    MsgBox "Get data from " & fn

  End If


  Application.DisplayAlerts = 1
  'Включаем обновление экрана
  Application.ScreenUpdating = True

End Sub
Круто! Большое спасибо!
Dimitriusik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сопоставить две таблицы и скопировать отсутствующие данные mmet Microsoft Office Excel 1 08.07.2013 09:28
Как скопировать данные из одной таблицы в другую? Ольга А Microsoft Office Access 0 29.10.2012 19:46
Как скопировать данные из таблицы, включающей пустые строки yursanch Microsoft Office Excel 5 22.09.2010 16:07
Как скопировать данные таблицы из одной базы access в другую? AK BULLETS БД в Delphi 2 31.03.2010 13:09
Скопировать данные в новую книгу, согласно критерию Iskin Microsoft Office Excel 12 01.12.2008 15:13