Finns det något sätt att i VBA läsa URL-en i en internet-genväg? det är en text fil... Hej Karin!Kunna läsa URL-en i en internet-genväg
Har försökt att använda FileSystemObject och GetFile men den anser inte att genvägen är en fil.
/KarinSv: Kunna läsa URL-en i en internet-genväg
Sub ReadInfoFromURL_LNK()
Dim InputString As String, FileNum As Integer
FileNum = FreeFile ' next free filenumber
Open "C:\gs.url" For Input As #FileNum
While Not EOF(FileNum)
i = i + 1
Line Input #FileNum, InputString ' read a line from the textfile
Cells(i, 1) = InputString ' do something with the string
Wend
Close #FileNum
End Sub
finns bättre sätt att läsa textfil och jag tror att det finns nått api googla lite... vet ja
Sv: Kunna läsa URL-en i en internet-genväg
här är ett exempel för Word VBA:
Sub ListFavorites()
Dim sPath As String
Dim sFile As String
sPath = "C:\Documents and Settings\Åsa\Favoriter\Programmering\VBA\"
sFile = Dir(sPath & "*.url")
Do While sFile <> ""
Debug.Print sFile, System.PrivateProfileString(sPath & sFile, "InternetShortcut", "URL")
sFile = Dir
Loop
End Sub
PrivateProfileString finns bara i Word VBA. Om du skriver för något av de andra officeprogrammen måste du använda Win API GetPrivateProfileString. Här hittar du ett lite mera avancerat sätt att göra samma sak som i mitt exempel: http://vbnet.mvps.org/ sök efter "GetPrivateProfileString"