Hallo iedereen, voor school moet ik een aantal excel bestanden (bronnen) omzetten met behulp van een VBA script om zo een sql bestandje te maken die ik kan importeren in mc access.
Nu ben ik momenteel bezig met het maken van dat bestandje en zit ik met een probleem.
Ik heb totaal geen verstand van VBA, maar heb wel veel geprobeerd.
Ik moet een kolom genaamd docenten in dat bestandje zetten.
De kolom uit dit plaatje dus.
Nu weet ik wat ik stap voor stap zou moeten doen. Namelijk:
stap 1
maak een array
stap 2
maak een for loop en lees veld voor veld uit
stap 3
voor elk veld dat je uitleest, split je de docenten door het komma teken
stap 4
doorloop de array van de split
stap 5
kijk of de waarde zich al in de array van de docenten bevind (de waarde van de split array zegmaar)
zo nee -> zet waarde in array
zo ja -> ga verder
stap 6
herhaal dit totdat je alle velden heb gehad
stap 7
doorloop de array van de docenten, en maak er bv insert queries van voor de DB
Maar dit wil me gewoon niet lukken. Nu heb ik een aantal voorbeeld codes tevoorschijn kunnen halen en die daar heb ik mee zitten proberen, maar ik kom niet verder dan dit:
Sub Knop3_Klikken()
bestandsnaam = Cells(1, 1).Value
begin_order_sub = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(bestandsnaam & ".sql", True)
For r = 12 To 26
For c = 1 To 2
If c = 1 Then
beginstring = Replace(Cells(r, c).Value, "'", Chr(34))
Else
If Cells(r, c).Value <> "" Then
begin_order_sub = begin_order_sub + 1
ordering = begin_order_sub
txt = "E12:E26"
x = Split(txt, ",")
For i = 0 To UBound(x)
DOCENTCODE = x(i)
Next i
If Cells(r, c).Value = " " Then
MsgBox "Error : " & r & " " & c
End If
totaalstring = beginstring
querystring = "INSERT INTO `Docenten` VALUES ();"
a.WriteLine (querystring)
End If
End If
Next c
Next r
a.Close
End Sub
Het zal wel ongelofelijk fout zijn, maar ik ben ten einde raad. Kan iemand mij alsjeblieft hiermee helpen?
Alvast hartelijk bedankt
Nu ben ik momenteel bezig met het maken van dat bestandje en zit ik met een probleem.
Ik heb totaal geen verstand van VBA, maar heb wel veel geprobeerd.
Ik moet een kolom genaamd docenten in dat bestandje zetten.
De kolom uit dit plaatje dus.
Nu weet ik wat ik stap voor stap zou moeten doen. Namelijk:
stap 1
maak een array
stap 2
maak een for loop en lees veld voor veld uit
stap 3
voor elk veld dat je uitleest, split je de docenten door het komma teken
stap 4
doorloop de array van de split
stap 5
kijk of de waarde zich al in de array van de docenten bevind (de waarde van de split array zegmaar)
zo nee -> zet waarde in array
zo ja -> ga verder
stap 6
herhaal dit totdat je alle velden heb gehad
stap 7
doorloop de array van de docenten, en maak er bv insert queries van voor de DB
Maar dit wil me gewoon niet lukken. Nu heb ik een aantal voorbeeld codes tevoorschijn kunnen halen en die daar heb ik mee zitten proberen, maar ik kom niet verder dan dit:
Sub Knop3_Klikken()
bestandsnaam = Cells(1, 1).Value
begin_order_sub = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(bestandsnaam & ".sql", True)
For r = 12 To 26
For c = 1 To 2
If c = 1 Then
beginstring = Replace(Cells(r, c).Value, "'", Chr(34))
Else
If Cells(r, c).Value <> "" Then
begin_order_sub = begin_order_sub + 1
ordering = begin_order_sub
txt = "E12:E26"
x = Split(txt, ",")
For i = 0 To UBound(x)
DOCENTCODE = x(i)
Next i
If Cells(r, c).Value = " " Then
MsgBox "Error : " & r & " " & c
End If
totaalstring = beginstring
querystring = "INSERT INTO `Docenten` VALUES ();"
a.WriteLine (querystring)
End If
End If
Next c
Next r
a.Close
End Sub
Het zal wel ongelofelijk fout zijn, maar ik ben ten einde raad. Kan iemand mij alsjeblieft hiermee helpen?
Alvast hartelijk bedankt
Laatst bewerkt:
