Скопировать ширину столбца из книги x листа i в книгу y листа i

Question

Я пытаюсь получить ширину столбцов моей основной рабочей книги в целевой рабочей книге. Все остальное, что у меня есть, работает как защита листа, диапазоны исключений и т. Д. (Обратите внимание, я применяю защиту листа в самом КОНЦЕ модуля)

Я пробовал несколько подходов: переход от столбца к столбцу или к целомуряд или другие диапазоны, но он будет делать что угодно, кроме копирования ширины столбца.

 For col = 1 To col = Input_Obj_WS.Range("A1:XX1").Columns.Count
    With Output_Obj_WS.Columns(col)
        .ColumnWidth = Output_Obj_WS.Columns(col).ColumnWidth
    End With
 Next col

У меня были всевозможные ошибки, но на начальных попытках я получил сообщение «Не удалось вставить специальную строку с классом диапазона»

Сейчас я больше не получаю ошибок, но просто не могучто-нибудь.

Answer 1

Так что после некоторой тряски я заставил это работать. Я не думаю, что это самое элегантное решение, но пока оно работает. @Bilal Спасибо за помощь

For Col = 1 To Input_Obj_WS.Range("A1:XX1").Columns.Count


    Debug.Print ("In: " & Input_Obj_WS.Columns(Col).ColumnWidth)
    Debug.Print ("Out: " & Output_Obj_WS.Columns(Col).ColumnWidth)

    Colwidth = Input_Obj_WS.Columns(Col).ColumnWidth
    Output_Obj_WS.Columns(Col).ColumnWidth = Colwidth


    Debug.Print ("Out 2: " & Output_Obj_WS.Columns(Col).ColumnWidth)


Next Col