Import og opsætning af txt-fil

Hei  lsskaarup
Det er ikke sikkert jeg kan hjelpe, men hvis du fårstår min norsk kan jeg prøve :-)
( jeg har fått mye hjelp her på experten, kanskje på tide å betale tilbake)

Hva om vi starter enkelt og deler oppgaven i flere små oppgaver?

1) lage kanpp som starter hele prosessen
2) så kan vi lage modulen som skal åpne tekstfilen ...
Når vi kommer til detaljer vi ikke klarer å løse,
får du sikkert hjelp fra andre her på eksperten

mvh
oyejo

Helt i orden med mig.

Vet du hvordan man legger en knapp ( command buttom ) inn i excel?

Både og, jeg har gjort det, men kan ikke lige finde funktionen nu, og kan heller ikke huske hvad den hed... :-(

Hov nu fandt jeg den, jeg skulle jo lige have den rigtige værktøjslinie frem, så nu har jeg indsat en kommandoknap

Da bør vi åpne VBA-editoren

jeg kalder den for indlæs_fil (name)

det går godt

Yes, tuhej hvor det går ;-) Jeg har nu også rodet lidt med dette i forvejen, det er bare så lang tid siden...

Hvis du ikke finner vba-editoren, kan du bare lage en makro som gjør en enkel ting for eksempel merke en celle

Ok, vi kan prøve å sette inn en ny modul som vil være hovedmodulen

går det bra?

jeg får desverre ikke tid før i morgen men...

etter at du har satt inn knappen, bør du gå inn i vba- editoren
der kan du velge insert module.

I denne modulen kan du til å begynne med kopiere inn denne koden:

Option Explicit
Option Base 1

Public Sub HovedSub()
  MsgBox "hej"
End Sub

Så kan du gå tilbake til knappen,
høyreklikke på denne.
velg tilordne makro
nå kan du velge makro fra en liste

Øh, jeg ved ikke helt præcist hvordan jeg fik tilknyttet makroen, for jeg havde ikke "tildel makro" ved højre klik, men den virker i hvert fald. Når jeg trykker på den, så kommer dialogboksen og siger "Hej"

Det er mulig du har vis kode istedet for tildel makro?

Hvis du velger Vis -> Verktøylinjer -> Visual Basic
Får du frem den verktøylinjen du har behov for
Så kan vi dra på en liten oppdagelsesreise :-)

Ja, det har jeg, men jeg gjorde det nu under funktioner->makro->afspil makro.

Okay hvad så

Vi må inn i miljøet der makrokoden ligger lagret
Se på meldinge fra kl. 11:56:50
Hvis noe er uklart er det bare å spørre

Du kan også gå inn i VBA ved å trykke Alt + F11

Jeg er der inde

Hva ser du?

Har du et lite vindu med overskrift Prosject ...?

Hvis ikke kan du lukke alle vinduer untatt det store, så begynner vi på nytt

du får fram prosject vinduet ved å velge
View -> prosject explorer  ( hurtigtast Ctrl + R )

Jeg har et vindue, hvor jeg kan skrive kode i. Der sker ikke rigtigt noget hvis jeg trykker ctrl+R

Kan du lukke vinduet, ett sort lite kryss i høyre hjørne

Hvilken versjon av excel har du ?

Selvfølgelig kan jeg lukke vinduet på krydset...

Versionen er 2000-udgaven

Hvis du har litt tid nå, kan vi i løpet av kort tid lage en funksjon som åpner tekstfila, ( tror jeg :-)
Når du har lukket kodevinduet, har du bare menyenen synlig i toppen

Hvis du har lukket alle vinduer, slik at bare hovedvinduet i editoren er åpent.
Kan du velge View -> Prosjedt Explorer  , eller hurtigtast Ctrl + R
Nå kan det være litt anderledes i windows 2000 jeg har xp, men hadde 2000 før.

Kigger på det i morgen, når jeg er på arbejde

Nå, for fanden da, men projekt explorer referere du til stifinder-vinduet ude til venstre. Jeps, men nu er jeg der og har lukket alle andre vinduer.

I stifindervinduet har du  Microsoft Excel Objects
Under der har du kansjke Ark1. dobbelklikk på Ark 1 for å se om koden til knappen ligger der.

Ja, koden er i ark1

Kan du lime koden inn her slik at jeg kan se den?
Jeg har litt til ca en time framover nå. Så hvis det passer for deg, kan vi prøve oss litt fram

Hvis du har en mappe som henter Modules, kan du klikke på "+" tegnet

Hvis du ikke har noen moduler kan du velge :
-> Insert -> Module
Så kan du lime inn denne koden:

Option Explicit
Option Base 1

Public Sub HovedRutine()
MsgBox " Hei :-) "
End Sub

Så kan du gå tilbake til koden i Ark 1
Der kan du nå sette inn denne koden

Private Sub Her setter du inn navnet på din knapp_Click()
  Call HovedRutine
End Sub

Ta bort den gamle koden i Ark 1

Yeps, gjort

Hvis vi har forstått hverandre riktig.
Den eneste koden som står i Ark1 er:
Private Sub "knappenavn"_Click()
  Call HovedRutine
End Sub

Så har du en modul under modules som heter module1.
Merk Module1 i stifindervinduet og trykk F4, nå kommer det opp et vindu der du kan gi din modul et nytt navn, for eksempel Hovedmodul

Der vi denne koden stå:
Option Explicit
Option Base 1

Public Sub HovedRutine()
MsgBox " Hei :-) "
End Sub

Nå er ikke jeg noen ekspert i denne, men jeg ville ha opprettet to moduler til.
ved hjelp av:  -> insert -> module.
Den ene modulen kan du gi navnet Declarasjoner og den andre prosedyrer.
( i ettertid vil du sikkert finne din egen måte å gjøre dette på )

Når det er gjort må du fortelle meg:
Navn og sti til tekstfila som skal åpnes

Fino, Nu er placeringen af filen ikke så vigtig, jeg tilretter den senere, men lader os bare sige, den ligger i c:/ og hedder maling.txt

Ja, en ting til, er txt-fila semikolonseparert, eller benyttes komma eller et annet skilletegn?

I Modulen Declarasjoner kan du skrive inn disse linjene:
Option Explicit
Option Base 1

Public sFolder As String
Public sTxtFile As String

I modulen Prosedyrer kan du skrive følgende:
(antar at fila er semicolonseparert )

Option Explicit
Option Base 1

Public Sub OpneTextFilen()
 
    Workbooks.OpenText Filename:=sFolder & sTxtFile , _
                DataType:=xlDelimited, Semicolon:=True
End Sub

Filens opbygning er (copy/paste direkte fra Notepad):

Ojeblikkel. Bvol 21.99
ALARM 10.38:20 19-03-04


Total    : 32336.49
Total A,B: 25869.48; 6467.01
SubTotal    : 4.95
SubTotal A,B: 3.96; 0.99
Gnms. B volume: 25.03
10.38:36  19-03-04
END


Total    : 32336.49
Total A,B: 25869.48; 6467.01
SubTotal    : 0
SubTotal A,B: 0; 0
10.38:37  19-03-04
Recept Nr. 2  Bvol %  25
START


Ojeblikkel. Bvol 22.69
ALARM 10.42:31 19-03-04


Total    : 32343.09
Total A,B: 25874.76; 6468.33
SubTotal    : 6.73
SubTotal A,B: 5.38; 1.34
Gnms. B volume: 25.04
10.42:37  19-03-04
END


Total    : 32343.09
Total A,B: 25874.76; 6468.33
SubTotal    : 0
SubTotal A,B: 0; 0
10.42:38  19-03-04
Recept Nr. 2  Bvol %  25
START


Ojeblikkel. Bvol 23.53
ALARM 10.52:58 19-03-04


Total    : 32348.26
Total A,B: 25878.89; 6469.37
SubTotal    : 5.26
SubTotal A,B: 4.2; 1.05
Gnms. B volume: 25.07
10.53:40  19-03-04
END


Total    : 32348.26
Total A,B: 25878.89; 6469.37
SubTotal    : 0
SubTotal A,B: 0; 0
10.53:41  19-03-04
Recept Nr. 2  Bvol %  25
START


Ojeblikkel. Bvol 23.09
ALARM 11.04:46 19-03-04


Total    : 32371.1
Total A,B: 25897.17; 6473.94
SubTotal    : 23.16
SubTotal A,B: 18.51; 4.65
Gnms. B volume: 25.11
11.05:03  19-03-04
END


Total    : 32371.1
Total A,B: 25897.17; 6473.94
SubTotal    : 0
SubTotal A,B: 0; 0
11.05:04  19-03-04
Recept Nr. 2  Bvol %  25
START


Ojeblikkel. Bvol 23.33
ALARM 11.08:01 19-03-04


Total    : 32378.35
Total A,B: 25902.96; 6475.39
SubTotal    : 7.37
SubTotal A,B: 5.89; 1.47
Gnms. B volume: 25.09
11.08:14  19-03-04
END


Total    : 32378.35
Total A,B: 25902.96; 6475.39
SubTotal    : 0
SubTotal A,B: 0; 0
11.08:15  19-03-04
Recept Nr. 2  Bvol %  25
START


SubTotal    : 30.18
SubTotal A,B: 24.14; 6.04
Fodemaengde T : 2296
FodemaengdeA,B: 2144; 152
Bvol TEST: 25.05
11.47:20  19-03-04


Ojeblikkel. Bvol 22.81
ALARM 11.50:50 19-03-04


Total    : 32414.67
Total A,B: 25932; 6482.66
SubTotal    : 36.8
SubTotal A,B: 29.44; 7.36
Gnms. B volume: 25.01
11.51:52  19-03-04
END


Total    : 32414.67
Total A,B: 25932; 6482.66
SubTotal    : 0
SubTotal A,B: 0; 0
11.51:53  19-03-04
Recept Nr. 2  Bvol %  25
START


Ojeblikkel. Bvol 23.06
ALARM 12.46:01 19-03-04


Total    : 32435.54
Total A,B: 25948.7; 6486.84
SubTotal    : 21.16
SubTotal A,B: 16.93; 4.23
Gnms. B volume: 25.03
12.46:14  19-03-04
END


Total    : 32435.54
Total A,B: 25948.7; 6486.84
SubTotal    : 0
SubTotal A,B: 0; 0
12.46:15  19-03-04
Recept Nr. 2  Bvol %  25
START


SubTotal    : 30.08
SubTotal A,B: 24.05; 6.02
Fodemaengde T : 2590
FodemaengdeA,B: 2584; 6
Bvol TEST: 25.04
13.21:03  19-03-04


SubTotal    : 60.29
SubTotal A,B: 48.22; 12.06
Fodemaengde T : 2702
FodemaengdeA,B: 2144; 558
Bvol TEST: 24.99
13.56:24  19-03-04


Total    : 32511.74
Total A,B: 26009.65; 6502.08
SubTotal    : 77.38
SubTotal A,B: 61.89; 15.48
Gnms. B volume: 25.01
14.06:02  19-03-04
END


Total    : 4722.22
Total A,B: 3777.69; 944.52
SubTotal    : 0
SubTotal A,B: 0; 0
14.06:26  19-03-04
Recept Nr. 4  Bvol %  25
START


Ojeblikkel. Bvol 20.65
ALARM 14.14:11 19-03-04


Total    : 4727.02
Total A,B: 3781.53; 945.48
SubTotal    : 4.8
SubTotal A,B: 3.84; 0.96
Gnms. B volume: 25.01
14.14:22  19-03-04
END


Total    : 4727.02
Total A,B: 3781.53; 945.48
SubTotal    : 0
SubTotal A,B: 0; 0
14.14:23  19-03-04
Recept Nr. 4  Bvol %  25
START


SubTotal    : 30.02
SubTotal A,B: 24.01; 6.01
Fodemaengde T : 1538
FodemaengdeA,B: 800; 738
Bvol TEST: 25.03
14.56:16  19-03-04


Total    : 4785.34
Total A,B: 3828.18; 957.16
SubTotal    : 58.43
SubTotal A,B: 46.73; 11.69
Gnms. B volume: 25.02
15.11:43  19-03-04
END


Total    : 11415
Total A,B: 11413.2; 1.79
SubTotal    : 0
SubTotal A,B: 0; 0
15.12:08  19-03-04
Recept Nr. 7  Bvol %  0
START


SubTotal    : 30.43
SubTotal A,B: 30.42; 0
Fodemaengde T : 2294
FodemaengdeA,B: 2294; 0
Bvol TEST: 2E-2
17.08:14  19-03-04


SubTotal    : 60.59
SubTotal A,B: 60.58; 1E-2
Fodemaengde T : 1842
FodemaengdeA,B: 1842; 0
Bvol TEST: 1E-2
17.54:37  19-03-04


SubTotal    : 90.75
SubTotal A,B: 90.74; 1E-2
Fodemaengde T : 2478
FodemaengdeA,B: 2478; 0
Bvol TEST: 1E-2
18.59:32  19-03-04


Total    : 11510.89
Total A,B: 11509.08; 1.81
SubTotal    : 100.59
SubTotal A,B: 100.57; 1E-2
Gnms. B volume: 1E-2
19.52:29  19-03-04
END


þÿÿÿTotal    : 11510.89
Total A,B: 11509.08; 1.81
SubTotal    : 0
SubTotal A,B: 0; 0
07.11:15  22-03-04
Recept Nr. 7  Bvol %  0
START


Total    : 11510.89
Total A,B: 11509.08; 1.81
SubTotal    : 0
SubTotal A,B: 0; 0
Gnms. B volume: 1E-2
07.11:16  22-03-04
END


Total    : 11510.89
Total A,B: 11509.08; 1.81
SubTotal    : 0
SubTotal A,B: 0; 0
07.11:17  22-03-04
Recept Nr. 7  Bvol %  0
START

Der udover kommer der en firkant ind i mellem, jeg tror det er et linieskift som ikke ligner de almindelige, men det kommer altså ikke med i outputtet her.

I hovedmodulen står det nå:
Option Explicit
Option Base 1

Public Sub HovedRutine()
  MsgBox " Hei :-) "
End Sub


vi tar bort  MsgBox " Hei :-) " inne i hovedrutinen

istedet skriver vi :

  sFolder = "c:/"
  sTxtFile = "maling.txt"
  Call OpneTextFilen

Beklager, så ikke ditt svar :-)

Prøv å kjøre programmet med denne tekste i OpenTekstFilen.
(Du kan også prøve deg fram med å spille inn en makro for å se hvilken kode som blir generert. ellers er jeg redd du må opprette et nytt spørsmål for å få hjelp av andre til denne delen.

Public Sub OpneTextFilen()
 
    Workbooks.OpenText Filename:=sTxtFld & sTxtF, _
      DataType:=xlDelimited, TextQualifier:= _
      xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
      Comma:=True, Space:=False, Other:=False
     
End Sub

Skal den også ligge i hovedmodul

Så får jeg en combiler fejl ved den nye funktion

Nei OpenTextFilen, skal ligge i Modulen prosedyrer.

Dette kan selvfølgelig gjøres på mangen måter. (og jeg er jo bare en amatør )
Men slik jeg har gjort det. Må alle variabler deklareres, Option Explicit.
Jeg gjør dette i en engen modul.


så skriver jeg alle prosedyrer i prosedyremodulen, det vil si åpne tekstfiler, lager diagrammer etc.
I hovedmodulen får variablene verdier slik som navn på teksfiler og mapper

Så blir selve prosedyrene kaldt, Call prosedyrenavn.
fordelen med dette er at du kan benytte samme prosedyre mange ganger.
Det er bare variablene som endrer verdi.

Understreker at jeg bare er en amatør, de riktige ekspertene vil nok riste på hodet og si nei nei :-)

Ikke så beskeden, der må jo være en grund til at du er den eneste som har svaret på mit spørgsmål.

Nå, men nu har jeg lagt kodestumpen i prosedure, men det gør ingen forskel. Den melder en fejl ved sTxtFld.

Jeg åpnet et nytt excel-regneark, satte inn noen tilfeldige tall i noen celler og lagret excelarket som tekstfil : C:/Temp/Maling2.txt
Når jeg trykket på knappen ble tekstfila åpnet.

Min kode ser slik ut, i stifinneren finner du Ark1, der skal denne koden stå:
Nb! min knapp heter HentData, du bytter bare ut navnet

Private Sub HentData_Click()
  Call HovedRutine
End Sub
..........................................
I Modulen som heter declarasjoner skal følgende stå:

Option Explicit
Option Base 1

Public sFolder As String
Public sTxtFile As String
.....................................

Så har vi koden i Prosedyremodulen:

Option Explicit
Option Base 1

Public Sub OpneTextFilen()
 
    Workbooks.OpenText Filename:=sFolder & sTxtFile, _
      DataType:=xlDelimited

End Sub
.....................................................
Og koden i Hovedmodulen:
Option Explicit
Option Base 1

Public Sub HovedRutine()
  sFolder = "c:/temp/"
  sTxtFile = "Maling2.txt"
  Call OpneTextFilen
End Sub
.........................................
Dette skal fungerer, hvis du får feil får vi ta detalj for detalj

Glemte å si at også du bør lage en midlertidig tekstfil fra excel først.
Når vi får det til å fungere, er det tid for å gå videre med den opprinnelige filen

Yes, nu får jeg det også ind

Hvis du nå endrer 
sTxtFile = "Maling2.txt"  til  sTxtFile = "Maling.txt"  i Hovedrutinen.
Får du da åpnet den opprinnelige datafilen din?
Fila må ligge i samme mappe som Maling2.txt

Ja, jeg gør

Kan du prøve å vise et lite utdrag av hvordan tekstfila blir seende ut i excel?

jeg tenker på:
hvis du for eksempel i et lite utdrag, kan vise hva som står i hvike celler.
en måte kan være at du skiller hver celle med en * slik.

Ojeblikkel. * Bvol  * 20.65
ALARM  * 14.14:11 * 19-03-04
Total  *  : 4727.02
Total* A,B: * 3781.53; 945.48

Eller er det slik at alt på en linje står i samme celle?
jeg kan prøve å hjelpe,
men jeg er helt sikker på denne delen er det enkelte her på eksperten
som kan komme med mye bedre løsninger enn det jeg kan klare.

Det gjelder bare å få konkretisert og avgrenset spørsmålet skikkelig.

En annen sak.
Den koden som vi til nå har laget, er den forståelig?
Tror det er viktig at du skjønner hva som skjer på hver enkelt linje.
Da blir det også lettere å stille spørsmål senere.

Det kan gøres nemt, alt står i en kolonne og hver linie er på en ny række:

Ojeblikkel. Bvol 21.99
ALARM 10.38:20 19-03-04


Total    : 32336.49
Total A,B: 25869.48; 6467.01
SubTotal    : 4.95
SubTotal A,B: 3.96; 0.99
Gnms. B volume: 25.03
10.38:36  19-03-04
END


Total    : 32336.49
Total A,B: 25869.48; 6467.01
SubTotal    : 0
SubTotal A,B: 0; 0
10.38:37  19-03-04
Recept Nr. 2  Bvol %  25
START

Og jeg synes også at koden er forståelig, der er dog lige " _
      DataType:=xlDelimited" som jeg ikke forstår.

DataType:=xlDelimited betyre at det er data med skilletegn, for eksempel ; som bestemmer hvilke data som skal i de forskejllige kolonnene.
Alternativet er : DataType:=xlFixedWidth, da der det ikke skilletegn, man fast bredde for hver kolonne.

Jeg tror desverre at du bør opprette et nytt spørsmål
Problemet slik jeg ser det er å få skilt tekst og data.
Tror også du bør beskrive nøyaktig hva du er ute etter.
Etter at dataene er organisert i et regneark,
er det ikke noe problem å få koden til å lage diagramemr.
jeg har ikke tid nå, men hvis du ikke får annen hjelp,
skal jeg prøve å finne en løsning, men det vil ta lang tid.

Synest du har en interesant oppgave.
mvh
oyejo

Okay, det gør jeg så, læg et svar og du får nogle af pointene herfra

Nyt spørgsmål her: http://www.eksperten.dk/spm/629279

Vi har vel ikke langt selv om vi har holdt på lenge :-)
, så du bør ta tilbake de fleste pointene selv.
Pointene er ikke viktige for meg, men oppgaven er interesant :-)