Liesjes001
Gebruiker
- Lid geworden
- 11 jun 2014
- Berichten
- 82
Beste warme bakkertje
ondertussen ben ik eruit gekomen dat ik wel de schrijfrechten heb, maar nog steeds lukt het me niet om de code in te voeren. Om het uit te proberen op mijn usb heb ik het volgende geprobeerd:
Sub Gegevensoplsaan()
Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub
alsook:
Sub Gegevensoplsaan()
Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"& Year(Date) & "\"& "\" & Format(.Range("J2"), "yyyymmdd") & .Range("B13") & .Range("J1") & ".pdf"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub
F is de naam van de usb-schijf. Ik krijg nog steeds de foutmelding 1004, en dan staat .ExportAsFixedFormat 0, path in het geel.
Ligt het echt aan de pad naam, of doe ik iets verkeerd?
Mvg
Lies
ondertussen ben ik eruit gekomen dat ik wel de schrijfrechten heb, maar nog steeds lukt het me niet om de code in te voeren. Om het uit te proberen op mijn usb heb ik het volgende geprobeerd:
Sub Gegevensoplsaan()
Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub
alsook:
Sub Gegevensoplsaan()
Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"& Year(Date) & "\"& "\" & Format(.Range("J2"), "yyyymmdd") & .Range("B13") & .Range("J1") & ".pdf"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub
F is de naam van de usb-schijf. Ik krijg nog steeds de foutmelding 1004, en dan staat .ExportAsFixedFormat 0, path in het geel.
Ligt het echt aan de pad naam, of doe ik iets verkeerd?
Mvg
Lies