Aus Access Worddokument abspeichern

Computer: Software & Programmierung Microsoft Access
#1

Hi,
ich rufe aus Access heraus verschiedene Word und excelvorlagen auf, und befülle diese mit daten aus Access. Funktioniert !
Die Word und Excelvorlagen werden automatisch und D:\Ablage … mit einer Schadensnummer und dem namen der Word/Excelvorlage abgespeichert.

FilePath = „D:\Ablage“ & DLookup(„SchadNr“, „Schadensmeldung“, "SchadenID = " & Me.SchadenID) & „__“ & Me.FormListe.Column(4)

ergebnis: D:\ablage\1234__Erstbericht.doc

jetzt möchte ich dass zusätzlich nach D:\Ablage vorab noch ein Unterverzeichnis mit der Schadensnummer erstellt wird.

Ergebnis soltte so aussehen:
D:\Ablage\1234\1234__Erstbericht.doc

gruss Jürgen

#2

Hallo Jürgen,

der Befehl den du suchst heißt MkDir.

Aufruf: MkDir Pfadname

Viele Grüße
Özhan

#3

Hallo Jürgen,

in Visual Basic gibt es die MkDir-Anweisung, die einen Ordner erstellt. Der nachfolgende Code muss an entsprechender Stelle eingebunden werden:

FilePath = „D:\Ablage“ & DLookup(„SchadNr“, „Schadensmeldung“, "SchadenID = " & Me.SchadenID) & „__“ & Me.FormListe.Column(4) & „“ & SchadNr

MkDir FilePath

Gruß
Horst Müller

#4

Hi Jürgen,

das ist ganz einfach. Einfach vor dem Speichern in Word folgende Routine aufrufen, die dir den kompletten Ordnerpfad anlegt:

Private Declare Function MakeSureDirectoryPathExists Lib „imagehlp.dll“ (ByVal lpPath As String) As Long

Public Function Filesystem_Ordnerstruktur_anlegen(ByVal Pfad_komplett As String)
’
Dim RetVal As Long

If right$(Pfad_komplett, 1) „“ Then
Pfad_komplett = Pfad_komplett & „“
End If

’ Verzeichnis erstellen
RetVal = MakeSureDirectoryPathExists(Pfad_komplett)

If RetVal = 0 Then
Filesystem_Ordnerstruktur_anlegen = False
Else
Filesystem_Ordnerstruktur_anlegen = True
End If

End Function

Viele Grüße

Jochen

#5

Hallo Jürgen,

Ordner erstellst du mit dem FileSystemObject. Suche danach in Google zusammen mit „Ordner erstellen“. Wie z.B. hier: http://www.office-loesung.de/ftopic434115_0_0_asc.php

Grüsse
Egon

#6

Hi Jürgen,

versuche es mal so:
Public oFSO As New FileSystemObject

’ Existiert der Ordner? Wenn Nein, dann anlegen.
If Not oFSO.FolderExists(„D:\Ablage\1234“) Then
oFSO.CreateFolder(„D:\Ablage\1234“) Then
End If

Denn Pfad kannst Du wie in deinem Beispiel auch mit der Dlookup Funktion suchen.

Gruß
Thomas