Импорт именованного диапазона Excel

Вторник, 28 Марта 2017 г. 15:05 + в цитатник

Всем привет!
Макросом импортирую таблицу из первого листа Excel.
В обкатке все работает, а как дошло до дела - затык.
Суть в том, что мне нужно импортировать данные именованного диапазона, например "table1" на "ЛистХ"
Добавил к оператору TransferSpreadsheet название таблицы, выдает ошибку 3011:

Sub importTest2()
'проба диапазона
   Dim sFile, sPath, sTableName, sFileName, sFolder, sRangeName
   Dim fd As FileDialog
   'Dim app As Object
   'Set app = CreateObject("excel.application")
   Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
   With fd
      If .Show = False Then Exit Sub
      .AllowMultiSelect = False
      sFolder = .SelectedItems(1)
   End With
   
   sPath = sFolder & "\" & "*.xlsm"
   sFile = Dir(sPath)
   sFileName = sFolder & "\" & sFile
      sTableName = "tMassifNar"
      'sRange = "table1"
      Do While sFile <> ""
         Call DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel12, _
         sTableName, sFileName, True, "table1")
         sFile = Dir
      Loop
End Sub