A1ValueText = Text.From(A1Value)

let
    Источник = Excel.Workbook(File.Contents("путь к файлу.xlsx"), null, true),
    #"xxxx_Sheet" = Источник{[Item="лист1",Kind="Sheet"]}[Data]
 in
    #"xxxx_Sheet"

Источник{[Item="лист1",Kind="Sheet"]}[Data]

let
  A1Value = Excel.CurrentWorkbook(){[Name="параметры"]}[Content]{0}[столбец],
  Источник = Excel.Workbook(File.Contents("путь к файлу.xlsx"), null, true),
  #"Таблица" = Источник {[Item=A1Value,Kind="Sheet"]}[Data]
in
 #"Таблица"

With ObrazWsh

'       arr = .Range("D12:D81")        ' В таком виде работает, но так как столбец это переменная,то такое написание не подходит.
        arr = .Range(Cells(12, clm), Cells(81, clm)) ' а вот так выдает ошибку.
      For rw = 1 To UBound(arr) Step 2
       ThisWorkbook.Worksheets(shts).Cells(rw + 11, clm) = arr(rw, 1)
      Next rw

End With

Private Sub Workbook_Activate()
If ThisWorkbook.Application.DisplayFullScreen = False Then
    ThisWorkbook.Application.ScreenUpdating = False
    ThisWorkbook.Application.DisplayFullScreen = True   
    ActiveWindow.DisplayHeadings = False                
    ActiveWindow.DisplayGridlines = False
    ThisWorkbook.Application.DisplayFormulaBar = True   
    End If
End Sub

Private Sub Workbook_Open() ' открытие книги
    УбратьВсё
End Sub
Private Sub Workbook_Activate() ' возврат на эту книгу из другой
    УбратьВсё
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) ' закрытие книги
    ВосстановитьИнтерфейс
      
End Sub
Private Sub Workbook_Deactivate() ' переключение на другую книгу
    ВосстановитьИнтерфейс
End Sub

 

Sub ChangeInterface(Value As Boolean)
    With Application
        .ScreenUpdating = True
        .Caption = IIf(Value = True, Empty, "ТАБЕЛЬ")
        .DisplayStatusBar = True: .DisplayFormulaBar = True
        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = True:
        Next
        With .ActiveWindow
            .Caption = IIf(Value = True, .Parent.Name, "")
            .DisplayHeadings = Value: .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = True: .DisplayVerticalScrollBar = True
            .DisplayWorkbookTabs = True
        End With
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
    End With
End Sub

Sub УбратьВсё()
    ChangeInterface False
End Sub


Sub ВосстановитьИнтерфейс()
    ChangeInterface True
End Sub

Private Sub Workbook_Activate()
MsgBox "привет"
'Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", false)"
    Application.CellDragAndDrop = True
    Application.ScreenUpdating = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
'    DragAndDrop = Application.CellDragAndDrop
'    If DragAndDrop Then Application.CellDragAndDrop = False
    End Sub

Private Sub workbook_deactivate()
'Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", true)"
MsgBox "пока"
Application.ScreenUpdating = True
    ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    Application.CellDragAndDrop = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
        Dim cell As Range
If Not Intersect(Target, Range("STATE_COLUMN")) Is Nothing Then
        On Error Resume Next
        Application.ScreenUpdating = False
        For Each cell In Intersect(Target, Range("STATE_COLUMN"), Cells.SpecialCells(xlCellTypeConstants)).Cells
             If (LCase(cell.Value) <> LCase(cell(1, 2).Value)) Then
                If (LCase(cell.Value) = Range("")) Then
                    With cell(1, 5)
                        .Value = Now
                        .EntireColumn.AutoFit
                    End With
                    End If
                cell(1, 2).Value = cell.Value
            End If
            Next
           End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)    
if Target.Locked = True Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = ActiveCell.Value
End Sub