Dim fn As String, txt, x, y, myCols, a() As String, temp, i As Long, e, n
myCols = Array("Loi", "S_an", "S_ani", "S_barcode", "S_barinv", "S_is", "S_lndate", "S_rec", "S_sg", "S_title", "S_ty", "S_up", "S_vo")
fn = Application.GetOpenFilename("All Files (*.CSV), *.CSV")
txt = CreateObject("Scripting.FilesystemObject").OpenTextFile(fn).ReadAll
x = Split(txt, vbCrLf)
ReDim a(1 To UBound(x) + 1, 1 To UBound(myCols) + 4)
For i = 1 To UBound(x)
If x(i) <> "" Then
y = Split(x(i), ";")
n = 0
For Each e In myCols
n = n + 1
Select Case e
Case "Price"
a(i, n) = Val(Replace(y(e), ",", "."))
Case "S_barcode"
temp = GetBarCodes(y(e))
a(i, n) = temp(0)
n = n + 1
a(i, n) = temp(1)
Case "S_title"
temp = GetTitles(y(e))
If IsArray(temp) Then
a(i, n) = temp(0)
n = n + 1
a(i, n) = temp(1)
n = n + 1
a(i, n) = temp(2)
Else
n = n + 2
End If
Case Else: a(i, n) = y(e)
Bookmarks