Hallo Leute,
Ich würde gerne den Wert c:/test.xls automatisieren... damit meine ich den wert aus einer
Textbox zu holen.Vielen Dank im voraus für die hilfe
hier der code...
Private Sub Command2_Click()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
txt = Text1
If fso.FileExists("c:/test.xls ") Then
ShellExecute Me.hwnd, "open", " c:/test.xls ", "", "", 0
Else
MsgBox "Datei nicht gefunden.", vbExclamation, "Fehler"
End If
'Objekte wieder freigeben
Set fso = Nothing
End Sub
Ich würde gerne den Wert c:/test.xls automatisieren... damit meine ich den wert aus einer
Textbox zu holen.Vielen Dank im voraus für die hilfe
hier der code...
Private Sub Command2_Click()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
txt = Text1
If fso.FileExists("c:/test.xls ") Then
ShellExecute Me.hwnd, "open", " c:/test.xls ", "", "", 0
Else
MsgBox "Datei nicht gefunden.", vbExclamation, "Fehler"
End If
'Objekte wieder freigeben
Set fso = Nothing
End Sub