gemme kopi af excel fil.

har fået det til og virke :)

Så må du mægtigt gerne lægge et svar om hvordan du gjorde og tage pointene selv. :-)

Function SaveTextFile(strFile As String, strData As String, Optional bOverWrite As Boolean = False) As Boolean
Dim iHandle As Integer, l As Long
    If Not bOverWrite Then
    If Len(Dir(strFile)) > 0 Then
    SaveTextFile = False
    Exit Function
    End If
    End If
    iHandle = FreeFile
    l = Len(strData)
    Open strFile For Binary Access Write As #iHandle Len = l
    Put #iHandle, , strData
    Close #iHandle
    SaveTextFile = True
End Function
Function MakeString(r As Range, Optional strDelimiter As String = vbNullString) As String
Dim vArray As Variant, i As Long, j As Long, strTemp As String
If r.Count = 1 Then MakeString = r.Value: Exit Function
vArray = r.Value
For i = 1 To UBound(vArray, 1)
For j = 1 To UBound(vArray, 2)
strTemp = strTemp & vArray(i, j) & strDelimiter
Next j
strTemp = strTemp & vbCrLf
Next i
strTemp = Left(strTemp, Len(strTemp) - 2)
MakeString = strTemp

End Function


Sub MyMacro()
    dtime = Now + TimeValue("00:02:00")
    Application.OnTime dtime, "MyMacro"
   
Dim strMyString As String, strMyFile As String, bResult As Boolean
strMyString = MakeString(Range("A1:A3"))
strMyFile = "c:\test\sted" & Format(Now, "-yyyy-mmdd-hhmm") & ".txt"
bResult = SaveTextFile(strMyFile, strMyString, True)
strMyString = MakeString(Range("B1:B3"))
strMyFile = "c:\test\vaerdi" & Format(Now, "-yyyy-mmdd-hhmm") & ".txt"
bResult = SaveTextFile(strMyFile, strMyString, True)
   
End Sub

Som den vakse læser kan se gemme jeg ikke i en excel fil men bare hver sølje i en tekstfil, same same :-)

Point -tja synes det er forkert og give sig selv så de må gå tabt, medmindre en kommer med en flot løsning så får han dem ;-)