Angive sti til numre

Open ThisWorkbook.path & "\Fil.txt" For Input As #filnummer

Tak for svar!
Når jeg erstatter linien "open "C:\Fil.txt" For Input As #filnummer" med din linie, får jeg flg. fejlmeddelse: Compile error: expected expression.
Skal din linie stå et andet sted i koden?

Ok , fandt forskellen, her er koderne + en funktion, der tjekker om det er windows eller ej.


Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel
  filnummer = FreeFile
  Dim Varenummer As String
  Open Win_or_Mac_Path & "Fil.txt" For Input As #filnummer
    Line Input #filnummer, Varenummer  'Putter 1. linie ind i Varenummer
  Close #filnummer
  Range("A1").Select
  ActiveCell.Value = Val(Varenummer)
  Range("A2").Select
  ActiveCell.Value = Val(Varenummer) + 1
End Sub

Sub auto_close() 'Denne sub køres automatisk når regnearket lukkes i Excel
  Dim filnummer As Integer
  filnummer = FreeFile
  Range("A2").Select
  Open Win_or_Mac_Path & "Fil.txt" For Output As #filnummer
  Print #filnummer, ActiveCell.Value 'Skriver indholdet af celle A1 til filen
  Close #filnummer
End Sub

Public Function Win_or_Mac_Path()
If Application.OperatingSystem Like "*Win*" Then
            Win_or_Mac_Path = ThisWorkbook.Path & "\"
        Else
            'MAC syntax differs from Win
            Win_or_Mac_Path = ThisWorkbook.Path & ":"
        End If
End Function


Jeg fandt det her: http://www.jkp-ads.com/Articles/DistributeMacro10.htm

Mærkeligt. Nu får jeg en fejl i linie 1 "Compile error. Sub or function not defined

linie 1, hvilken kode ??

Første fejlmeddelse kom i denne linie: Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel

Nu har startet forfra, men så kommer der en fejl i denne linie: Public Function Win_or_Mac_Path()

Bare lige for at være sikker: Jeg opretter en makro og kopierer koden ind i denne. Jeg bruger Excel 2004 til mac.

Det skal stå i et module, akkurat, som vist 09/09-2008 16:05:56