Import/ Export

Hallo,
seit längerer Zeit versuche ich eine Import-Export-Funktion in mein Tool zu intergrieren. Der Export funktioniert. Beim Import erhalte ich eine Fehlermeldung.
Ich habe exemplarisch ein Tool eingestellt. Vielleicht konnt ihr mir helfen.
https://www.herber.de/bbs/user/39207.xls
Im richtigen Tool sind auch Formeln hinterlegt, die ebenfalls als Formel importiert und wieder exportiert werden müssen (ohne Verknüpfungen zu erzeugen) Außerdem werden beim Export die Schaltflächen mit kopiert. Gibt es eine möglichkeit dies zu unterdrücken bzw. in die Auslagerungsdatei die Schaltflächen zu eliminieren. Beim Import habe ich die Schaltflächen sonst doppelt.
Ich hoffe Ihr könnt mir helfen.
Gruß
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Import/ Export

28.12.2006 07:04:34

haw

AW: Import/ Export

28.12.2006 07:13:19

haw

AW: Import/ Export

28.12.2006 14:07:38

Uwe

Hallo Uwe,
ich kann nichts besonderes erkennen. Welche Fehlermeldung erhältst du beim Importieren?
Beim Exportieren habe ich eine kleine Routine eingebaut, die alle Schaltflächen aus der Auslagerungsdatei eintfernt.
Beim Import habe ich den Zielbereich auf die erste Zelle reduziert, aber sonst?
Möglicherweise liegt es an den Formeln.


Sub Exportieren1()
Dim wb_dest As Workbook, wb_new As Workbook
Dim ws As Worksheet, sh As Shape
'Blätter in neue Mappe kopieren:
Application.ScreenUpdating = False
Set wb_dest = ActiveWorkbook
Sheets(Array("aufstellung", "aufstellung1")).Copy
Set wb_new = ActiveWorkbook
For Each ws In wb_new.Worksheets
For Each sh In ws.Shapes
sh.Delete
Next sh
Next ws
Application.Dialogs(xlDialogSaveAs).Show
If wb_new.Saved = True Then
wb_new.Close
wb_dest.Activate
Else
MsgBox "Die Auslagerungsdatei wurde noch nicht gespeichert!"
End If
Application.ScreenUpdating = True
End Sub


Sub importieren1()
Dim fn As String
Dim wbTrans As Workbook, wbAus As Workbook
Set wbTrans = Workbooks("Test Import-Export.xls")
'Dateiname abfragen
fn = Application.GetOpenFilename(fileFilter:="Excel-Arbeitsmappe (*.xls), *.xls")
If fn = False Then Exit 

Sub 'Abbrechen geklickt
'Blätter/ Bereiche in Quelldatei kopieren:
Application.ScreenUpdating = False
Set wbAus = Workbook.Open(fn)
wbAus.Sheets("aufstellung").Range("B4:R8").Copy wbTrans.Sheets("aufstellung").Range("B4")
wbAus.Sheets("aufstellung1").Range("B1:N15").Copy wbTrans.Sheets("aufstellung1").Range("B1")
wbAus.Close False  'Datei wird geschlossen, aber nicht gespeichert
wbTrans.Activate
MsgBox "Die Daten wurden erfolgreich importiert!"
Application.ScreenUpdating = True
End Sub


Gruß Heinz

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread