Avatar billede jannhomm Nybegynder
03. august 2004 - 10:00 Der er 8 kommentarer og
1 løsning

opdater excel

Jeg har problemer med at få access til at arbejde sammen med excel. Jeg overfører tal til excel, der derefter beregnes og tilbageføres til access. Dette kan jeg gøre en gang, næste gang, er det de gamle tal, med mindre jeg holder excel regnearket åbent. Jeg mangler dermed noget kode der kan få excel til at åbne uden at åbne :-)
Avatar billede jensen363 Forsker
03. august 2004 - 10:02 #1
Hvorfor beregne i Excel ??? Access kan da også regne
Avatar billede jannhomm Nybegynder
03. august 2004 - 10:14 #2
ja men mindre beregninger - men jeg har en del opslagsværdier, og ammortationsmodeller. Det er et excel regneark på 2 mb, så det vil være en meget større opgave at lave det i access eller mssql.
Avatar billede mugs Novice
03. august 2004 - 10:41 #3
Når du åbner Excel 2. gang med de gamle tal, må det være fordi Excel-filen ikke gemmes. Prøv at tilføje en kode der lagrer din Excel-fil Filer > Gem som.
Og nu vil du jo spørge hvordan? Jeg ved det ikke, men vil eksperimentere lidt med det.

Hvad mener du med dette: "excel til at åbne uden at åbne"
Avatar billede jannhomm Nybegynder
03. august 2004 - 19:02 #4
Jeg har for for lang tid siden læst om samme problem. Her var løsningen lidt vb kode der åbnede excel arket - men det blev ikke åbnet direkte som et åbent program. Ideen er at jeg skal have en sql database til at arbejde sammen med excel på en server.
Avatar billede mugs Novice
03. august 2004 - 19:04 #5
Den kode kender jeg ikke. Jeg vil anbefale dig at lukke dette spørgsmål og oprette et tilsvarende i Excel kategorien.
Avatar billede jannhomm Nybegynder
03. august 2004 - 20:20 #6
done :-)
Avatar billede jensen363 Forsker
04. august 2004 - 16:59 #7
Denne fremgangsmåde benytter jeg til at overføre data fra Access til Excel, efterfølgende behandles data i Excel, hvorefter Excel lukker automatisk.

Sub runXL()
Dim myXLWrkBk
Dim FilPlacering As String
On Error Resume Next

FilPlacering = DLookup("[Excel_Filplacering]", "tblFilplacering")

DoCmd.TransferSpreadsheet acExport, 8, "tblGantt_OCX_Data", FilPlacering & "ExcelGantt.xls", True, "Rådata!A1:G7"

'Open connection to XL workbook and make visible.
    Set myXLWrkBk = GetObject(FilPlacering & "ExcelGantt.xls")
    myXLWrkBk.Application.Visible = True
    myXLWrkBk.Application.Windows("ExcelGantt").Visible = True
 

'Run procedure in ThisWorkBook folder.
    myXLWrkBk.Application.Run "ThisWorkBook.Auto_Aktiver"

'Close automation object.
'Either invoke the Save method or set the Saved
'property to True to avoid a prompt about saving changes.
    myXLWrkBk.Application.ActiveWorkbook.Save
    myXLWrkBk.Application.ActiveWorkbook.Saved = True
    myXLWrkBk.Application.Quit
    Set myXLWrkBk = Nothing
   
End Sub
Avatar billede jannhomm Nybegynder
05. august 2004 - 09:40 #8
Kan ikke helt gennemskue det, men vil lige arbejde lidt med det. Hvad nu hvis jeg vil bruge vb scriptet på en asp side, hvor jeg styrer databasen og excel arket. Hvordan gør jeg så ?
Avatar billede jensen363 Forsker
05. august 2004 - 10:40 #9
Asp er ikke lige min styrke :o(
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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