Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ukes i prosedyren<br />
Dim intDumpÅr As Integer 'Variabelen inneholder året fra dumpfilen<br />
Dim intKolonne As Integer 'Tellervariabel som brukes i prosedyren<br />
Dim sinVerdi1, sinVerdi2 As Single 'Variabler som brukes til å lage verdiene fra dumpfilen<br />
48<br />
'Sjekker om variabelen gBrukGlobalPlassering er true. Dersom dette er tilfellet ønsker brukeren<br />
å kun benytte en dumpfil for alle KOSTMOD-avdelingene<br />
If gBrukGlobalPlassering Then<br />
'Henter inn plasseringen til dumpfilen. Plasseringen hentes fra variabelen<br />
gKostmodDumpPlassering<br />
strFilnavn = gKostmodDumpPlassering<br />
Else 'If gBrukGlobalPlassering Then<br />
'Brukeren ønsker ikke å benytte samme dumpfil for alle KOSTMOD-avdelingene, og får<br />
derfor spørsmål om dumpfilens plassering hver gang<br />
strFilnavn = Application.GetOpenFilename("KOSTMOD Dump filer (*.xls), *.xls", , "Velg<br />
KOSTMOD-dumpfil for " & strAvdeling)<br />
End If 'If gBrukGlobalPlassering Then<br />
'Viser skjemaet frmVent<br />
frmVent.Show<br />
frmVent.Repaint<br />
'Sjekker om dumpfilen er åpen<br />
If Is_Open(strFilnavn) = False Then<br />
'Dersom variabelen strFilnavn inneholder verdien FALSE betyr det at brukeren har trykket<br />
avbryt i dialogboksen. Importen avbrytes<br />
If UCase(strFilnavn) = "FALSE" Then<br />
strGlobalAvbryt = "JA"<br />
Exit Sub<br />
End If 'If UCase(strFilnavn) = "FALSE" Then<br />
'Åpner dumpfilen<br />
Workbooks.Open strFilnavn<br />
Else 'If Is_Open(strFilnavn) = False Then<br />
'Dumpfilen er allerede åpen. Aktiverer filen<br />
Workbooks(Mid(strFilnavn, InStrRev(strFilnavn, "\") + 1)).Activate<br />
End If 'If Is_Open(strFilnavn) = False Then<br />
'Sjekker at filen er en Excelfil. Dersom filen ikke er en Excelfil har brukeren valgt feil dumpfil.<br />
Importen avbrytes i så tilfelle<br />
If UCase(Right(strFilnavn, 3)) "XLS" Then<br />
MsgBox "Filen du valgte var ikke en Excel fil. Dataimporten kan ikke gjennomføres.<br />
Avdelingen blir satt inn i MORSK uten tilhørende data.", vbCritical, "MORSK - Informasjon"<br />
Exit Sub<br />
End If 'If UCase(Right(strFilnavn, 3)) "XLS" Then<br />
'Sjekker om oppgitt gren stemmer med grenen i dumpfilen<br />
strDumpGren = Left(Cells(2, 2).Value, 1)
Change language