funktion til at åbne, opdatere ODBC data, gemme og lukke XLS fil
Hej Jeg har følgende problem: Jeg har et Excel regneark, med data som kommer fra en ODBC forbindelse til en AS/400 server, der er 5 ark som er sat til at opdatere automatisk når filen åbnes. så vidt så godt.
det jeg magler er en makro eller script til at gemme filen og lukke filen igen.
Således jeg kan "schedulere" en opdatering af filen udne at filen er åben/låst. Jeg har forsøgt at anvende delt projektmappe, men det virker ikke rigtigt. Filen skal være helt lukket.
Excel filen bruges som database for et udskriftprogram. Jeg startede med at bruge ODBC fra udskriftprogrammet direkte til AS/400, men ved at lave ODBC opslag i Excel filen i stedet er forespørgselshastigheden forbedret voldsomt. Men udskriftsprogrammet kræver at XLS filen ikke er låst/åben. Derfor denne hokus pokus løsning. Jeg Håber at jeg hver morgen kan køre denne sekvens automatisk : 1. åbne XLS fil - opdatere data fra ODBC - gemme - lukke fil 2. åbne udskrift program
således vil jeg have et dagligt opdateret XLS fil og et hurtisvarende udskriftsprogram
Det kan du også snilt gøre. I dit excelark optager du en makro der svarer til din opdatering (typisk højreklik i tabellen og tryk refresh) Denne makro kalder du fra modulet ThisWorkbook med sub Workbook_open() For at give den tid til at opdatere (her 45 sek.) skal du i enden af makro indsætte Application.OnTime Now + TimeValue("00:00:45"), "Lukke" Når de 45 sek. er gået kalder den automatisk Sub Lukke
Sub Lukke() ThisWorkbook.Close savechanges:=true end sub
For at få åbnet regnearket automatisk om morgenen skal du bruge scheduleren (planlægningsagenten) i windows.
Hej, jeg har stadig ikke løst problemet, hvor finder jeg "modulet ThisWorkbook med sub Workbook_open()"
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.