CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

rvm Nybegynder

17. juni 2008 - 22:16 Der er 3 kommentarer og
1 løsning

VBA Åbne xls fil skjult

Hej

Jeg er i gang med at optimere min kode til et projekt.
Koden går ud på at jeg åbner en xls fil og henter data derfra.
Jeg bruger i øjeblikket nedenstående kode, men syntes den går for langsom:

Set xlapp = New Excel.Application
xlapp.Application.Workbooks.Open FileName:=strdataFil, ReadOnly:=True, Password:="Password"

Hvis jeg fjerner New fra første linie går det meget hurtigere, men så ser jeg arket blive åbnet på min Taskbar, hvilket ikke er så kønt.

Er der mon en metode til at åbne regnearket skjult uden at skulle bruge ovenstående kode?

Synes godt om

rvm Nybegynder

17. juni 2008 - 22:17 #1

Jeg glemte lige at skrive at det hele forgår i Excel

Synes godt om

supertekst Ekspert

17. juni 2008 - 23:01 #2

Ja - uddrag af andet "system":
...
dim xlsFil2
...
Private Sub åbnFil2()
Set xlsFil2 = CreateObject("Excel.Application")
With xlsFil2
.Workbooks.Open sti + "fil2.xls"
' .Visible = True 'hvis det skal være synlig umder test
End With
End Sub
Private Sub lukFil2()
xlsFil2.Application.DisplayAlerts = False
xlsFil2.Save

xlsFil2.Application.Quit
Set xlsFil2 = Nothing
End Sub

Synes godt om

rvm Nybegynder

17. juni 2008 - 23:30 #3

Der er vel ingen forskel på
Set xlapp = New Excel.Application
og
Set xlsFil2 = CreateObject("Excel.Application")

De starter begge en ny application og er derfor lige langsomme.

I min test tog det cirka 3 sekunder for begge, mens det tager omkring 1 sekund, hvis jeg bare åbner et regneark almindeligt uden at lave et objekt først. det teger 2 sekunder hvis jeg ikke bruger "New", men så kan jeg se regnearket åbne sig i taskbaren.

Synes godt om

rvm Nybegynder

18. juni 2008 - 17:12 #4

Jeg fandt ud af, at jeg ændre opsætningen, så Excel ikke viser flere filer på proceslinien - på den måde hold den op med at vise filen der bliver åbnet:

Ved åbning af masterfilen:
If Application.ShowWindowsInTaskbar = True Then
Application.ShowWindowsInTaskbar = False
bolShowWindowsInTaskbar = True
End If

Ved hændelsen før luk sætter jeg opsætningen til hvad den var ved åbning:
If bolShowWindowsInTaskbar = True Then
Application.ShowWindowsInTaskbar = True
End If

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Opslag og sum i en tabel Af ABE15 i Excel	8	I går 10:01	I går 23:16
Opdele VBA kode, som er for lang Af HHA i Excel	7	13/11/202413:48	13/11/202416:09
Tilpasset decimalvisning Af visto i Excel	2	12/11/202417:18	12/11/202418:18
Konvertering af tekst (cpr.-nr.) til tal (formateret som dato) Af Erik R i Excel	11	11/11/202412:31	13/11/202414:18
Fordel vare pr. medarbejder Af Oswald1 i Excel	7	07/11/202415:54	08/11/202411:14

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS