Lav excel fil

Værsgo\':
http://www.planetsourcecode.com/xq/ASP/txtCodeId.11898/lngWId.1/qx/vb/scripts/ShowCode.htm

wolla..prøv liiiige at skyde gråspurve med kanoner...havde sq forestillet mig noget ole/active x pis..men..hey det pis virker vist...jeg tjekker d lige ud...så hvis det dur får du points!

sorry dude...resulterer i excel crash når jeg prøver at åbne den genererede fil :(

Har du husket at definere kolonnerne?

tdaugaard har lavet noget kode for mig og der havde vi akkurat det problem du her nævner - løsningen skulle findes i, at der blev forsøgt skrevet en værdi i en kolonne som ikke eksisterede, så at sige. tdauggard kan sikkert komme med en bedre forklaring - og derved gøre sig fortjent til halvdelen af pointene...

Her er en mulighed der virker:
*******************

Option Explicit
Private exlObj As Excel.Application
Private wb As Excel.Workbook
Private ws As Excel.Worksheet

Private Sub Command1_Click()
    Dim c As Long \' kolonne nummeret
    Dim r As Long \' række nummeret
   
    For c = 1 To 10
        ws.Cells(c, r).Value = \"Min Værdi - \" & c & \"-\" & r
    Next
End Sub

Private Sub Form_Load()
    Set exlObj = New Excel.Application
   
    \' Brug følgende linje til at gøre excel enten synlig eller usynlig
    exlObj.Visible = False
   
    Set wb = exlObj.Workbooks.Add
    Set ws = wb.ActiveSheet
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
    wb.Close
    Set wb = Nothing
    exlObj.Quit
    Set exlObj = Nothing
End Sub

*************
Ps: Husk lige at inkludere Microsoft Excel Object 9.0 i dit projekt.

Oops.... Rettelse
Komponenten hedder \"Microsoft Excel 9.0 Object Library\"

Hvis du vil gemme din excel fil tilføjer du bare

wb.SaveAs \"MinFil.xls\"

i bunden af Command1_Click

Damn.... Jeg må være ved at blive gammel *GG*

Der mangler selvfølgelig en for løkke på r, altså:

*************

Option Explicit
Private exlObj As Excel.Application
Private wb As Excel.Workbook
Private ws As Excel.Worksheet

Private Sub Command1_Click()
    Dim c As Long \' kolonne nummeret
    Dim r As Long \' række nummeret
   
    For c = 1 To 10
        For r = 1 To 10
        ws.Cells(c, r).Value = \"Min Værdi - \" & c & \"-\" & r
        Next
    Next
   
    wb.SaveAs \"MinFil.xls\"
End Sub

Private Sub Form_Load()
    Set exlObj = New Excel.Application
   
    \' Brug følgende linje til at gøre excel enten synlig eller usynlig
    exlObj.Visible = False \' Usynlig
   
    Set wb = exlObj.Workbooks.Add
    Set ws = wb.ActiveSheet
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
    wb.Close
    Set wb = Nothing
    exlObj.Quit
    Set exlObj = Nothing
End Sub

*************

:o)

fik sq csterns til at du :)

sq bare smårettes lidt :)

thx 4 hjælpen all!

håber pointfordelinggen er fair...