Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 11:54 Der er 11 kommentarer og
1 løsning

Ret i Excel Ark med VB problem!

Jeg har et lille problem.

Jeg har lavet en smart lille program der kan udregne en masse i VB, og så skal den over fører resultaterne til et Excel ark....

MEN, med koden:

Set xlApp = Excel.Application
xlApp.ActiveWorkbook.ActiveSheet.Range("CD") = txtCD.Text

Der virker det KUN, hvis jeg åbner Excel arket efter at programmet er blevet åbnet....

Jeg har nemlig lavet en knap, så man kan åbne programmet fra selve Excel arket. Lave sine rettelser i VB og derefter Exporter den tilbage i Excel.

Problemer er jo bare at åbner jeg Excel filen FØRST, og åbner programmet bagefter... så virker det ikke med koden....

NOGEN der kan hjælpe mig???
Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 11:58 #1
Det er lidt som om at VB programmet ikke kan finde Excel filen, hvis den ikke bliver åbnet EFTER VB programmet er startet....

Kan man måske på en eller anden måde lave en Refresh af sin Excel fil??
Avatar billede kabbak Professor
08. januar 2004 - 12:03 #2
Har du prøvet at lukke excel,lige efter du har kaldt dit program, i koden på knappen.
Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 12:08 #3
Ja... og åbne det igen... det har jeg!

MEN problemet er bare at der faktisk er mulighed for at Brugeren har lavet rettelser inden han lukker Excel. Og så kommer den jo med en "Vil du gemme dine ændringer".... og det gider jeg ikke sidder og sige ja til heletiden!!

Så kan man få den til at lukke Excel, gemme ændringerne, og åbne den igen... så kunne det måske være en mulighed!
Avatar billede kabbak Professor
08. januar 2004 - 12:34 #4
ActiveWorkbook.Close SaveChanges:=True
Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 12:51 #5
Hvordan får jeg den til at lukke HELE Excel... den får ikke rigtigt lukket helt ned med den sætning du har lavet der!
Avatar billede kabbak Professor
08. januar 2004 - 12:53 #6
Workbooks.Close SaveChanges:=True
Avatar billede kabbak Professor
08. januar 2004 - 12:57 #7
og til slut
Application.Quit
Avatar billede kabbak Professor
08. januar 2004 - 13:04 #8
lidt forkert, men dette virker

Public Sub luk()
For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit
End Sub
Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 13:21 #9
Ja... det med application.Quit er meget fint, men der er STADIG et åbent (men tomt) Excel program åbent!! Der er ingen WorkBooks i den... men kan man ikke lukke den tilmed???
Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 13:32 #10
YES... nu virker det!!! *GGG*..... fest nok...

Det var den sidste kode jeg brugte, og så satte jeg programmet til at åbne EFTER kode var afviklet...

MEN lige en sidste ting... den smider nemlig mit program om bagved selve Excel filen, kan man ikke bringe den foran på en ellers anden måde???
Avatar billede -l_jogge_l- Nybegynder
08. januar 2004 - 13:33 #11
Jeg åbner programmet sådan her:
Shell ("C:\Visual Basic\Excel VB program\test.exe")
Avatar billede kabbak Professor
09. januar 2004 - 17:19 #12
Shell "C:\Visual Basic\Excel VB program\test.exe", vbNormalNoFocus
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
Kurser inden for grundlæggende programmering

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