kopieren per VBA und zurückholen...Code anbei
29.09.2004 11:48:54
Peter S.
habe irgendwie jetzt nen "Block" in der Birne....mit nachfolgendem Code Auslagern kopiere ich die definierten Tabellen in eine neue Arbeitsmappe und speichere diese am definierten Ort....funktioniert auch bestens..... mit dem Code Zurücklesen will ich dann von meiner Mappe aus auf die vorher gespeicherte Datei zugreifen und mir die Tabellen in meine Mappe zurückholen...und da komm ich nicht weiter:
Public
Sub Auslagern()
Application.ScreenUpdating = False
Dim i As Byte
For i = 3 To 9 Step 1
Sheets("200" & i).Visible = True
Next i
Dim myWorksheet As Worksheet
Sheets(Array("2003", "2004", "2005", "2006", "2007", "2008", "2009")).Copy
For Each myWorksheet In ActiveWorkbook.Worksheets
myWorksheet.UsedRange = myWorksheet.UsedRange.Value
Next
On Error Resume Next
ActiveWorkbook.SaveAs "C:\" & frmVerwaltung.TextBox2.Value
Dim e As Byte
For e = 3 To 9 Step 1
Sheets("200" & e).Visible = xlVeryHidden
Next e
ActiveWorkbook.Close
ThisWorkbook.Saved = True
Application.ScreenUpdating = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
Public
Sub Zurücklesen()
Application.ScreenUpdating = False
ChDir "C:\"
Workbooks.Open Filename:=frmVerwaltung.TextBox2.Value
Dim i As Byte
For i = 3 To 9 Step 1
Sheets("200" & i).Visible = True
Next i
Dim myWorksheet As Worksheet
Sheets(Array("2003", "2004", "2005", "2006", "2007", "2008", "2009")).Copy
Destination = "C:\TIMECHECK.xls"
For Each myWorksheet In ActiveWorkbook.Worksheets
myWorksheet.UsedRange = myWorksheet.UsedRange.Value
Next
Application.ScreenUpdating = True
End Sub
Hoffe jemand kann mir dabei helfen.
Vielen Dank
Peter S.