Waarden uit ander bestand inladen

[harolda1980]

Waarden van 1 cel inladen uit 1 specifiek bestand. Eigenlijk zonder echt het bestand te open.

Wat zijn hiervoor de mogelijkheden.

 

[ZZ1]

Hallo,

Waarom 2 bestanden? je zou eventueel ook een extra tabblad kunnen nemen en die in VBA met de volgende code laten verdwijnen:

Private Sub Worksheet_Activate()

    Sheets("Name of the sheet").Visible = False

End Sub

Naar ander excel bestand:

    [A1] = "=[Map1.xls]Blad1!A1"

Succes verder!!

 

[harolda1980]

Maar met die regel krijg ik de waarden niet opgehaald uit een ander bestand. en die wil ik dan toewijzen aan een variabelen.

Tsja niet alles wil je in het zelfde bestand houden. In dit geval communiceren er meerdere excel bestanden met elkaar. En moet dus nu dingen ophalen zonder dat het andere excel bestand geopend word.

 

[Hoornvan]

harolda1980,

Kijk hier en dan het laatste bericht met voorbeeld bestand.

 

[Hoornvan]

harolda1980,,

Ik heb de code van ZZ1 in een module geplaatst en een knop op het blad gezet en de macro daaraan gekoppeld.
Het werkt uitstekend, let wel op de ' die erbij staan.
1 voor de [ en 1 voor !

Sub test()
  [A1] = "='[Afspraken.xls]Afspraken-An'!A1"
End Sub

 

[harolda1980]

Die tweede is meteen erg duidelijk en werkt..

Hoe krijgt ik in AN nou de waarde van de cel A1

Sub test()
Dim AN As String
  AN = "='[Afspraken.xlsx]Afspraken-An'!A1"
End Sub

 

[Hoornvan]

Hoe krijgt ik in AN nou de waarde van de cel A1

 [A1] = "='[Afspraken.xls]Afspraken-An'!A1"

De eerste A1 daar word het geen in de file "Afspraken.xls" van het blad "Afspraken-An" uit cel A1 geschreven.
Dus als er in A1 van het blad "Afspraken-An" 456 staat wordt in A1 van jouw blad 456 gezet.

De macro moet dus in een module staan in de file waar je de gegevens wil hebben.

Ik hoop dat het duidelijk is.
Pas eventueel de cel aan waar het moet komen en de cel waar je de gegevens van wil.

 

[harolda1980]

Ja dat had ik al door, alleen wil ik de waarde uit die cel eerst in een variabele van VBA hebben. Waar ik er een paar berekeningen mee uitvoor alvorens hem later afhankelijk van een aantal opties weg te schrijven in een cel

 

[Hoornvan]

Kun je die variable niet uit de cel lezen?
B.V.B.;

Sub test()
 [A1] = "='[Afspraken.xls]Afspraken-Wim'!A1"
 AN = [A1]
End Sub

 

[harolda1980]

Ja dat kan wel alleen maakt het onderdeel uit van een beveiliging die het starten vn het programma controleert. Dus wanneer de uitkomst goedgekeurd is wil ik pas naar excel schrijven.

Wanneer het niet goed gekeurd is wil ik niks laten zien zeg maar

 

[Hoornvan]

Daar heb ik even geen antwoord op, misschien nog iemand anders.

Suc6

 

[harolda1980]

IK zit met nog een profiel


F is in mijn module de variable die de bestandslocatie oppakt en daarbij de bestandsnaam
Alleen hoe krijg ik deze onderstaande verwijzing van jou aan de gang zou dat hij f oppakt als bestandsnaam c.q. locatie?

[A1] = "='[f] calc'!A10"

 

[Hoornvan]

harolda1980,

[A1] = "='[f] calc'!A10"

f = dat een file? Ik denk het niet.

 

[harolda1980]

Wim, hierbij een voorbeeld van een code..
In de calculatie staan 15 variabelen die ik nodig heb om er mee te werken. Die wil ik in dit rekenmodel laden via een keuzelijst. Dat deel heb ik wel voor elkaar.

Maar zoek nu een code die het wisselende bestanddeel kan wijzigen. F is die variabelen in mijn voorbeeld.

Sub loadcalculation()
dim f as string

F = cells(4,2).value 'Inladen van bestands naam  "\\Database\REK1\Calculatie 1011a.xlsx"

'inladen van waarden per cel 15 stuks in de echte versie
[B4] = "='[f] calc'!A6"
[D10] = "='[f] calc'!A10"
[D11] = "='[f] calc'!A11"
[D12] = "='[f] calc'!A12"

'Hier na kunnen de diverse bewerkingen gedaan worden aan de hand van variabelen

End sub

 

[Hoornvan]

harolda1980,

F = cells(4,2).value 'Inladen van bestands naam "\\Database\REK1\Calculatie 1011a.xlsx"

'inladen van waarden per cel 15 stuks in de echte versie
[B4] = "='[f] calc'!A6"
[D10] = "='[f] calc'!A10"
[D11] = "='[f] calc'!A11"
[D12] = "='[f] calc'!A12"

Dit ziet er anders uit dan wat hier boven staat.

[A1] = "='[Afspraken.xls]Afspraken-An'!A1"

='[f] = geen file, zoals in het voorbeeld ='[Afspraken.xls], ik zie geen extentie.
Hier houd het voor mij op, ik zou niet weten hoe dit op te lossen.
Suc6