Probleme mit saveas
19.01.2017 06:48:30
J.Englmann
Bin kürzlich auf Office 2010 ungestiegen, bin in VBA kein Profi.
Aufgabe:
In einer Datei mit Makros (.xlsm) aus einem Tabellenblatt einen Bereich kopieren,
eine neue Datei öffnen, die Daten einfügen und die neue Datei unter einem bestimmten
Namen abspeichern.
So versucht:
Public Sub test2()
Dim m_TB As Object
Set m_TB = Application.ActiveWorkbook.Sheets("TB")
m_TB.Range("A1:P33").Copy
Dim wb As Excel.Workbook
Set wb = Application.Workbooks.Add
Sheets("Tabelle1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
wb.SaveAs "C:\Test.xlsx"
wb.Close
End Sub
Die Fehlermeldung:
Microsoft Excel kann auf die Datei:'C:\E92AF200 nicht zugreifen .....
Bei mehreren Versuchen haben sich die Zahlen/Buchstaben geändert.
Was mache ich falsch?
Bin für jede Hilfe dankbar.
M.f.G.
J.Englmann