Hallo zusammen,
habe folgendes Problem. Über VBA (siehe Quellcode) wird aus einer Arbeitsmappe A1 ein Tabellenblatt B1 als separate Datei abgespeichert. In diesem Tabellenblatt stehen nur Text- und Zahleninformationen (keine Formeln, Berechnungen etc.). Es kommt sporatisch vor, dass diese Datei eine Größe von mehreren MB hat. Wird später die Arbeitsmappe A1 wieder aufgerufen, wird über VBA die Kopie des Tabellenblatts B1 in die Arbeitsmappe A1 zurückgeladen. Wenn die Datei mehrere MB groß ist, dauert das zurückladen sehr lange bzw. es kann dann im Tabellenblatt B1 nur zögernd von einer Zelle in die andere gesprungen werden.
Nachfolgend der Quellcode:
Public Sub SaveAsXLSFile(sValue, sVersion_i)
Dim sh As Worksheet, sh1 As Worksheet, sh2 As Worksheet 'Tabellenblätter
Dim file, filenam, sFilePath As String
Dim fs As Object
sFilePath = Run("DBRW", csServer & ":admin_setting", "Pfad_fuer_These", "Text")
file = sFilePath & sValue & "_" & Trim(sVersion_i) & ".xls"
If file = "" Then Exit Sub Else filenam = file
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(file) = True Then
fs.DeleteFile (file)
End If
Range("A10:H5000").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
file, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub
Kann mir jemand sagen, woran dies liegen kann?
Für kurzes Feedback vorab vielen Dank.
Mit freundlichen Grüßen
pushover
