Indlæsning af prisfil

I hvad format er Prisfilen ?

Nu har den fået icon som excel ved indlæsning, før var det icon med windows

Selve typenavn på fil er AO-fil  AO er min grossist

Filen kan indlæsses i regnskabsprogram - Elfo - Elpc - m.m , men ved ikke hvordan det gøres.

Det er fordi du har sagt Ja, til at Excel altid skal være det program som åbner filen.

Men du ved ikke om det er en kommafil, fastlængde, semmikolon eller andet ?

Prøv at start excel og gå op i Data -> Importer Eksterne data -> Importer Data -> I filtype vælger du "Alle filer" og så finder du filen og prøver at gøre guiden.

Det kunne også være et special format som ikke kan indlæses i andet end de nævnte programmer.

Jeg vil lige prøve excel som du har beskrevet.

Prøv lige og beskriv hvordan du ville prøve vedr. importerer af fil, vedr. afkryds i quiden.

Det er anpå hvordan filen ser ud.

Hvordan ser filen ud, hvis du indlæser den i Notesblok?

supertekst: Du kan downloade filen her for at se hvordan den ser ud i Notesblok, der er kun de første 3 linjer i prisfilen.  http://home1.stofanet.dk/duo2/aa1/

Ok - har set på det:

En fil m/faste feltlængder....

Er set før i forbindelse med en løsning til en af mine kunder, hvor filen er eksporteret fra et økonomisystem. Denne blev adskilt via VBA-kode for at kunne opdatere en Access-database - men kræver en identifikation af de enkelte felter.

Hvor mange linier skulle der være i alt?

Du er velkommen til at sende filen til: pb@supertekst-it.dk

Hvor mange linier skulle der være i alt?
Det ved jeg ikke, men kan fortælle at hele filen fylder 16mb og de 3 linjer jeg lagde op, fylder kun 1kg så ???? hvor mange linjer.

Fint - det vigtigste var, at du kun havde lagte 3 linier op - kan du identificere de enkelte felter?

[kan du identificere de enkelte felter?]
Hvad mener du med spørgsmålet

64012195481331000000000000009130351040000000001151FORSKRUNING M12 5-7 MESSING    STK1310000000000050000080506 00000000 00000000 00000000              0000000000000000                        130000

Se bort fra den øverste linie og se på den første egentlige varelinie:

Den begynder sikkert med et varenr - hvor lang er det?
Varetekst begybder med FORSKRUNING - men hvor slutter det?
o.s.v - altså hvilke felter indgår der i en varelinie og hvor læange er de?

Nej varenummer er ikke det første, har prøvet at søge dette varenummer. Jeg vil lige prøve at finde en varer hvor jeg kender varenummer og derved se hvor i linjen nummeret ligger, vender tilbage.

Det er vigtigt, at de enkelte felter bliver identificeret.
Måske er det kun VARENR, TEKST, ENHED & PRIS (eksempel) du er interesseret i - så skal disse felter entydigt kunne udpeges - altså hvor i linen de er placeret - så er det ikke det store problem, at få dem "hældt over" i Excel.

Prøv lige at hente den nye fil ned på linket,linjen svarer til vare/ean nummer er skrevet på siden.
http://home1.stofanet.dk/duo2/aa1/

Så hjælper det jo på det!
I Excel (version 2003):

Data|Importer|
I Guiden:
Fast bredde|Tegnsæt DOS(af hensyn til danske bogstaver)|
Marker kolonnerne iflg. de felter du har identificeret - så får du de valgte felter på plads i regnearket. Resten kan evt.slettes.

Fint supertekst, måske du kan fortælle mig hvordan jeg laver en kolonne om fra 4850 til at vise 48,50 Det var et eksp. af mange tal.

Divider tallet med 100 efter at det er indlæst

kabbak
Lav lige et eksp. på hvad du mener. Mine tal starter i kolonne C2 og der er 65536 rækker.

Jeg var næsten klar over problemet - enten skal der skrives en stump VBA,der ordner dette - eller også skal hele importen ske via VBA.

Skal du kun anvende de felter, du viser i din sidste upload + varetekst og enhed?

I hvilken kolonnen er prisen lagret?

Skal du kun anvende de felter, du viser i din sidste upload + varetekst og enhed?
Bruger nogle flere end vis på linket.
Prisen ligger i kolonne C
Kan også se at der er fejl i kolonnen for Ean nummer hvor den skriver ,00 til sidst i hver række.

Vær opmærksom på, at i guiden til import - kan du tilpassedet enkelte felts type - altså EAN-nr skulle ændres til tekst - så slap du får dette problem.

Tak for alle svar, supertekst jeg har din mail, så måske jeg sender et spørgsmål - ok.

Selv tak - du giver blot signal..

Her er koden til pris-justering:
Rem Placer koden i ThisWorkBook - I excel Alt+F11 - kopier koden til ThisWorkBook - Rem tryk F5 - Husk nat tilpasse sikkerheden i Excel til at udføre makroer
Rem ===============================================================================
Dim sidsteRæk, ræk
Sub PrisJustering()
    With ActiveWorkbook.Sheets(1)          'ARK 1 - ellers tilpas
        .Cells(1, 1).Activate
        sidsteRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
        For ræk = 1 To sidsteRæk
            If .Cells(ræk, 3) <> "" Then
                .Cells(ræk, 3) = .Cells(ræk, 3) / 100
            End If
        Next ræk
    End With
End Sub