title image


Smiley Zugriff auf Excel - SaveAs macht Probleme
Hallo,nachdem ich alles mögliche probiert habe, hoffe ich, auf diesem Wege einen kleinen Tipp zu bekommen, was ich falsch mache. Grob umrissen hab ich vor, basierend auf einer Access-Tabelle und einer Excel-Vorlage Xls-Dateien zu erstellen, die je nach den Access-Daten gefüllt und benannt werden.Das Grundgerüst für die Erstellung und das Abspeichern sieht bisher so aus:Set objXL = CreateObject("Excel.Application") With objXL.Application .Visible = True End With'selektiert die verschiedenen knoten und für jeden Knoten wird ein seperates Excel-Sheet angelegtKnoten = "Select Distinct BKnoten From ImportDAO_Monat"Set rs1 = CurrentDb.OpenRecordset(Knoten, dbOpenSnapshot)While Not rs1.EOF With objXL.Application ' in der globalen Variablen PfadVorlage_deu ist die Excel-Vorlage hinterlegt - funktioniert 1a .Workbooks.Open PfadVorlage_deu .Sheets("Vorlage").Select ' Umbenennen des Arbeitsblattes in den jeweiligen Knoten - funktioniert auch .Sheets("Vorlage").Name = rs1!BKnoten .Sheets(rs1!Knoten).Select ' hier soll eine spezifische Überschrift generiert werden - das funktioniert komischerweise nicht (??) .Sheets(rs1!BKnoten).Cells(2, 2) = "BKosten- Monitoring " & rs1!BKnoten ' Abspeichern der Datei unter einem definerten Verzeichnis (Arbeitsverzeichnis) und die Datei bekommt den Namen des Knotens - so rein nach Buch sollte das funktionieren, tut es aber nicht - warum ?? .Workbooks.SaveAs FileName:=Arbeitsverzeichnis & rs1!BKnoten & ".xls" .Workbooks.Close End With rs1.MoveNextWendrs1.CloseIch habe im Testfenster die einzelnen Ausdrücke der Variablen 'Arbeitsverzeichnis' sowie von rs!BKnoten überprüft. Die beinhalten die richtigen Werte - Pfad und Knotenwert. Hab ich irgendwo nen Syntaxfehler drinnen? .. Leider sagt mir Access dazu nichts, sondern führt den Code einfach aus und speichert mir aber keine Dateien ab.Vielen Dank im Voraus für Tipps und Tricks und Ratschläge.CiaoStefan

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: