Microsoft – die besten Beiträge

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
Computer, Windows, Microsoft, Datei, Microsoft Excel, programmieren, VBA

Wie kann man eine mehrseitige PDF als komplettes Objekt in eine Word-Datei einfügen, sodass alle Seite der PDF-Datei in Word zu sehen sind?

Hallo zusammen,

wir bräuchten Eure Unterstützung.

Bisher versuchten wir 2 Wege, die aber leider nicht das erwünschte Ergebnis brachten.

Leider wird immer nur die 1. Seite der PDF-Datei eingefügt und angezeigt und nicht wie gewünscht alle 6 Seiten der PDF-Datei.

Wir machen bestimmt etwas verkehrt ….. wissen nur nicht was ?

 

Folgendes versuchten wir:

· In Word Einfügen anklicken und dann in der Gruppe Text auf Objekt anklicken.

· Als Objekttyp ist bereits Adobe Acrobat Document ausgewählt

· Danach im neu geöffneten Fenster auf den Reiter Aus Datei erstellen klicken und auf der rechten Seite den Button Durchsuchen anklicken.

· Dann in einem weiteren neu geöffneten Fenster die entsprechende PDF-Datei auswählen und den Button Einfügen anklicken. Dieses Fenster schließt sich danach automatisch.

· Auf OK klicken und in Word erscheint das PDF Dokument - - - - -  JEDOCH wird in Word NUR die 1. Seite des PDF-Dokuments angezeigt und NICHT die komplette PDF-Datei mit insgesamt 6 Seiten !?

 

Den anderen möglichen Weg probierten wir auch aus:

· In Word Einfügen anklicken und dann in der Gruppe Text auf Objekt anklicken.

· Als Objekttyp ist bereits Adobe Acrobat Document ausgewählt

· Danach im neu geöffneten Fenster auf den Reiter Neu erstellen bleiben und auf OK anklicken.

· Dann in einem weiteren neu geöffneten Fenster die entsprechende PDF-Datei auswählen und den Button Öffnen anklicken. Beide Fenster schließen sich danach automatisch.

· In Word erscheint das ausgewählte PDF Dokument - - - - -  JEDOCH auch hier wird in Word WIEDER NUR die 1. Seite des PDF-Dokuments angezeigt und NICHT die komplette PDF-Datei ?!?

? Wie kann die mehrseitige PDF-DATEI komplett in Word eingefügt werden, sodass tatsächlich alle Seiten eingefügt und somit zu sehen sind ?  

Für hilfreiche Antworten von Experten oder von Berufserfahrenen wären wir dankbar.

Microsoft Word, Microsoft, Technik, PDF

Meistgelesene Beiträge zum Thema Microsoft