importing data to vba

[moosa77]

hi

as you can see below i imported my monthly update started in Nov 2007 , how i can make the next months in sequence in easy way?

Sub IMPORT_DATA()
'
' IMPORT_DATA Macro
'



Workbooks.OpenText Filename:= _
monkey, Origin:=xlMSDOS _
, StartRow:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array( _
11, 1), Array(23, 1), Array(28, 1), Array(43, 1), Array(53, 1)), TrailingMinusNumbers _
:=True
Sheets("Nov2007").Select
ActiveSheet.Move Before:=Workbooks("MONTHLY UPDATE.xlsm").Sheets(1)
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Selec

 

[Joe4]

Sequence how, exactly?

Are you just wanting to dynamically get the name of the sheet you need, i.e. "Jun2024" for this month instead of "Nov2007"?

If so, you can get by replacing this:

Sheets("Nov2007").Select

with this:

    Dim curMnth As String
    curMnth = Format(Date, "mmmyyyy")
    Sheets(curMnth).Select