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
|