CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede flyver23 Nybegynder
19. december 2008 - 15:09 Der er 4 kommentarer og
2 løsninger

Importer data og afbryd låsning af kilden

Hej Eksperter. (Har forsøgt tidligere uden svar. Har nu hævet antal point)
Jeg har et regneark(A) hvori jeg vil importere data fra et andet regneark(B).
Problemet er at når jeg importerer fra B til A, så er B låst indtil jeg lukke A.
Er der nogen måde hvor jeg undgår denne låsning.
Jeg ønsker kun at importere et øjebliks billede af indholdet i B.

Min forbindelses forespørgsel ser sådan ud.
Jeg har forsøgt med forskellige Mode="XX" uden held. Er der andet man kan gøre?

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=T:\TrafikTal\BRONET\Excel\uger.xls;Mode=ReadWrite;Extended Properties="HDR=YES;";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Hilsen Flyver23
Avatar billede peejay Nybegynder
20. december 2008 - 00:39 #1
Du er velkommen til at give os et kald - se www.exacto.dk.

pj
Avatar billede mrkr Juniormester
20. december 2008 - 11:45 #2
Jeg bruger selv denne og den låser ikke filen.
Du skal selv rette den lidt til alt efter hvad dine ark hedder.


Sub importer()
If MsgBox("Er du sikker på at du vil importere data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
On Error Resume Next
Dim wb As Workbook
Set wb = Workbooks.Open("T:\TrafikTal\BRONET\Excel\uger.xls", True, True)

Application.StatusBar = "Importerer data"

    With ThisWorkbook.Worksheets("ark1") 'rettes til det navn dit ark har i det ark du allerede har åbent
        .Range("a1:q100").Formula = wb.Worksheets("ark1").Range("a1:q100").Formula ' ret til område der skal kopieres samt arknavn i kildefilen
    End With
   
    wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True
    Application.EnableEvents = True

Application.StatusBar = "Importen er færdig!"
MsgBox "Importen er færdig!"
Application.StatusBar = ""
End Sub
Avatar billede bak Seniormester
22. december 2008 - 11:36 #3
Jeg har kigget lidt på problemet, fordi det samme kan ske, hvis man henter data fra access via oledb. Så kan man komme til at låse databasen.

Det, jeg er kommet frem til, er ikke at bruge oledb, men enten ODBC eller microsoft query. Disse låser ikke noget.
ODBC finder du under "Data / Fra andre kilder / Fra guiden dataforbindelse / ODBC DSN / excel filer

Microsoft Query findes "Data / Fra andre kilder / Microsoft Query / excel filer

Efter min mening er Microsoft Query den bedste mulighed idet den giver meget bedre redigeringsmuligheder, samt muliggør join af flere tabeller fra samme regneark / Database.
Avatar billede flyver23 Nybegynder
22. december 2008 - 13:11 #4
Super.
Så blev det jul alligevel.
Jeg har forsøgt med begge forslag, og kan få det til at fungere. Smid et svar, og i får begge 100 point. Grunden til at bak får point selvom han var senere på den er at hans løsning umiddelbart er nemmere at anvende.
Tak for hjælpen.
Vh Flyver23
Avatar billede mrkr Juniormester
22. december 2008 - 13:32 #5
Jeg har et svar her :-)
Avatar billede bak Seniormester
22. december 2008 - 14:02 #6
også et svar :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Betinget formatering Af Ninna i Excel 1 23/07/202413:03 23/07/202419:56
Opdater et ark Af lurup i Excel 2 22/07/202422:23 23/07/202416:41
Dato skema Af Ninna i Excel 7 22/07/202414:58 23/07/202419:55
Betinget formatering Af boro23 i Excel 5 22/07/202410:58 I går 06:12
Problem med beregning af alder udfra cpr-nummer; formel giver talfejl pga. nul i CPR Af HR Excel-bruger i Excel 6 16/07/202416:31 17/07/202408:36
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:09 Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I dag 17:33 Facebook kopier en tråd Af clausito i Sociale medier
I dag 09:49 Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I dag 03:28 Inkasso som privat? Af lekor adams i Fri debat
I går 23:51 Frossen cursor Af goglov i PC
White papers
Flere white papers »


Premium
Teaser billede
Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"
Læs mere »
Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence
Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"
Overblik: Sådan forløb årets største databrud - mindst 165 organisationer ramt
Se alle »
Computerworld
Teaser billede
Elon Musk dropper CrowdStrike efter kæmpe nedbrud
Læs mere »
Apples spritnye app til kodeord kommer til iOS 18: Sådan virker den
Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?
Apples folde-iPhone tager form: Her er planerne
Se alle »
CIO
Teaser billede
Så mange Microsoft-enheder blev ramt af gigantisk Crowdstrike-koks
Læs mere »
Telenor skrotter ældre it-system: Nyt system er en hyldevare
Derfor står Danske Bank foran en kæmpe AWS-transformation: Ellers skulle vi bygge en ny infrastruktur for at følge med
Microsoft kaster milliardbeløb efter nye tiltag til partnerprogrammet: Partnerne kan nu tjene endnu flere penge
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
KMD-direktør forlader selskabet: Det skal hun nu
IBM Danmark skifter ud i sin øverste ledelse - her er den nye direktion
Se alle »
White paper
Teaser billede
Det behøver ikke at gøre ondt: Sådan gør du livet lettere for kunder med multicloud
Læs mere »
Sådan får du overblik og beskytter dine cloudapplikationer
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
SASE: Træf det rette valg – første gang
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »