Дублировать декларацию в текущей области

Я использую приведенный ниже код, чтобы открыть файл и будет копировать и вставлять данные, однако я получаю ошибку компиляции

Duplicate declaration in current scope 

Он выделяет wb как строку рабочей книги, когда она дает ошибку компиляции.

 Sub Test() Dim wb As Workbook Dim wksht As Worksheet Dim rng As Range Set wksht = Sheets("CBS001") Set rng = wksht.Range("A5") If Not IsEmpty(rng.Offset(1, 0)) Then Set rng = Range(rng.End(xlDown).Offset(0, 14), rng.Offset(1, 0)) Selection.Copy Set wb = Workbooks.Open(Filename:="H:\Finance\CBF\Invoices\Monthly Invoicing Summary\" & Format(Now, "yyyy") & "\ASM\" & Format(DateSerial(Year(Now), Month(Now) - 1, Day(Now)), "mmyy") & " ASM CBF Reg Summary.xlsx") wb.SaveAs Filename:="H:\Finance\CBF\Invoices\Monthly Invoicing Summary Test\" & Format(Now, "yyyy") & "\ASM\" & Format(Now, "mmyy") & " ASM CBF Reg Summary.xlsx" wb.Close End If End Sub 

Проблема заключалась в том, что vba собирал тот же Dim из других мест в моей книге, поэтому я использую более длинные и более точные имена.

  Sub Test() Dim wbdestination As Workbook Dim wksdata As Worksheet Dim rngdestination As Range End Sub 

Например

  • Как фильтровать последнюю обновленную неделю в столбце?
  • Как сделать суммы из ячейки в другой колонке?
  • Вырезать Вставить данные с листа Excel с помощью Autofilter в Excel VBA
  • Excel 2007 / MS Query Использование 1 таблицы для фильтрации другого, частичного соответствия
  • Блокировка выбора размера окна в Excel
  • Excel 2007 Использование косвенной ссылки для нескольких строк
  • Excel - значение формата (маска)
  • Где я ошибаюсь, чтобы комбинировать AND () и OR () в формулах Excel?
  • Использование листа Excel в качестве шаблона против «реального» шаблона Excel в OpenXML
  • Два метода выбора листа 2 и нахождения последней используемой строки с помощью кнопки команды в листе 1 не выполняются
  • Получение ошибки при попытке сохранить GIF-скриншот с помощью макроса Excel VBA
  • Давайте будем гением компьютера.