• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

opslaan als csv gaat niet goed

Status
Niet open voor verdere reacties.
D

DirkB

Gebruiker
Lid geworden
24 jun 2014
Berichten
96
Hoi,

ik heb eerder deze code gebruikt voor het automatisch aanmaken van CSV bestanden
ik heb dezelfde code gebruikt in een nieuwe sheet
bestand wordt keuring opgeslagen maar niet als CSV. Knipsel.PNG

Code: 
  Dim oldname$, oldpath$, oldformat
    Application.DisplayAlerts = False
    With ActiveWorkbook
    oldname = .Name
    oldpath = .Path
    oldformat = .FileFormat
       .Sheets("bmi alk").SaveAs _
      Filename:="\\server-04\users\dirk\BMI\CSV\Alk BMI mei 2019.csv", FileFormat:=xlCSV, local:=True
          .SaveAs Filename:=oldpath + "" + oldname, FileFormat:=oldformat
    End With
 
moet het niet .csv zijn. In kladblok gaat iets fout.
 
Laatst bewerkt:
Je code werkt hier prima.
 
Ed kan bij jou op de server kijken, wat waarschijnlijk een bonus is in dit geval, maar met een paar aanpassingen (sheet, pad) doet-ie het bij mij ook prima.
 
Aan je plaatje te zien heb jij toch echt een grotere bril ;)
 
dank voor jullie reactie

Heren,

dank voor de reacties.
het werkt bij mij ook

ik wilde in de regel Filename=: verwezen naar een Range in mijn sheet
zodat ik de namen automatisch kan laten veranderen


maar dat gaat blijkbaar mis
 
Dat kan best, alleen zien we dat niet terug in je code. Dus hoe moeten wij dat dan raden?
 
ik had bedacht:
Filename=: sheets("verwerk").range("AB7")
en in de cel AB7 wordt dmv een formule deze info gegenereerd:
"\\server-04\users\dirk\BMI\CSV\Alk BMI mei 2019.csv", FileFormat:=xlCSV, local:=True
 
Je kunt alleen het eerste deel uit de cel halen, het deel achter de komma niet. Dus:
Code: 
.Sheets("bmi alk").SaveAs _
      Filename:=Sheets("Verwerk").Range("AB7").Value, FileFormat:=xlCSV, local:=True
Natuurlijk kan je xlCSV ook door een celverwijzing vervangen, maar dan moet die cel een geheel getal bevatten dat overeenkomt met een legitieme fileformat waarde. xlCSV is bijvvoorbeeld 6.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan