dName = Application.Path
27.03.2015 08:17:07
Ralph
vor ca. 10 Jahren konnte ich mit eurer Hilfe ein ganz tolles Tool für meine Rapportierung meiner Arbeitszeiten gegenüber meinem Arbeitgeber erstellen, jedoch seit dem Umstieg auf Office14 bereitet mir der Application.Path immer wieder Schwierigkeiten.
Ich wollte das die Datei zB. in C:\rapport.ini (also direkt im Bootlaufwerk) sein sollte, jedoch komme ich da leider nicht weiter.
Nun zu meiner bitte ob vielleicht wer von sich die Geschichte mal anschauen könnte.
Danke
Ralph
Sub Drucken_1x()
Call Dialog_Drucken
Dim Nr%
Dim ExcelExe$
dName = Application.Path & "\rapport.ini"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Open dName For Output As #1
Print #1, "0"
Close
Open dName For Input As #1
End If
Input #1, Nr
Close
ActiveSheet.Range("i9") = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
ActiveWindow.ScrollRow = 1
Range("F9").Select
End
Sub
Anzeige