Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: Opslaan bestand met VBA Excel (waarden uit andere werkmap)

  1. #1
    Junior Member
    Geregistreerd
    21 augustus 2020
    Vraag is opgelost

    Opslaan bestand met VBA Excel (waarden uit andere werkmap)

    Goedemiddag,

    Ik heb een macro in Excel gemaakt die een steeds wisselend Excel bestand omgebouwd naar een .csv bestand dat moet worden geïmporteerd in een boekhoudpakket.
    De macro staat in een losse Excel werkmap, waarin ook een aantal tabbladen zijn opgenomen waar informatie wordt opgezocht middels VERT.ZOEKEN.

    De laatste stap is dat het bestand moet worden opgeslagen als een .csv bestand (met , maar ik wil de gebruiker de keuze geven waar het opgeslagen moet worden.
    Ik heb hiervoor in de basis (macro) werkmap 2 invoervelden gemaakt:
    Klik op afbeelding voor grotere versie

Naam:  Knipsel.JPG
Bekeken: 11
Grootte:  18,3 KB

    Mijn (laatste stukje) code ziet er nu als volgt uit, maar ik krijg een foutmelding op de strFileName. Het zal ongetwijfeld iets simpels zijn als een haakje of een komma, maar ik zie het niet meer.
    Code:
        Dim strFileName As Variant
        Dim StrPath As String
        strFileName = Range("'[Macro import.xlsm]Blad1'!R11C3")
        StrPath = Range("'[Macro import.xlsm]Blad1'!R13C3")
        ActiveWorkbook.SaveAs Filename:=StrPath & "\" & strFileName, FileFormat:=xlSCV
    Wie helpt me uit de nood? En ja: ik heb al een aantal topics hierover gelezen, maar ook hiermee kwam ik er niet uit (omdat de cellen niet in het aan te passen werkblad staan).

    Hartelijke groet,
    Anja Dijkstra
    Laatst aangepast door anjaddijkstra : 16 september 2021 om 17:47

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik zou er eerst dit van maken:
    Code:
    FileFormat:=xlCSV
    En kijk in debug mode de waarde van StrPath en strFileName na.
    Laatst aangepast door edmoor : 16 september 2021 om 17:57
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Junior Member
    Geregistreerd
    21 augustus 2020
    Quote Origineel gepost door edmoor Bekijk Bericht
    Ik zou er eerst dit van maken:
    Code:
    FileFormat:=xlCSV
    En kijk in debug mode de waarde van StrPath en strFileName na.
    Bedankt edmoor, die SCV had ik inderdaad over het hoofd gezien. Maar hoe kan ik de debug mode vinden en daarin de waardes? Op dat gebied ben ik nog wel een leek.

    Groet, Anja

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Junior Member
    Geregistreerd
    21 augustus 2020
    Quote Origineel gepost door edmoor Bekijk Bericht
    Helaas, deze link geeft een 404-pagina..., maar ik begrijp wat je bedoelt: even Googelen op "Debugging in Excel VBA". Tnx

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Die link doet het hier prima.
    Maar als je een andere hebt gevonden is het ook goed uiteraard.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Junior Member
    Geregistreerd
    21 augustus 2020
    Ik heb de debug fixing gedaan, en zie het volgende:
    bij strFileName strFileName = ""
    bij Range("'[Macro import.xlsm]Blad1'!R11C3") Methode Range van object_Global is mislukt

    Ik heb deze onderste error ook even gegoogled, maar kom er niet echt uit wat hier de oorzaak kan zijn.
    Laatst aangepast door anjaddijkstra : 22 september 2021 om 09:09

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Gebruik niet de R1C1 notatie voor het cel adres maar de A1 notatie:
    Code:
    strFileName = Range("'[Macro import.xlsm]Blad1'!C11")
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    Junior Member
    Geregistreerd
    21 augustus 2020
    Yes, dat is de oplossing. Nu werkt het, dankjewel!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren