Excel宏中的对象所需错误

Question

我正在尝试制作一个Excel宏，它可以在一系列日期之间从XML文档导入数据。我创建了这个宏，但是当我尝试测试它时，我收到此错误“需要对象”。

我已经研究了大约两个小时，但我找不到我的错误。

你能帮我吗？

谢谢， 问候。

Sub ImportFromXml()

Dim desde, hasta As Date
'Obtengo el rango de fechas
Set desde = DateValue(Range("B2").Value)
Set hasta = DateValue(Range("B3").Value)

'Application.ScreenUpdating = True

For hoy = desde To hasta

    Dim dia, mes, año As Integer
    Dim nombreMes As String
    'Obtengo el día, mes y año de la fecha actual
    Set dia = Day(hoy)
    Set mes = Month(hoy)
    Set año = Year(hoy)
    Set nombreMes = MonthName(mes, True)

    'Si no existe la hoja entonces la creo
    Dim hoja As Worksheet
    Set hoja = CreateWorksheet(nombreMes)

    'Importo los datos de la planilla del día
    'Set planilla = Range("B1").Value & "\dding" & año & IIf(mes < 10, "0" & mes, mes) & IIf(dia < 10, "0" & dia, dia) & ".xml"

    'hoja.Range("A1").Value = planilla

Next hoy

'Application.ScreenUpdating = True

End Sub