|
Betriebssystem ist Windows 10, 64-Bit
Excel ist: Microsoft Excel 2019 MSO (Version 2301 Build 16.0.16026.20002) 64 Bit
Ich habe folgendes Problem:
Bei folgendem Code öffnet sich das richtige Dateiexplorerfenster:
Sub Test()
Dim objShell As Object
Dim strPath As String
strPath = "C:\SCAN_Andi\Auftragslisten"
Set objShell = CreateObject("Shell.Application")
objShell.Open "C:\SCAN_Andi\Auftragslisten"
Set objShell = Nothing
End Sub
aber wenn ich statt dem String für objShell.Open eine Variable setzte, wird kein Fenster geöffnet:
Sub Test()
Dim objShell As Object
Dim strPath As String
strPath = "C:\SCAN_Andi\Auftragslisten"
Set objShell = CreateObject("Shell.Application")
objShell.Open strPath
Set objShell = Nothing
End Sub
Ich bin Anfänger, habe aber so gut ich konnte recherchiert und eigentlich sollten diese beiden Codes doch gleich funktionieren. Oder nicht?
Danke für eure Hilfe
|