Удаление слова в столбце табуляции через макросы vba выдает ошибку
Я хочу скопировать данные из Excel в таблицу слов, а затем удалить некоторые столбцы из таблицы. Я могу скопировать данные в таблицу, но при удалении столбца выдает ошибку:
Невозможно получить доступ к отдельным столбцам в этой коллекции, поскольку таблица имеет смешанную ширину ячеек.
Мой код:
Public Tbl1 As Table
Sub callExcel()
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Set exWb = objExcel.Workbooks.Open("C:\Users\ismayilov\Desktop\test")
roomNumber = InputBox("Enter the room number to copy word:", "Room Number")
ActiveDocument.FormFields("Text1").Result = roomNumber
exWb.Sheets("Sheet1").Range("$A:$H").AutoFilter Field:=8, Criteria1:=roomNumber
Dim rVis As Range, rData As Range
exWb.Sheets("Sheet1").Range("$A1:$H600").Copy
Set Tbl1 = ActiveDocument.Tables.Add _
(Range:=Selection.Range, numRows:=1, NumColumns:=8)
Tbl1.Range.Paste
Tbl1.Columns(1).Delete
exWb.Close SaveChanges:=True
Set exWb = Nothing
Set Tbl1 = Nothing
End Sub