title image


Smiley Re: A2k: Exceldokument anlegen mit verschiedenen Arbeitsblättern
Mit dem folgenden Beispiel bekommst du genau das was du suchst.

Es gibt aber sich noch Optimierungsbedarf.







Private Sub ExcelExport()

  Dim xlApp As Excel.Application, rs As DAO.Recordset

  Dim xlWb As Excel.Workbook

  Dim max As Integer

  Set rs = CurrentDb.OpenRecordset("tblKunden", dbOpenSnapshot)

  Set xlApp = New Excel.Application

  rs.MoveLast

  max = rs.RecordCount

  xlApp.Visible = True ' oder false falls im Hintergrund erzeugt werden soll

  Set xlWb = xlApp.Workbooks.Open("DeineExceldatei.xls")

  rs.MoveFirst

    For i = 1 To max

      With xlWb

        .Sheets.Add , after:=Sheets(i)

        .Sheets(i).Name = rs!Name

        .Sheets(i).Range("A1").Value = rs!Name

        .Sheets(i).Range("A2").Value = rs!Strasse

        .Sheets(i).Range("A3").Value = rs!Ort

      End With

      rs.MoveNext

    Next i

  xlWb.Save

  xlWb.Close

  Set xlWb = Nothing

  Set xlApp = Nothing

  Set rs = Nothing

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: