Avatar billede Slettet bruger
24. april 2004 - 11:57 Der er 4 kommentarer og
1 løsning

compile kode

jeg har Microsoft Visual Basic 6.0 Professional, men jeg kan ikke finde ud af at compile min kode ordentligt.. der er alle de der skabeloner, men dem skal jeg ikke bruge.. jeg skal bare eksekvere et script a' la det her.. hjæælp..

Sub Command1_Click()
  Dim Ex As Excel.Application
  Dim Work As Excel.Workbook
 
  Set Ex = New Excel.Application
  Set Work = Ex.Workbooks.Open("Mappe1.xls")
 
  Work.Worksheets("Ark1").Range("a1").Value = "Hej"
  Ex.Workbooks.Close
  Ex.Application.Quit
  Set Work = Nothing
  Set Ex = Nothing
End Sub


/1
Avatar billede vbcoder Nybegynder
24. april 2004 - 12:09 #1
Vælg File - Make
Avatar billede Slettet bruger
24. april 2004 - 12:11 #2
men så compiles det som en form.. jeg vil bare have det som en .exe-fil, der kører i baggrunden og lukker når scriptet er slut..
Avatar billede Slettet bruger
24. april 2004 - 12:14 #3
jeg vil køre programmet som en macro.. kalde det fra excel og køre det som en .exe-fil.. men det eneste, der sker, er at der kommer et lille vindue op, der hedder form1..

når jeg opretter filen, vælger jeg "standart exe".. derefter højreklikker jeg og vælger "view code" - skriver så min kode, compiler skidtet og så får jeg så den form, der ikke laver noget som helst..
Avatar billede kedde65 Praktikant
24. april 2004 - 13:03 #4
Så fjerne din form (højreklik på formen og vælge remove) indsæt herefter et modul, og indsæt følgende kode i dette modul:

Sub main()
  Dim Ex As Excel.Application
  Dim Work As Excel.Workbook
 
  Set Ex = New Excel.Application
  Set Work = Ex.Workbooks.Open("Mappe1.xls")
 
  Work.Worksheets("Ark1").Range("a1").Value = "Hej"
  Ex.Workbooks.Close
  Ex.Application.Quit
  Set Work = Nothing
  Set Ex = Nothing
End Sub

Herefter går du ind under project properties, og vælger startup object til at være "sub main"

Alternativt, og det ville unægteligt være meget nemmere, så skulle du lave det som en VBS fil. Hvor du blot indsætter følgende kode i en fil med endelsen .vbs

  Dim Ex
  Dim Work
 
  Set Ex = createObject("Excel.Application")
  Set Work = Ex.Workbooks.Open("Mappe1.xls")
 
  Work.Worksheets("Ark1").Range("a1").Value = "Hej"
  Ex.Workbooks.Close
  Ex.Application.Quit
  Set Work = Nothing
  Set Ex = Nothing

herefter kan du når du har gemt denne fil, blot dobbeltklikke på filen og den vil eksekvere det.

VH CK
Avatar billede Slettet bruger
24. april 2004 - 13:09 #5
takker det virker..
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