Springen naar inhoud


- - - - -

Filepath Uit Cel


  • Log in a.u.b. om te beantwoorden
Er zijn 3 reacties in dit onderwerp

#1 plekke

plekke

    Senior Developer

  • Leden
  • PipPipPip
  • 135 berichten
    Laatst bezocht 25 mei 2017 21:45

Geplaatst op 25 mei 2017 - 12:03

ik heb een excel met in de cellen info over directory en bestandsnamen

https://i.imgur.com/YJkRQYZ.png
Geplaatste afbeelding


ik wil met die gegevens ,uit de cel , de bestanden gaan uitlezen en schrijven via vba.


als ik  de foldernaam in de sourcecode typ werkt het goed
echter ik wil dat mijn code de string uit een cel haalt , zodat de gebruiker dit kan editen in de excel cel

hoe los ik dat op ?

#2 Hansiebebe

Hansiebebe

    Professional Developer

  • Leden
  • PipPipPipPip
  • 267 berichten
    Laatst bezocht 14 jun 2017 22:04

Geplaatst op 30 mei 2017 - 22:25

Ik heb hieronder een eerste aanzet gegeven

Visual Basic Code:
Sub test()

Dim LeesBestand As String
Dim SchrijfBestand As String


LeesBestand = Cells(4, 5) & Cells(4, 6)
SchrijfBestand = Cells(4, 5) & Cells(4, 7)

Dim Tekstregel As String



Open LeesBestand For Output As #1
Open SchrijfBestand For Input As #2

While Not EOF(1)

Line Input #1, Tekstregel
Write #2, Tekstregel

Wend
Close #1
Close #2



End Sub


What is, That is

#3 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 553 berichten
    Laatst bezocht 26 jun 2017 18:15
  • LocatieMechelen (BE)

Geplaatst op 03 juni 2017 - 14:31

Waarom zou je regel per regel kopiëren? Doe toch gewoon een filecopy

#4 Hansiebebe

Hansiebebe

    Professional Developer

  • Leden
  • PipPipPipPip
  • 267 berichten
    Laatst bezocht 14 jun 2017 22:04

Geplaatst op 03 juni 2017 - 14:44

kan ook, maar ik neem aan dat ie iets met de tekst wilt gaan doen
What is, That is




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan PascalBianca die tot op heden alles bijhoud sinds anno dec 2010)
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be