bestand openen en opslaan vanuit excel

[stefano]

Vanuit een softwareprogramma (SAP) worden etiketlabels met gegevens afgedrukt. Soms gebeurt het dat een etiket moet herafgedrukt/bijgedrukt worden. Om dit te doen moet een tekstbestand geopend worden en daarna terug opgeslagen worden. Het bestand heeft voor ieder monster :shocked: een andere bestandsnaam, dus moet de vraag gesteld worden om de bestandsnaam in te geven.

Mijn vraag : kan dit gebeuren via een macro vanuit excel ?

Stefano

PS : indien ja , en hoe ?

 

[edmoor]

Maak een knop in keuzemenu of in het lintmenu (afhankelijk van je Excel versie) en koppel daar de volgende macro aan:

Sub BewaarAls()
    ActiveWorkbook.SaveAs Filename:="C:\Book1.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Uiteraard kun je hierin de initiele pad- en/of bestandsnaam naar eigen smaak invullen.

Edit:
Te simpel antwoord. Ik zal eens kijken of ik een andere oplossing voor je kan vinden.
Je zult dan vanuit een Excel macro een tekst editor als bijvoorbeeld Kladblok (Notepad) moeten starten omdat je anders de layout verstoord.

 

[stefano]

dank alvast :thumb:

 

[edmoor]

Je kunt in een macro aan een knop bijvoorbeeld de volgende code gebruiken:

Sub BewerkBestand(Filename As String)
    Shell Environ("windir") & "\Notepad.exe " & Filename, vbNormalFocus
End Sub

Vanuit dezelfde module kun je die dan aanroepen waarbij de naam van het bestand mee geeft. Bijvoorbeeld:

Sub Test
    Call BewerkBestand("C:\SAMPLE890000001334-1.TXT")
End Sub