Necesito cargar un mes de archivos CSV en Excel para su análisis a través de VBA. Cada día del mes es un archivo separado con el nombre de la fecha (AAAAMMDD).

Actualmente, puedo cargar dos archivos creados por dos circunstancias diferentes, A y B usando

With ActiveSheet.QueryTables.Add(Connection:=Full_F_Name_A, _
                                 Destination:=Range("$H$4"))

Utilizo un bucle para cambiar A y B (y el destino). No he descubierto cómo incrementar la fecha. Utilizo un cuadro de entrada para obtener la fecha del primer archivo del mes.

F_Name = InputBox("Enter name of first data file eg YYYYMMDD, target=H4, EG4")

Cualquier ayuda sería genial ya que estoy atascado ... y un principiante.

OK OK, vea el código VBA a continuación. Error de tiempo de ejecución recibido '3001' Los argumentos son del tipo incorrecto, están fuera del rango aceptable o están en conflicto entre sí. El depurador apunta a la línea ".cursorlocation = aduseclient". Quizás falte algún software en mi PC. El video de introducción en el sitio web de ADO ya no existe, así que no vi la introducción. Intentaré de la otra manera que conozco simplemente abriendo los archivos y volcándolos a Excel mientras espero más consejos.

Sub Month_wdata_import()

Set cN = CreateObject("ADODB.Connection")
Set rS = CreateObject("ADODB.Recordset")

Dim sDate As String
Dim sDataPath As String
Dim i As Integer
Dim  mMax As Integer

sDataPath = Worksheets("D&L").Cells(1, "G").Value ' values located in 2nd sheet of workbook
mMax = Worksheets("D&L").Cells(1, "D").Value  'values located in 2nd sheet of workbook

For i = 1 To mMax
    sDate = "A_" + CStr(Worksheets("D&L").Cells(1 + i, "A").Value) ' looping through list of dates in sheet

    With cN
     .cursorlocation = aduseclient
     .CursorType = adopenstatic
     .LockType = adLockreadonly

       .Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=" & sDataPath & ";" & _
       "Extended Properties=""text; HDR=Yes; FMT=Delimited; IMEX=1;""")
    End With

    With rS
      .ActiveConnection = cN
      .Source = "select * from data_" & sDate & "_.csv"
      .Open
    End With

Next

Range("A1").CopyFromRecordset rS

End Sub