jvandervliet
Gebruiker
- Lid geworden
- 23 mrt 2006
- Berichten
- 234
Hallo,
Met Excel bestand print ik labels uit op basis van bestandsnamen.
In de verkenner selecteer ik de bestandsnamen en doe Copy Filenames (speciaal programmaatje).
In Excel plak ik die en druk ze af met behulp van onderstaande code:
Nu is het probleem dat de bestandsnamen verschillende extensies kunnen hebben. (*.wav, *.mpg, enz.)
Hoe kan ik er voor zorgen dat die wordt vervangen door niks.
Heb al geprobeerd om
te doen alleen als er een punt eerder in de bestandsnaam voorkomt dan word de bestandnaam eerder ingekort.
Alvast dank!
Met Excel bestand print ik labels uit op basis van bestandsnamen.
In de verkenner selecteer ik de bestandsnamen en doe Copy Filenames (speciaal programmaatje).
In Excel plak ik die en druk ze af met behulp van onderstaande code:
Code:
Sub PlakkenenAfdrukken()
Dim MyPrinter As String
'-----------------------------------------------------------------
'- get active printer
MyPrinter = Application.ActivePrinter
'-----------------------------------------------------------------
'- set another printer & print
Application.ActivePrinter = "DYMO LabelWriter 450 op Ne06:"
Application.ScreenUpdating = False
Range("I1").Select
ActiveSheet.PasteSpecial Format:="Unicodetekst", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Selection.Replace What:=".wav", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="* - ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Range("A1:A50").Value = Range("I1:I50").Value
Range("A1:A50").WrapText = True
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = MyPrinter
End Sub
Nu is het probleem dat de bestandsnamen verschillende extensies kunnen hebben. (*.wav, *.mpg, enz.)
Hoe kan ik er voor zorgen dat die wordt vervangen door niks.
Heb al geprobeerd om
Code:
replace What:= ".*"
Alvast dank!