Avatar billede gnaffe Nybegynder
07. marts 2003 - 09:52 Der er 12 kommentarer og
2 løsninger

Opret excel fil???

hvordan opretter man en excel fil i VB?
det er fordi jeg har et program, hvor jeg gemmer nogle data i en eksisterende fil, men vil gerne oprette vha. programmet en i stedet.
Avatar billede jrl0469 Nybegynder
07. marts 2003 - 09:55 #1
Opret et objekt variabel:
Private Function Start() As Boolean
 
  Start = False

  Set objExcel = CreateObject("Excel.Application")
  Start = True

Exit Function

End Function
Avatar billede gnaffe Nybegynder
07. marts 2003 - 09:58 #2
hvad skal objExcel erklæres som? object
Avatar billede arnvig Nybegynder
07. marts 2003 - 09:59 #3
jrl0469 er inde på noget af det rigtige, men hans løsning starter bare en excel applikation. der skal lidt mere til hvis du vil skabe et dokument.
Avatar billede gnaffe Nybegynder
07. marts 2003 - 10:00 #4
ja, det er jeg klar over :)
Avatar billede arnvig Nybegynder
07. marts 2003 - 10:01 #5
ok, sig bare til hvis du vil have mere info ;-)
Avatar billede jrl0469 Nybegynder
07. marts 2003 - 10:01 #6
Public objExcel As excel.Application
Avatar billede gnaffe Nybegynder
07. marts 2003 - 10:01 #7
eller bare vise excel, efter programmet har gemt noget data der i
Avatar billede gnaffe Nybegynder
07. marts 2003 - 10:02 #8
jeg vil gerne have mere info. helst så jeg k
Avatar billede gnaffe Nybegynder
07. marts 2003 - 10:02 #9
ups glem den sidst del af sætningen
Avatar billede jrl0469 Nybegynder
07. marts 2003 - 10:03 #10
Sådan kan du indlæse en fil
Public Function IndlæsFil(Optional psStiOgMappe As String, _
                          Optional pbOverskriv As Boolean = False) As Boolean
Dim bReadOnly As Boolean
 
  If pbOverskriv = False Then bReadOnly = True
  IndlæsFil = False
 
  If Not bxlStart = True Then Start
  objExcel.Workbooks.Open psStiOgMappe & ".xls", , bReadOnly
 
  IndlæsFil = True
 
End Function
Avatar billede arnvig Nybegynder
07. marts 2003 - 10:18 #11
Dim excsheet As Object
Dim appexcel As Object
   
'*-----------------------------------------------------------------------
'* Lav excel applikation som Object
'*-----------------------------------------------------------------------
Set appexcel = CreateObject("Excel.Application")

'*-----------------------------------------------------------------------
'* Lav en ny workbook
'*-----------------------------------------------------------------------

appexcel.Workbooks.Add

'*-----------------------------------------------------------------------
'* gør excel synlig
'*-----------------------------------------------------------------------

appexcel.Visible = True
   
'*-----------------------------------------------------------------------
'* Peg på det ønskede sheet
'*-----------------------------------------------------------------------

Set excsheet = appexcel.Workbooks(1).sheets(1)

'*-----------------------------------------------------------------------
'* navngiv og gem
'*-----------------------------------------------------------------------

excsheet.saveas FileName:="myfile.xls"
Avatar billede jrl0469 Nybegynder
07. marts 2003 - 10:24 #12
Public Function VisXl(pbJa As Boolean) As Boolean
 
  If pbJa = True Then
    VisXl = True
    objExcel.Visible = True
  ElseIf pbJa = False Then
    objExcel.Visible = False
    VisXl = False
    Exit Function
  End If

End Function
Avatar billede gnaffe Nybegynder
10. marts 2003 - 15:15 #13
tak til jer begge, nu har jeg fået det til at virke.
Avatar billede jrl0469 Nybegynder
11. marts 2003 - 08:39 #14
10-4
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