检查列是否存在VBA

Question

我需要使用VBA将数据从Excel移动到Access。目前我使用DoCmd.TransferSpreadsheet acImport, 9, _ "Employees","C:\exceldata\sheet1.xls", True, "A1:G12" 方法工作正常，但我需要一种方法来添加特定列，如果这些列不存在，代码也会失败。另请注意，我不能使用下面列出的范围，因为如果在导入之前删除了一列？这就是我更喜欢使用列名的原因。

我目前的代码是：

class Organization
  has_many :buildings
end
class Building
  has_many :counters
end
class Counter
  has_many :counter_records
end
class CounterRecord
  belongs_to :counter
end