extern excel bestand importeren en oude import overschrijven

[Murdock10]

Beste,

Ik ben momenteel bezig met een bemestingsprogramma wat naar behoren werkt, ik zit echter nog met 1 probleem. Het bemestingsprogramma werkt op basis van een grondanalyse, welke aangeleverd wordt in een excel bestand. Momenteel moet alles handmatig gekopieerd en geplakt worden in het bemestingsprogramma. Straks moeten er echter meerdere bemestingsplannen per dag gemaakt worden, waardoor het handmatig kopiëren en plakken veel tijd kost. Een macro met een knop om het grondmonster in te lezen zou dus erg makkelijk zijn. Ik heb op het forum gezocht en meerdere VBA scripts proberen om te bouwen voor mijn programma maar zonder resultaat.

De bedoeling is dat ik een "openen" venster krijg en dan het het juiste excel bestand kan selecteren. Vervolgens dient werkblad 1 van het excel bestand geïmporteerd te worden in het bemestingsprogramma en in het tabblad 'grondmonster' van het bemestingsprogramma terecht te komen.
Tevens zou het handig zijn als bij het inlezen van een nieuw grondmonster het vorige bestand(wat nog in het bemestingsprogramma staat) wordt overschreven.

Zouden jullie mij hierin wegwijs kunnen maken, ik heb namelijk nog vrij weinig ervaring met VBA.

Bij voorbaat dank,
Gijsbert

 

[JeanPaul28]

Murdoc welkom op het forum, om meer succes te vinden om een goede ziel te vinden die je wil helpen zal je een bestand moeten posten, zodat de forum leden eerst kunnen bekijken naar de mogelijkheden van je vraag.

 

[snb]

Verdiep je in querytables op het tabblad Data.
Een databasequery, waarbij het andere excelbestand als database funktioneert is de oplossing.

 

[Murdock10]

op dit moment heb ik de volgende code gevonden, hij werkt echter niet.

Sub ImportThisOne(sFileName As String)
On Error Resume Next
Dim oBook As Workbook
Workbooks.Open sFileName
Set oBook = ActiveWorkbook
'Now do your processing on the newly imported sheet
On Error Resume Next
'Copy new sheet into this workbook
oBook.Worksheets(Sheet1).Copy after:=ThisWorkbook.Sheets(grondmonster)
'close text file, do not save changes
'oBook.Close False
'Set oBook = Nothing
End Sub


Ik weet niet of dit voldoende is om mij verder te helpen. Het programma zelf online zetten is niet echt een optie aangezien er vrij veel vertrouwelijke informatie in het programma verwerkt is.

Mvg Gijsbert

 

[Murdock10]

Verdiep je in querytables op het tabblad Data.
Een databasequery, waarbij het andere excelbestand als database funktioneert is de oplossing.

Deze optie zal ik misschien morgen of anders donderdag uitproberen. Morgen heb ik vrij weinig tijd om aan het programma te werken namelijk