HASTER... overskrifter ved export

Så sakl du ikke køre det i en macro, da denne tage det hele med, men kode det ind som en vba rutine.

Det er heller ej et problem, men hvad er koden i VBA.??

query 1

gem som c:\\query.xls

Jeg har et sødt program der nok hurtigt kan omformes til dit formål.

Option Explicit

Private Sub cmdAngle_Click()

Dim xl as Object
Set xl = CreateObject(\"Excel.Sheet\")\'Åbner excel
\'Sætter de kendte værdier op i excel
xl.Range(\"A1\").Value = txtX.Text
xl.Range(\"A2\").Value = txtY.Text
Set xl = Nothing

End Sub

En anden ting som muligvis kan lade sig gøre er at når værdierne er flyttet over i axcell, så slet den linje som indeholder dataerne via macroen. Jeg ved ikke hvordan det skal gøres men det burde kunne lade sig gøre.

så skal jeg lige inden test vide om du mener denne skl køres via Access aller i Excel.

Skal sættes ind i Access.

skal lige teste det...vender hurtigt tilbage...

virker ikke...

Hvårdan virker ikke?, kommentar udbedres, selvfølgelig virker det. Det koden gøre er under en aktivering åbnes Excell og værdierne fra txtX boxen overføres til Feltet A1. Måske er det fordi du ikke har angivet den rigtige sti til Excel, men jeg regnede med at du selv kendte til sådanne banale ting, hvis man vil give 15 point.

Powell :

Istedet for at kritisere min viden omkring VBA scrips, burde du angive hvor mange point du mener at skulle have for at løse problemet. Jeg kan jo ikke se hvad du synes et korrekt svar ville være værd.!!!!

Min query indeholder 4 felter, med ca. 500 poster i.navnet på query = åtd

feltnavne i denne query.
felt 1 = identifikation
felt 2 = omsætning
felt 3 = aktuel måned
felt 4 = aktuel år

databasen ligger på c:\\db1.mdb
excel skal placeres på c:\\åtd.xls

Som tidligere angivet ønsker jeg ikke at åbne Excel, blot sikre at der ved export fra Access ikke medtages feltnavne.

Jeg er ked af at du opfatede det som en kritik af din viden, det var ikke meningen.

Eftersom at det er querys i din access du ønsker at flytte over, da kan jeg ikke hjælpe dig med en VBA-løsning.

Men jewg tror at du her kan få lidt hjælp til din makro.

Jeg går ud fra at du selv kan få din qurey over i excell.

Derfra skal du nu bruge kommandoen SendKeys.
nede i Sendkeys skriver du: +{right}+{right}+{right}{delete}
Når du har overført dine excel dataer, slettes nu den øverste linje, den linje der indeholder de dataer du ikke ønskede skulle med.
Nu skal excel dataerne blot saves.
SendKeys: ^{S}

tak for hjælpen...jeg må rode lidt videre herfra..