Jeg får en fejl i den linie jeg har lavet FED - fejlen er TYPE MISMATCH men jeg syntes at den ligner alle andre linier i min script så jeg kan ikke gennemskue hvad fejlen er - er der mon nogen der kan hjælpe ??
På forhånd tak
Lotte
Sub search_text()
'Variables used when dealing with Excel
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim strExcelFileName As String
'strExcelFileName = "C:\Documents and Settings\lotte.schmidt\Desktop\alle_quotes1.xls"
'test for at bruge andet end skrivebordet
strExcelFileName = "M:\afd01\AFD01 migrering\PFP 2\Fragtregulering\Maj 2010\MASTER\alle_quotes.xls"
Set objExcel = New Excel.Application
objExcel.Visible = True 'Excel's visibility. Invisibility speeds up execution.
objExcel.DisplayAlerts = False 'Om Excel skal komme med advarsler, eller om Excel skal ignorere alle advarsler og bare regne med at forfatteren af makroen ved hvad han laver (hhv true eller false).
Set objWorkbook = objExcel.Workbooks.Open(strExcelFileName)
'Set objWorksheet = objWorkbook.Sheets(1) 'Åbner det første ark/faneblad i dokumentet.
Set objWorksheet = objWorkbook.Sheets("allequotes") 'Åbner det ark/faneblad i dokumentet, der hedder "Ark 1".
'Set objWorksheet = objWorkbook.Sheets("Regnskab for Kroket-klubben") 'Åbner det ark/faneblad i dokumentet, der hedder "Regnskab for Kroket-klubben".
Dim check As String
Dim xlRow As Integer
Dim xlColumn As Integer
'disse dimmer er overskrifterne i excelarket
Dim quotenavn As String
Dim qd_comments As String
Dim dept As String
Dim debitor As String
Dim import As String
Dim sats As String
Dim Lotte As String
Dim individuel As String
Dim Ystatus As String
Dim checkline As String
Dim delete As String
Dim undtagelse As String
Dim undtagelse1 As String
Dim datocheck1 As String
Dim datocheck2 As String
Dim ugecheck As String
Dim clcheck As String
Dim undtagelselopslag As String
Dim text As String
Dim newvalidfrom As String
'disse dimmer er til at skrive tekst tilbage i excelarket
Dim Tekst10 As String
Dim Tekst11 As String
Dim Tekst12 As String
Dim Tekst13 As String
With Session
check = .GetDisplayText(1, 2, 8)
' Check for program
If check <> "QUOTE " Then
' Go to AGT
.MoveCursor 1, 2
.TransmitTerminalKey rcIBMEraseEOFKey
.TransmitANSI "QUOTE"
.TransmitTerminalKey rcIBMEnterKey
.WaitForEvent rcKbdEnabled, "9999", "0", 1, 1
End If
xlRow = "2"
Do While objWorksheet.Range("A" & xlRow).Value <> ""
'At tilgå data i Excel vha en celles adresse:
quotenavn = objWorksheet.Range("A" & xlRow).Value
qd_comments = objWorksheet.Range("B" & xlRow).Value
dept = objWorksheet.Range("C" & xlRow).Value
debitor = objWorksheet.Range("D" & xlRow).Value
Lotte = objWorksheet.Range("M" & xlRow).Value
import = objWorksheet.Range("N" & xlRow).Value
sats = objWorksheet.Range("O" & xlRow).Value
individuel = objWorksheet.Range("Q" & xlRow).Value
Ystatus = objWorksheet.Range("R" & xlRow).Value
checkline = objWorksheet.Range("S" & xlRow).Value
delete = objWorksheet.Range("T" & xlRow).Value
undtagelse = objWorksheet.Range("U" & xlRow).Value
undtagelse1 = objWorksheet.Range("V" &
xlRow).Value
Fejlen er i den kommende linie
undtagelselopslag = objWorksheet.Range("W" & xlRow).Value
text = objWorksheet.Range("X" & xlRow).Value
newvalidfrom = objWorksheet.Range("Y" & xlRow).Value
'1
If undtagelselopslag = "undtagelse" Then
EnterValuesInCL Session, 4, 2, quotenavn
'skriv quotenavn og tryk entern
.TransmitTerminalKey rcIBMEnterKey
.WaitForEvent rcKbdEnabled, "9999", "1", 1, 1
text = .GetDisplayText(4, 15, 8)
newvalidfrom = .GetDisplayText(6, 53, 6)
Tekst10 = "1016 SAC"
Tekst11 = "100501"
Tekst12 = "forkert tekst"
Tekst13 = "forkert dato"
If text = "1016 SAC" Then
objWorksheet.Range("X" & xlRow).Value = Tekst10
If newvalidfrom Then
objWorksheet.Range("Y" & xlRow).Value = Tekst11
Else
objWorksheet.Range("X" & xlRow).Value = Tekst12
End If
Else
objWorksheet.Range("Y" & xlRow).Value = Tekst13
End If
End If
xlRow = xlRow + 1
Loop
End With
'At gemme dokumentet:
objWorkbook.Save
'At lukke Excel:
objExcel.Quit
'Oprydning når man er helt færdig med Excel:
Set objExcel = Nothing
Set objWorkbook = Nothing
Set objWorksheet = Nothing
End Sub