Opslaan op C-schijf en K-schijf

[Oude leerling]

Geacht forum,

Ik heb een bestand waar ik regelmatig gegevens invoer
Deze gegevens wil ik dan in het mapje "Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4") ,
en onder de naam Kasblad Heerhugowaard WEEK" & Range("I1") , opslaan.

Op de C-schijf gaat dat allemaal goed (zie a) .
Op de k-schijf lukt het echter maar niet (zie b)

Wat moet die code zijn zodat het wel goed gaat . (met het gebruik van de code "Naam"

Dim Naam As String
 a)    Naam = "\Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4") & "\Kasblad Heerhugowaard WEEK" & Range("I1") & " .xls"
         ActiveWorkbook.SaveAs Filename:="C:\Users\Public\documents" & Naam

 b)     ActiveWorkbook.SaveAs Filename:="K:" \ Naam

Vriendelijke groet Jaap

 

[Mde]

misschien

 "k:\"& Naam

 

[Oude leerling]

Bedankt voor je reactie.
Dat geeft fout 1004

 

[snb]

Dan bestaat drive K niet of je hebt daar geen schrijfrechten.

 

[VenA]

of de map bestaat niet op de K schijf?

MsgBox Dir("K:\Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4"), 16)

 

[Oude leerling]

ActiveWorkbook.SaveAs Filename:="K:\Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4") & "\Kasblad Heerhugowaard WEEK" _
        & Range("I1") & " .xls"

Het mapje op de K-schijf is er wel!!

Ik gebruikte voorheen bovenstaande code , die werkt wel ,maar omdat deze nogal lang is wilde ik proberen om een kortere versie te zoeken

 

[VenA]

Aangezien je nogal dol bent op staties. Wat is het resultaat van de code in #5?

 

[Oude leerling]

VenA,

Het resultaat was "Kasbladen Heerhugowaard 2020"

Ik heb hem trouwens (die code) bewaard was een onbekende voor mij

 

[edmoor]

Ik zou het zo doen:

    Dim Naam As String
    Dim hfd As String

    Naam = "\Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4") & "\Kasblad Heerhugowaard WEEK " & Range("I1") & ".xls"
    hfd = "C:\Users\Public\documents"
    ActiveWorkbook.SaveAs Filename:=hfd & Naam

    hfd = "K:"
    ActiveWorkbook.SaveAs Filename:=hfd & Naam

 

[snb]

Waarom zet je het jaar en het weeknummer niet naast elkaar in het werkblad ?
Waarom verspreid in [J4] en [I1] ?
Waarom gebruik je de ene keer de naam van het werkblad om een range aan te geven [J4] en een andere keer [I1] niet ?
les 1 van programmeren: wees consistent.

 

[Oude leerling]

edmoor,

Dim

 hfd = "K:"

blijft bij mij rood gekleurd , compilatiefout


snb,

Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4")

( dit is het mapje Kasbladen Heerhugowaard 2020)

Kasblad Heerhugowaard WEEK" & Range("I1") & " .xls"

(dit is de naam van het bestand Kasblad Heerhugowaard WEEK46

Op beide schijven dus een zelfde mapje met daarin hetzelfde bestand.
Jaap

 

[edmoor]

Dan heb je geen Dim hfd As String gedaan en heb je Option Explicit aan staan.

 

[VenA]

Mogelijke fouten analyseer je door veel zaken in een variabele te 'gooien'. In de VB-edtior kan je dan stapsgewijs analyseren waarom iets fout gaat. Wel het scherm Locals aanzetten.

Met een berichtboxje kan het ook wel

MsgBox Dir("K:\Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4"), 16)="K:\Kasbladen Heerhugowaard " & Sheets("Cijfers").Range("J4")

of zoiets

 

[Oude leerling]

Sorry Edmoor , verkeerd overgenomen!
Werkt prima
Ik denk dat ik het op deze manier ga doen
Waarom op mijn eerste manier geen realisatie mogelijk is weet ik ook niet
Als een van de andere forumleden er achter komt ,houd ik mij aanbevolen
Iedereen bedankt voor de gedane moeite
Dank je wel voor de geboden oplossing
Vriendelijke groet Jaap