Usuwamie błędu z makra

Napisałem makro6,które pobiera dane z plików z 3 plików .csv:
1.Do arkusza1 z pliku Historia .....
2.Do arkusza 2 z pliku 1Historia ... po naciśnięciu przycisku "Importuj" przy
zakładce "Importuj plik tekstowy,
3.Do arkusza 3 z pliku 2Historia ...po naciśnięciu przycisku "Importuj" przy
zakładce "Importuj plik tekstowy,

Dalej mam Makro8,które odpoweiednio kopiuje zaimportowane pliki z arkuszyi je obrabia wg moich potrzeb.

dalej mam Makro10,które robi w/w czynności łącznie.

Problem w tym,że nie zawsze jest plik z rozszerzeniem .csv : 1Historia..lub 2.Historia ...
Taka jest kolejnóść :zawsze jest plik Historia .Może nie byc pliku 1.Historia.. lub plików :1Historia... i 2Histora...
Kiedy brak opisanych plików makro pokazuje błąd.
Jakoś z tym sobie radzę.Ale nie są to warunki komfortowe.
Moze ktos usprawni załaczone makra,aby nie wykazywały błędu .
Oto makra:
Makro nuner 6


Sub Makro6()
'
' Makro6 Makro
' Makro zarejestrowane 2007-11-28, autor Michał5
'

'
    Cells.Select
    Selection.ClearContents
    With Selection.QueryTable
        .Connection = _
        "TEXT;C:\WINDOWS\Pulpit\Nowy folder\FORUM_Excela\Ostatnia_Aktualizacja\HistoriaRachunku.csv"
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(5, 1, 9, 9, 1, 1, 9, 9)
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Arkusz2").Select
    Cells.Select
    Selection.ClearContents
    With Selection.QueryTable
        .Connection = _
        "TEXT;C:\WINDOWS\Pulpit\Nowy folder\FORUM_Excela\Ostatnia_Aktualizacja\1HistoriaRachunku.csv"
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(5, 5, 9, 9, 1, 1, 9, 9)
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Arkusz3").Select
    Cells.Select
    Selection.ClearContents
    With Selection.QueryTable
        .Connection = _
        "TEXT;C:\WINDOWS\Pulpit\Nowy folder\FORUM_Excela\Ostatnia_Aktualizacja\2HistoriaRachunku.csv"
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(5, 5, 9, 9, 1, 1, 9, 9)
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Arkusz1").Select
    ActiveSheet.Shapes("Button 7760").Select
    Selection.OnAction = "Makro6"
End Sub



Makro numer 8
Sub Makro8()
'
' Makro8 Makro
' Makro zarejestrowane 2007-11-28, autor Michał5
'

'
    ActiveWindow.SmallScroll Down:=18
    Sheets("Arkusz2").Select
    Range("A3:D52").Select
    Selection.Copy
    Sheets("Arkusz1").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A53").Select
    ActiveSheet.Paste
    Sheets("Arkusz3").Select
    Range("A3:D52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Arkusz1").Select
    ActiveWindow.SmallScroll Down:=51
    Range("A103").Select
    ActiveSheet.Paste
    Range("F101").Select
    ActiveWindow.SmallScroll Down:=-99
    Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Replace What:="PLN", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:=",", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub



Makro nr 10

Sub Makro10()
'
' Makro10 Makro
' Makro zarejestrowane 2007-11-29, autor Michał5
'

'
    Workbooks.Open Filename:= _
        "C:\WINDOWS\Pulpit\Nowy folder\FORUM_Excela\Ostatnia_Aktualizacja\INNE.xls"
    ActiveWindow.ScrollColumn = 6
    Application.Run "INNE.xls!imporPprnzOperacjiKasy"
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.Run "'Makra - proba moja.xls'!Pobieranie_z_INNE"
    Cells.Select
    Selection.ClearContents
    Application.Run "'Makra - proba moja.xls'!Makro6"
    Application.Run "'Makra - proba moja.xls'!Makro8"
    Application.Run "'Makra - proba moja.xls'!Pobieranie_z_INNE"
End Sub

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl