moving/copying sheets from different workbooks

Hi,
I am already using following codes...
Check if they are useful for you or not.

Sub Macro1()
ChDrive "C:\"
ChDir "C:\Users\PC\Downloads\"
TargetFolder = "C:\BIST\HamDosyalar\" & Format(Now, "yyyymmdd hhmm") & "\"
MkDir TargetFolder
x = Application.GetOpenFilename(FileFilter:="Zip Files (*.zip), *.zip", _
                                FilterIndex:=1, _
                                Title:="Select files...", _
                                ButtonText:="", _
                                MultiSelect:=True)
If IsArray(x) = True Then
    Set oApp = CreateObject("Shell.Application")
    For i = LBound(x) To UBound(x)
        oApp.Namespace(TargetFolder).CopyHere oApp.Namespace(x(i)).Items
    Next i
End If
End Sub

Sub Macro2()
ChDrive "C:\"
ChDir TargetFolder
Dim wb As Workbook
Z = Application.GetOpenFilename(FileFilter:="", _
                                FilterIndex:=1, _
                                Title:="Select files...", _
                                ButtonText:="", _
                                MultiSelect:=True)
If IsArray(Z) = True Then
    For i = LBound(Z) To UBound(Z)
    Set wb = Workbooks.Open(Z(i), Local:=True)
        wb.Worksheets.Copy Before:=ThisWorkbook.Sheets(1)
        wb.Close True
    Next i
End If
End Sub

Hi,
1- Put enclosed file named "Template" to your desktop.
2- Put enclosed file named "Bank 010814" to under C:
3- Open "Template" file and run following code.

Sub importfiles()
Dim wbname As String
Dim dt As String
Dim newwb As Workbook
wbnam = "C:\"
dt = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmyy")
Workbooks.Open Filename:=wbnam & "Bank 01" & dt & ".xlsx"
Set newwb = Workbooks("Bank 01" & dt)
newwb.Sheets("Credit Card").Copy After:=Workbooks("Template.xlsm").Sheets(1)
newwb.Close False
End Sub

Regards.

Change this line;

Workbooks.Open Filename:=wbnam & "Bank 01" & dt & ".xlsx"

to this;

Workbooks.Open Filename:=wbnam & "Bank 01" & dt & ".xls"

Let me know if it is okey now...

Dont forget reputation
Dont forget signed as solved...