Ich möchte Daten von Excel in die Worttabelle kopieren und dann einige Spalten aus der Tabelle löschen. Ich kann Daten in eine Tabelle kopieren, aber wenn ich eine Spalte lösche, wird ein Fehler angezeigt:

In dieser Auflistung kann nicht auf einzelne Spalten zugegriffen werden, da die Tabelle gemischte Zellenbreiten aufweist.

Mein Code:

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