Opret excel fil???

Opret et objekt variabel:
Private Function Start() As Boolean
 
  Start = False

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

Exit Function

End Function

hvad skal objExcel erklæres som? object

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.

ja, det er jeg klar over :)

ok, sig bare til hvis du vil have mere info ;-)

Public objExcel As excel.Application

eller bare vise excel, efter programmet har gemt noget data der i

jeg vil gerne have mere info. helst så jeg k

ups glem den sidst del af sætningen

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

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"

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

tak til jer begge, nu har jeg fået det til at virke.

10-4