Hej,
Jag har ett macro som kör en rapport från vårt affärssytem till en textfil som jag sedan hämtar in till Excel. Jag får dock körfel 6 när Excel hämtat exakt 32767 rader från textfilen.
Den del i koden som verkar vara fel är intRad = intRad + 1. Men varför - och varför klarar jag mig till 32767 rader men inte mer?
With objGarp.ReportGenerators.Item("265").Reports.Item("Jö")
.Medium = "D"
.FilePath = "G:\offertlistaja.txt"
.RangeFrom = ordernrFrom
.RangeTo = ordernrTom
.SetDialogResponse "1=prel,2=def,3=kopia", prel
.SetDialogResponse "Kundnummer from....:", kundnrFrom
.SetDialogResponse "Kundnummer tom.....:", kundnrTom
.SetDialogResponse "Orderdatum from....:", OrddatFrom
.SetDialogResponse "Orderdatum tom.....:", OrddatTom
.Run
.Wait
End With
intRad = 9
'Läs filen som skapats från Garp
Open "G:\offertlistaja.txt" For Input As #1
Do Until (EOF(1))
Line Input #1, strRad
If (Mid(strRad, 78, 1) = ">") Then
'Midstr(värde, startposition, längd)
Range("A" & intRad).Value = Mid(strRad, 3, 6) 'Ordernr
Range("F" & intRad).Value = Mid(strRad, 10, 60) 'Orderradstext
Range("G" & intRad).Value = Mid(strRad, 70, 5) 'Orderradsnr
intRad = intRad + 1
End If
Loop
Close