| Von |
Torsten |
| eMail |
|
| Am |
30. Januar 2008 um 08:30:00 |
| Frage |
Hallo,
ich übergebe Tabellen von Excel nach Word per VBA Code.
Grundsätzlich funktioniert das ganz wunderbar.
Leider kommt es in unterschiedlichen Excel Versionen zu einer Fehlermeldung: Laufzeitfehler 48 , Fehler beim Laden einer Dll.
derzeitiger Code:
Sub Word_Bericht_erstellen()
Dim Datei As String
Dim wdapp As Word.Application
Dim dok As Word.Document
Dim ws As Workbook
Dim wdDlg As Word.Dialog
Set ws = ActiveWorkbook
aktuell = ActiveSheet.name
' On Error Resume Next
Application.StatusBar = " Ihr Bericht wird im Hintergrund erstellt..."
Set wdapp = New Word.Application ' word öffnen, ohne dokument
wdapp.Visible = False ' sichtbar, geht auch unsichtbar
Set wdDlg = wdapp.Dialogs(wdDialogFileOpen)
wdDlg.Application.caption = "RentaS erstellt Ihren Bericht..."
wdDlg.name = "*.doc"
If wdDlg.Display Then
wdDlg.Execute
End If
...
ws.ActiveSheet.Unprotect
ws.ActiveSheet.Range("Kurzübersicht").Copy ' Ergebnis bis jü
wdapp.Selection.GoTo What:=wdGoToBookmark, name:="Ertragsvorschau"
wdapp.Selection.PasteSpecial , , , , wdPasteBitmap
Application.CutCopyMode = False
....
Hat jemand eine Idee, wie ich diesen Teil unter verschiedenen Excel Versionen laufen lassen kann?
Vielen Dank
Torsten |
|
Zum Seitenanfang