La eliminación de palabras de la columna tabe a través de macros vba da un error
Quiero copiar datos de Excel a la tabla de palabras y luego eliminar algunas columnas de la tabla. Puedo copiar datos a la tabla, pero cuando elimino la columna, se produce un error:
No se puede acceder a columnas individuales en esta colección porque la tabla tiene anchos de celda mixtos.
Mi código:
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