Office: (Office 2000) Ausgabedatei bei OutputTo

kim · 13. Februar 2006

Hallo,

wäre schön, wenn heute Abend noch jemand fit ist für folgendes (ist für Könner evtl. ganz simpel):
wenn über
DoCmd.OutputTo acOutputTable, "meineTabelle", acFormatXLS
eine Tabelle nach Excel exportiert werden soll, öffnet sich ein Dialogfenster, indem der User Ausgabe-Verzeichnis und -Datei wählen kann.
Wie erhalte ich diesen Pfad in einer Variablen, da ich später im Programmverlauf auf diese Datei zugreifen muss.

Ich habe schon vor längerem im Forum gesucht und nichts passendes gefunden.
Das Problem wollte ich umgehen, indem ich über die Klasse clsFileDialog ein Dialogfenster öffnen ließ, aus dem ich den Pfad erhielt.
Danach hatte ich DoCmd.OutputTo acOutputTable, "meineTabelle", acFormatXLS, "meinPfad" aufgerufen.
In einer MDB funktionierte dies auch gut. In einer MDE bekomme ich immer den Fehler 2046 (d. Befehl od. d. Aktion 'AusgabeIn' steht momentan nicht zur Verfügung).
Beim Probieren hatte ich den Eindruck, dass dieser Fehler auch nur dann verursacht wird, wenn der Aufruf aus einem Popup-Formular heraus stattfindet und dem ist so/muss so. Keine Ahnung ob das tatsächlich in Zusammenhang steht. Ist mir auch schon fast egal - ich brauche egal wie, den vom User gewählten Pfad.

Da ich schon weit über meine Grenzen bin, was das Verständnis des ganzen anbelangt hoffe ich, dass es hier im Forum Hinweise gibt.
Ich hätte gerne eine kleine Bsp.-Datenbank zur Verfügung gestellt, die ich so schnell nicht hinbekomme, da total ko und Morgen Projektabgabe sein sollte.
Evtl. geht es mit einer Hilfe auch so, ansonsten werde ich eine Datenbank noch nachliefern. Ich hoffe es ist alles einigermaßen verständlich.

Ach ja, die Datenbank programmiere ich in Access 2000

Danke schon mal für die Hilfe,
kim

:)

Anne Berg · 15. Februar 2006

Hallo und guten Abend.

Auf jeden Fall musst du diesen Datei-Öffnen-Dialog programmieren, um den Zugriffspfad weiterverwenden zu können. Mir ist jetzt nicht ganz klar, wie du das angestellt hast. Wenn du eine API-Lösung - findest du hier im Forum, unter Code-Archiv(?) - nimmst, brauchst du keinen Verweis auf die/das comdlg32.ocx, was dir sowieso - und bei einer mde sogar unlösbare - Probleme machen wird/kann.

Kannst du dazu vielleicht noch etwas genaueres sagen?

PS:
Es braucht auch nicht gleich eine ganze Datenbank zu sein, ein aussagefähiger Codeauszug (inkl. Aufruf des Datei-Dialogs) würde erstmal schon genügen. *wink.gif*

kim · 15. Februar 2006

Hallo Anne,

danke erst einmal für deine Antwort - ein kleiner Lichtblick

das was ich mach ist folgendes:
ich erstelle eine Tabelle und übergebe deren Namen an die Function exportXLS
dort lasse ich mir den Pfad mit GetSaveFileAPI in der Variablen exportPath ausgeben (für GetSaveFileAPI habe ich die Klasse clsFileDialog)
und dann kommt DoCmd.OutputTo acOutputTable, exportDat, acFormatXLS, exportPath, was in der mde nicht geht
gebe ich für exportPath etwas vor und lasse den Aufruf GetSaveFileAPI weg, hab ich auch mit dem OutputTo keine Probleme.
ich verweis(?) in der Klasse clsFileDialog auf comdlg32.dll >> wieso kann das Probleme machen?

Code:

Public Function exportXLS(ByVal exportDat)
On Error GoTo Procedure_Err
exportPath = ""
exportPath = GetSaveFileAPI("Microsoft Excel", "xls", "C:\")
If exportPath = "" Then
Exit Function
Else
If Right(exportPath, 4) ".xls" Then exportPath = exportPath & ".xls"
DoCmd.OutputTo acOutputTable, exportDat, acFormatXLS, exportPath
End If
Err_Exit:
Exit Function
Procedure_Err:
If Err.Number 0 Then
MsgBox Err.Number & ": " & Err.Description
Resume Err_Exit
End If
End Function
...........
Public Function GetSaveFileAPI( _
Optional ByVal strFileType As String, _
Optional ByVal strFileExtension As String, _
Optional ByVal strInitDir As String, _
Optional ByVal lngHWnd As Long) As String
'Öffnen des "Datei-Speichern"-Dialogs und Rückgabe eines Dateinamens
Dim cFD As New clsFileDialog
Dim l As Long
If lngHWnd = 0 Then lngHWnd = Application.hWndAccessApp
With cFD
.hwnd = lngHWnd
' Sollte die ausgewählte Datei exisitieren,
' so wird eine Dialogbox vom System erzeugt,
' die um Bestätigung zum Überschreiben fragt.
.flags = dfFileMustExist + dfOverwritePrompt
' Setzen des Startverzeichnisses
.InitDir = strInitDir
' Wird kein Typ übergeben, so werden alle Dateien
' angezeigt.
If Len(strFileType) = 0 Then
.AddFilter "Alle Dateien", "*"
Else
.AddFilter strFileType, strFileExtension
End If
GetSaveFileAPI = .ShowSave
End With
End Function
................
'Klasse clsFileDialog
Option Compare Database
Option Explicit

Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_CREATEPROMPT = &H2000
Private Const OFN_ENABLEHOOK = &H20
Private Const OFN_ENABLETEMPLATE = &H40
Private Const OFN_ENABLETEMPLATEHANDLE = &H80
Private Const OFN_EXPLORER = &H80000
Private Const OFN_EXTENSIONDIFFERENT = &H400
Private Const OFN_FILEMUSTEXIST = &H1000
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_LONGNAMES = &H200000
Private Const OFN_NOCHANGEDIR = &H8
Private Const OFN_NODEREFERENCELINKS = &H100000
Private Const OFN_NOLONGNAMES = &H40000
Private Const OFN_NONETWORKBUTTON = &H20000
Private Const OFN_NOREADONLYRETURN = &H8000
Private Const OFN_NOTESTFILECREATE = &H10000
Private Const OFN_NOVALIDATE = &H100
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_PATHMUSTEXIST = &H800
Private Const OFN_READONLY = &H1
Private Const OFN_SHAREAWARE = &H4000
Private Const OFN_SHAREFALLTHROUGH = 2
Private Const OFN_SHARENOWARN = 1
Private Const OFN_SHAREWARN = 0
Private Const OFN_SHOWHELP = &H10

Public Enum enDialogFlags
dfAllowMultiselect = OFN_ALLOWMULTISELECT
dfCreatePrompt = OFN_CREATEPROMPT
dfEnableHook = OFN_ENABLEHOOK
dfEnableTemplate = OFN_ENABLETEMPLATE
dfEnableTemplateHandle = OFN_ENABLETEMPLATEHANDLE
dfExplorer = OFN_EXPLORER
dfExtensionDifferent = OFN_EXTENSIONDIFFERENT
dfFileMustExist = OFN_FILEMUSTEXIST
dfHideReadOnly = OFN_HIDEREADONLY
dfLongNames = OFN_LONGNAMES
dfNoChangeDir = OFN_NOCHANGEDIR
dfNoDereferenceLinks = OFN_NODEREFERENCELINKS
dfNoLongNames = OFN_NOLONGNAMES
dfNoNetworkButton = OFN_NONETWORKBUTTON
dfNoReadOnlyReturn = OFN_NOREADONLYRETURN
dfNoTestFileCreate = OFN_NOTESTFILECREATE
dfNoValidate = OFN_NOVALIDATE
dfOverwritePrompt = OFN_OVERWRITEPROMPT
dfPathMustExist = OFN_PATHMUSTEXIST
dfReadOnly = OFN_READONLY
dfShareAware = OFN_SHAREAWARE
dfShareFallThrough = OFN_SHAREFALLTHROUGH
dfShareNoWarn = OFN_SHARENOWARN
dfShareWarn = OFN_SHAREWARN
dfShowHelp = OFN_SHOWHELP
End Enum

Private Type tpOpenFileName
lngStructSize As Long
lngHWndOwner As Long
lngInstance As Long
strFilter As String
strCustomFilter As String
lngMaxCustFilter As Long
lngFilterIndex As Long
strFile As String
lngMaxFile As Long
strFileTitle As String
lngMaxTitle As Long
strInitialDir As String
strDialogTitle As String
lngFlags As Long
lngFileOffset As Integer
lngFileExtension As Integer
strDefFileExt As String
lngCustData As Long
lngHook As Long
strTemplateName As String
End Type

Private typOFN As tpOpenFileName

Private Declare Function GetOpenFileName _
Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
pOpenfilename As tpOpenFileName) As Long

Private Declare Function GetSaveFileName _
Lib "comdlg32.dll" Alias "GetSaveFileNameA" ( _
pOpenfilename As tpOpenFileName) As Long

Private m_strFileName As String
Private m_strFileTitle As String
Private m_strFilter As String
Private m_lngFilterIndex As Long
Private m_strDefaultExt As String
Private m_strInitDir As String
Private m_lngFlags As Long
Private m_colFiles As Collection

Private Sub Class_Initialize()
With typOFN
.lngFilterIndex = 1
.lngStructSize = Len(typOFN)
End With
Set m_colFiles = New Collection
End Sub

Public Property Get SelectedFiles() As Collection
Set SelectedFiles = m_colFiles
End Property

Public Property Get Flag() As Long
Flag = m_lngFlags
End Property

Public Property Let flags(lngFlags As enDialogFlags)
m_lngFlags = lngFlags
End Property

Public Property Get FileName() As String
FileName = m_strFileName
End Property

Public Property Let FileName(ByVal strFileName As String)
m_strFileName = strFileName
typOFN.strFile = strFileName & _
Space$(1024 - Len(strFileName)) & _
vbNullChar & vbNullChar
End Property

Public Property Get FileTitle() As String
FileTitle = m_strFileTitle
End Property

Public Property Let FileTitle(ByVal strFileTitle As String)
m_strFileTitle = strFileTitle
End Property

Public Property Get DefaultExt() As String
DefaultExt = m_strDefaultExt
End Property

Public Property Let DefaultExt(ByVal strDefaultExt As String)
m_strDefaultExt = strDefaultExt
typOFN.strDefFileExt = strDefaultExt & _
vbNullChar & vbNullChar
End Property

Public Function AddFilter( _
ByVal strFileType As String, _
ByVal strExtension As String)

Dim strNewFilter As String

If InStr(1, strFileType, "(*.") > 0 Then
strNewFilter = strFileType & vbNullChar & _
"*." & strExtension
Else
strNewFilter = strFileType & " (*." & strExtension _
& ")" & vbNullChar & "*." & strExtension
End If

m_strFilter = m_strFilter & strNewFilter & vbNullChar

End Function

Public Property Get DialogTitle() As String

DialogTitle = typOFN.strDialogTitle

End Property

Public Property Let DialogTitle(ByVal vNewValue As String)

typOFN.strDialogTitle = vNewValue

End Property

Public Property Get hwnd() As Long

hwnd = typOFN.lngHWndOwner

End Property

Public Property Let hwnd(ByVal vNewValue As Long)

typOFN.lngHWndOwner = vNewValue

End Property

Public Property Get InitDir() As String

InitDir = m_strInitDir

End Property

Public Property Let InitDir(ByVal vNewValue As String)

m_strInitDir = vNewValue

typOFN.strInitialDir = vNewValue & _
vbNullChar & vbNullChar

End Property

Public Function ShowSave() As String

Dim strBuffer As String
Dim lngRet As Long

With typOFN

.lngFlags = m_lngFlags

.strFilter = Left(m_strFilter, Len(m_strFilter) - 1) & _
vbNullChar & vbNullChar

.strFile = m_strFileName & _
String$(1024 - Len(m_strFileName), 0)

.lngMaxFile = 1024

.strFileTitle = m_strFileTitle & _
String$(1024 - Len(FileTitle), 0)

.lngMaxTitle = 1024
lngRet = GetSaveFileName(typOFN)
If lngRet Then
strBuffer = TrimNull(.strFile)
ShowSave = strBuffer
End If
End With
End Function

Private Function TrimNull(ByVal Item As String) As String
Dim pos As Integer
pos = InStr(Item, Chr$(0))
If pos Then Item = Left$(Item, pos - 1)
TrimNull = Item
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anne Berg · 15. Februar 2006

Tu mir und anderen den Gefallen, den Code in Code-Tags einzuschließen, sonst verliert man allzuleicht den Überblick!

(wenn du nicht weißt wie, einfach am Anfang "[ Code ]" und am Ende "[ /Code ]" - ohne Leerstellen! - einfügen)

Anne Berg · 15. Februar 2006

OK, das war jetzt wohl zu viel verlangt. *rolleyes.gif*

Im Prinzip sollte der Code auch in einer MDE problemlos laufen. Überprüfe doch mal, ob du nicht tatsächlich einen Verweis auf das comdlg32.ocx eingetragen hast. Das wäre nämlich völlig überflüssig...

Wie und wo testest du denn überhaupt die beiden Varianten (mit/ohne Datei-Dialog in einer MDE) - auf einem oder verschiedenen PCs?
Gibt es noch weitere Hinweise/Erläuterungen zu dem auftretenden Fehler 2046?

kim · 15. Februar 2006

Hallo Anne,

sorry!!! wegen des blöden Einstellens von Quelltext - ich hab es anders nicht hinbekommen und würd's auch gerne wieder ändern (ist echt nicht sinnig gewesen)

und 1000 Dank noch für deine Info's. Ich habe mir im Code-Archiv ein Bsp. von Günther Kramer angesehen und ausprobiert und es läuft auch in der mde alles wunderbar. Was bei meinem Code falsch war weiß ich nicht, würd's aber gerne verstehen, wenn das bei meinen Codefetzen für jemanden nachvollziehbar ist.

jetzt kann ich das Projekt doch nach termingerecht abgeben.

DANKE! DANKE! DANKE! und gut's nächt'l
kim

Anne Berg · 15. Februar 2006

Du kannst deinen Beitrag nachträglich ändern, solange die Editor-Schaltfläche unten rechts eingeblendet ist. - JETZT sollte es eigentlich noch möglich sein! *wink.gif*

Anne Berg · 15. Februar 2006

Also, ich habe deinen Code getestet und er läuft auch in einer MDE - natürlich (hier und jetzt) - auf ein und demselben PC und ohne jegliche Anpassungen.

Es muss also noch unbekannte/unerwähnte Unterschiede geben, wenn das bei dir nicht läuft.

kim · 15. Februar 2006

Hi Anne,

hab dein letztes posting erst nach meinem gesehen.
da ich das problem ja nun mit einem anderen Datei-Dialog hinbekommen habe und es schon super spät ist, können wir das Thema abschließen. was an meinem urspr. Code falsch lief, werde ich mal in Ruhe versuchen zu rekonstruieren, wenn wieder richtig wach und nicht so übermüdet.

Danke dir nochmal,
kim

kim · 15. Februar 2006

... dieses direkt antworten habe ich auch noch nicht gemacht ...

ich habe den Code auch immer auf dem selben Rechner laufen lassen und zwar von einem Popup-Formular gestartet. Dann habe ich ein neues formular erstellt und das gleiche ablaufen lassen: ohne Popup ging's, als Popup bekam ich wieder den Fehler. Aber wie schon in meinem ersten Post erwähnt: das kann's doch nicht sein?
In der DB liegen zig frm's, Abfragen usw. - keine Ahnung ob da noch irgenwo 'ne macke war/ist.

Anne Berg · 15. Februar 2006

Tja, auch mit PopUp - das hatte ich ganz vergessen - läuft's bei mir...

Was soll's, du hast Recht, Hauptsache es funktioniert!

Gute Nacht und viel Erfolg morgen!