Hyperlink ergänzen.
20.05.2016 09:40:53
Jens
wie kann man nach dem einfügen eines Dateinamens einen Hyperlink auf den Datei setzen.
In dem code wird eine Datei in eine andere Datei eingelesen(1.cvs)und danach umbenannt(1_IMPORT.cvs).
Der Umbenannte Dateiname steht in Spalte A.
Wie erzeugt man bei den Eintragungen in Spalte A einen Hyperlink, sodass die Datei 1.pdf geöffnet werden kann.
Der Pfad der Pdf-datei ist der gleiche wie der Pfad der CVS-Datei.
Sub importCSV()
Dim Datei As Variant, dNr%, s$, a, b, c()
Dim dateiNeu As String
Dim i&, j&, bZ&, sp&, zl&
Dim strpath As String
Datei = Application.GetOpenFilename("CSV-Datein *.csv ,*.csv")
If Datei = False Then Exit Sub
bZ = Range("A" & Rows.Count).End(xlUp).Row
s = String(FileLen(Datei), 0)
dNr = FreeFile
Open Datei For Binary Access Read As #1
Get dNr, , s
Close #1
a = Split(s, vbCrLf): zl = UBound(a)
If Trim(LTrim(a(zl))) = "" Then zl = zl - 1 'Leerzeile am Ende ignorieren
b = Split(a(0), ";"): sp = UBound(b)
ReDim c(1 To zl, 0 To sp)
For i = 1 To zl
b = Split(a(i), ";")
For j = 0 To sp
'c(i, j) = b(j)
'oder, wenn keine "" erwünscht, dann so:
c(i, j) = Replace(b(j), """", "")
Next
Next
Range("B" & bZ + 1).Resize(zl, sp + 1) = c
dateiNeu = Left(Datei, Len(Datei) - 4) & "_IMPORT" & ".csv"
Name Datei As dateiNeu
dateiNeu = Mid(dateiNeu, InStrRev(dateiNeu, "\") + 1)
Range("A" & bZ + 1).Resize(zl).Value = dateiNeu
Hyperlinks.Add Anchor:=Range("A" & bZ + 1).Resize(zl).Value, _
Address:=strpath & Application.Substitute("sada", ".xlsx", ".pdf"), _
TextToDisplay:="sada"
End Sub