У меня есть несколько файлов Excel, содержащих заполненный сюрвей, теперь я хотел бы иметь один главный документ, который будет иметь итоговый результат каждого.

Таким образом я воображал, чтобы иметь для каждого файла строку ввода: имя - адрес - некоторые данные ...

Я хотел бы открыть каждый из файлов и скопировать данные из выбранных ячеек в мой основной файл.

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

Как я могу скопировать / вставить данные из А1 в свой лист?

Sub Combine()
  Fpath = "c:\test\" 
  Fname = Dir(Fpath & "*.xls")
  Dim xl As Excel.Application
  Set xl = CreateObject("Excel.Application")
  xl.Visible = false
  Dim w As Workbook
  Dim remoteBook As Workbook
  Set remoteBook = xl.Workbooks.Open(Fpath & Fname)
  xl.Quit
 End Sub

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

Что больше раздражает, так это то, что макросы VBA в файлах опроса позволяют отключить их при открытии, чтобы пользователь не получал приглашения?

Спасибо!