Liste aller in einem Ordner befindlichen Dateien auflisten

[Rabe]

Hi Günther,

ich gehe da einen etwas anderen Weg (Get and transform = Power Query).

nach Deiner Anleitung durchgeführt, hat es geklappt.

Kann PQ die Umwandlung in Hyperlinks nicht auch selber machen als weiteren Schritt? Damit ich nicht zusätzlich ein Makro starten muß.

[snb]

Code:

Private Declare Function OemToCharA Lib "user32.dll" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
       
Public Function F_ASC_ANS(ByVal Text As String) As String
  OemToCharA Text, Text
  F_ASC_ANS = Text
End Function

Sub M_snb()
    c00 = "G:\OF\aarhus\"
    sn = Split(F_ASC_ANS(CreateObject("wscript.shell").exec("cmd /c dir """ & c00 & "*.xls*"" /b/s").stdout.readall), vbCrLf)
    
    For j = 0 To UBound(sn) - 1
       Sheet1.Hyperlinks.Add Cells(j + 1, 1), sn(j), , , Dir(sn(j))
    Next
End Sub

die freundliche Name steht schon da: Dir(sn(j))

PHP-Code:

Sheet1.Hyperlinks.Add Cells(j + 1, 1), sn(j), TextToDisplay:=Dir(sn(j)) 


[Rabe]

Hi,

ja so hat es nun geklappt.

die freundliche Name steht schon da: Dir(sn(j))

komischerweise wurden die mit den anderen beiden Codes nicht angezeigt, sondern der komplette Pfad + Dateiname.

[snb]

Dann haben unsere MS-Freunden wieder mal etwas geändert in der Argumentefolge von hyperlinks.add.

Welche Excel Version benützt du ? und was steht in der Hilfe Hyperlinks.Add   F1?

[Rabe]

Hi,

hier jetzt 2013.

In der Hilfe steht das:

Code:

With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With

[GMG-CC]

Moin Ralf,

Kann PQ die Umwandlung in Hyperlinks nicht auch selber machen als weiteren Schritt? 

Leider (noch) nicht. Aber ich habe von Insidern gehört, dass der Wunsch in Sachen Hyperlink-Funktionalität bei MS bekannt ist und auch nicht konsequent abgelehnt worden ist. Ich finde es schon so eine feine Sache, sehr viel Informationen in Sachen Ordner und Dateien auf recht einfachem Weg zu bekommen. Und hinter der gesamten Funktionalität in Sachen "Inhalt der Festplatte" steckt noch einiges mehr ...

[snb]

@Rabe


Danke.

Ich arbeite mit 2010.

Was du gezeigt hast ist nicht geanu was ich meinte; du hast die Argumentenamen wie z.b. 'Address;=' und 'Screentip:=' mitgeschickt.
Im Object Browser steht die Folge von Argumenten ohne Namen

Was passiert nun bei dir mit dieser Code?

Code:

With Worksheets(1)
.Hyperlinks.Add .Range("a5"), "http://example.microsoft.com",  , "screentip", "Displaytext"
End With

Ich fürchte du hast ein komma vergessen; Es gibt 3

Code:

Sheet1.Hyperlinks.Add Cells(j + 1, 1), sn(j), , , Dir(sn(j))

[Rabe]

Hi,

Was passiert nun bei dir mit dieser Code?

Code:

With Worksheets(1)
.Hyperlinks.Add .Range("a5"), "http://example.microsoft.com",  , "screentip", "Displaytext"
End With

Ich fürchte du hast ein komma vergessen; Es gibt 3

Nein, den Makro-Code habe ich so 1:1 aus dem Hilfetext kopiert. Zwischen Address und ScreenTip ist nur ein Komma.

siehe Online-Hilfe:

Code:

With Worksheets(1)
  .Hyperlinks.Add Anchor:=.Range("a5"), Address:="http://example.microsoft.com", ScreenTip:="Microsoft Web Site", TextToDisplay:="Microsoft"
End With

Da wird der Link in die Zelle A5 eingetragen mit dem ScreenTip und dem Displaytext.

Wenn ich, so wie Du, im Code die Argumentnamen ("Address=" und "ScreenTip=" und "TextToDisplay=") weglasse, dann wird das zusätzliche Komma benötigt.

[Steffl]

Hallo Ralf,

Du hast deine Parameter benannt, snb nicht und daher braucht er ein Komma mehr.