Ik ben bezig om met VBA in Excel te proberen om een query op te bouwen.
Deze moet er als volgt uit gaan zien:
INSERT INTO Tabel (waarde1, waarde2, waarde3, waarde4) VALUES ('product','5','val1','val2'-'val3'-'val4')
Waarde 1 en 2 staan vast.
waarde 3 en 4 worden opgehaalt uit de excel.
waarde 3 wordt uit 1 cell gehaalt
Waarde 4 uit 3 andere.
Nu heb ik het volgende opgebouwt
het kan een beetje omslachtig zijn maar het zei zo, het moet gewoon even werken.
echter krijg ik in me fullstring alleen de waardes val1, val2-val3-val4.
dit klopt al niet
als ik nu een paste naar een andere cell maak krijg ik alleen de waarde true
hoe is dit makkelijk op te lossen.
ik kan op google al eventjes niks vinden (of ik google niet goed)
Deze moet er als volgt uit gaan zien:
INSERT INTO Tabel (waarde1, waarde2, waarde3, waarde4) VALUES ('product','5','val1','val2'-'val3'-'val4')
Waarde 1 en 2 staan vast.
waarde 3 en 4 worden opgehaalt uit de excel.
waarde 3 wordt uit 1 cell gehaalt
Waarde 4 uit 3 andere.
Nu heb ik het volgende opgebouwt
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| Sub Test()
Dim val1 As String
Dim val2 As String
Dim val3 As String
Dim val4 As String
Dim fullstring As String
Range("I1").Select
For x = 2 To 121
'Hop from one cell to another to copy
ActiveCell.Offset(1, 0).Select
val1 = Selection.Copy
ActiveCell.Offset(0, -4).Select
val2 = ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
val3 = ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
val4 = ActiveCell.Copy
' Final string
fullstring = "INSERT INTO Tabel (waarde1, waarde2, waarde3, waarde4) VALUES ('product','5','val1','val2'-'val3'-'val4')"
'Paste the fullstring
ActiveCell.Offset(0, 4).Select
ActiveCell.Value = fullstring
' Test to see if val1 has a value.
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = val1
' return
ActiveCell.Offset(0, -3).Select
Next x
End Sub |
het kan een beetje omslachtig zijn maar het zei zo, het moet gewoon even werken.
echter krijg ik in me fullstring alleen de waardes val1, val2-val3-val4.
dit klopt al niet
als ik nu een paste naar een andere cell maak krijg ik alleen de waarde true
hoe is dit makkelijk op te lossen.
ik kan op google al eventjes niks vinden (of ik google niet goed)