Læse i Excel og lukke Excel

Har indsat koden i et andet regneark og modificeret det lidt.
Får ikke fejl 462.

Skal koden afbrydes når der er manglende dato?
Ved ikke om du kan bruger det til noget.


Sub OpdaterData()

Dim AntRæk As Integer
Dim Række As Integer
Dim X As Integer
Dim EPdato2 As String
Dim fejl As Integer

X = 1
Række = 1
AntRæk = 0
fejl = 0

On Error GoTo fejl

Set xlapp = CreateObject("Excel.Application")
    xlapp.Visible = True    'False

Set newbook = xlapp.Workbooks.Open("C:\Users\peter\Desktop\Eksp_JanMøller\Book1.xls")  '<----------
    newbook.Worksheets("sheet1").Range("A2").Select

EPdato = newbook.Worksheets("sheet1").Cells(X, 1).Value

AntRæk = 19    '<---- OBS  newbook.Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Call MsgBox(AntRæk)

While Række <= AntRæk
    'Kontroler dato for fejl
    EPdato2 = newbook.Worksheets("sheet1").Cells(Række, 1).Value
    myDate = Format((DateSerial(Right(EPdato2, 4), Mid(EPdato2, 4, 2), Left(EPdato2, 2))), "dd-mm-yyyy")
    myDateCheck = (EPdato2 = myDate)
    If myDateCheck = False Or Mid(EPdato2, 4, 2) > 12 Or Left(EPdato2, 2) > 31 Then
        MsgBox ("Der er fejl i dato i række " & Række)
        fejl = 1
    End If
   
    'Kontroler beløb for fejl
    EPbelb = newbook.Worksheets("sheet1").Cells(Række, 4).Value
    If EPbelb = 0 Then
        MsgBox ("Der er intet beløb i række " & Række)
        fejl = 1
    End If
   
    'Kontroler tekst for fejl
    EPtext = newbook.Worksheets("sheet1").Cells(Række, 6).Value
    If EPtext = "" Then
        MsgBox ("Der er ingen text i række " & Række)
        fejl = 1
    End If
   
    'Kontroler konto for fejl
    EPkonto = newbook.Worksheets("sheet1").Cells(Række, 7).Value
    If EPkonto = "" Then
        MsgBox ("Der er ingen konto angivet i række " & Række)
        fejl = 1
    End If
   
    Række = Række + 1

Wend

fejl:
If fejl = 1 Then
    GoTo Cleanup
    Exit Sub
End If

Cleanup:
  newbook.Close
  Set newbook = Nothing
 
  xlapp.Quit
  Set xlapp = Nothing

End Sub

Hej.

Tak for svar.

Njaah, nu er det jo i VB 6.0 jeg har skrevet det. Ved ikke om det er 100% sammenligneligt med at skrive det i Excel? Så skarp er jeg ikke i det (endnu) :-)

Men jeg kan se at du har sat "AntRæk" til et fast tal. Det er lidt pudsigt for det er lige præcis den linje den highlighter efter fejl "462". Hvorfor har du lige præcist rettet den?

Måske skal jeg, når jeg kommer hjem, prøve at sætte "AntRæk" til et fast tal også og se om det hjælper.

I mellemtiden, hvis du/andre har flere idéer hører jeg meget gerne så jeg har noget at arbejde ud fra.

//Jan

Årsagen til at jeg satte antal rækker = 19, var netop at der skete fejl.

Prøv med:
AntRæk = newbook.Worksheets("sheet1").Range("A65536").End(xlUp).Row

Ok, super.

Prøver så snart jeg har muligheden (i aften)

//Jan

Wohoo, det virkede. Tak for det :-)

Hælder du et svar ind jeg kan kaste point efter?

Fint - selv tak og et svar..