kann mir jemand den VBA - Code geben, um diese Seite zu öffnen?
Mit: Shell "explorer.exe /C:", vbNormalFocus lande ich immer Benutzerverzeichnis.
Gruß Lutz
Shell "explorer.exe shell:MyComputerFolder", vbNormalFocus
Peter
Function GetPhoneCLSID(name As String)
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.Namespace("shell:MyComputerFolder")
For Each objItem In objFolder.Items()
If InStr(1, objItem.name, name, vbTextCompare) > 0 Then
GetPhoneCLSID = objItem.Path
End If
Next
End Function
Sub OpenGalaxy()
Shell "explorer " & GetPhoneCLSID("Galaxy"), vbNormalFocus
End Sub
Peter
Shell "explorer " & GetPhoneCLSID("Galaxy") & "\ZZZ", vbNormalFocus
Peter
Shell "explorer " & GetPhoneCLSID("Galaxy") & "\Phone\ZZZ", vbNormalFocus
Peter
Sub CopyGalaxy()
Set objShellApp = CreateObject("Shell.Application")
Set copyfolder = objShellApp.Namespace(GetPhoneCLSID("Galaxy") & "\Phone\ZZZ")
' Workbook sollte vorher gespeichert werden
copyfolder.CopyHere ThisWorkbook.FullName, 16 ' 16 überschreibt eine vorhanden Datei
' oder eine ganze andere Datai
'copyfolder.CopyHere "C:\Users\Name\Documents\WasAuchImmer.xlsx",16
End Sub
Peter