Thema Datum  Von Nutzer Rating
Antwort
Rot Überschreiben eines Worksheet verhindern und neues hinzufügen
 14.02.2012 11:34:31 Ivan Sta. Maria
NotSolved
16.02.2012 17:23:04 Gast15622
NotSolved

Ansicht des Beitrags:
Von:
Ivan Sta. Maria		 Datum:
14.02.2012 11:34:31		 Views:
2443		 Rating:
     
Antwort:
  Ja
Thema:
Überschreiben eines Worksheet verhindern und neues hinzufügen

Ich habe ein kleines Problem für eine Arbeit und zwar muss ich per Access eine Exceldatei öffnen und das Tabellenblatt so nach einem Datumsformat 20120214 umbennen. Jedoch will ich das die Exceldatei überspeichert wird aber NICHT das TABELLENBLATT.  Ich habe erst vor einer kurzen Zeit mit VBA begonnen und kenne mich nur ein bisschen aus.

 

Option Compare Database

Sub Weinprotokoll()

    Dim ProgrammExcel As Excel.Application

    Dim ExcelDatei As Workbook

    Dim Tabellenblatt As Worksheet

    Dim Speicherort As String
    
    Dim Dateiname As String

    Speicherort = "E:\"

    Dateiname = Speicherort & "Weinprotokoll.xlsx"

    Set ProgrammExcel = Excel.Application

    Set ExcelDatei = ProgrammExcel.Workbooks.Add
   
    Set Tabellenblatt = Worksheets.Add
    
    With Tabellenblatt
   
    Worksheets.Add().Name = Format(Now, "yyyymmdd")
   
    End With
   
    Set Tabellenblatt = Nothing

    ExcelDatei.SaveAs Dateiname
   
    Set Tabellenblatt = ExcelDatei.Worksheets()

    ProgrammExcel.Quit

    Set ProgrammExcel = Nothing

    Shell "excel.exe " & Dateiname, vbNormalFocus

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Überschreiben eines Worksheet verhindern und neues hinzufügen
 14.02.2012 11:34:31 Ivan Sta. Maria
NotSolved
16.02.2012 17:23:04 Gast15622
NotSolved