Funkcje informacyjne VBA Lbound i Ubound to funkcje związane ze zmiennymi tablicowymi.
LBound – zwraca dolny indeks tablicy
UBound – zwraca górny indeks tablicy
Obie funkcje są wykorzystywane najczęściej w pętli odczytującej poszczególne wartości tablicy.
-
Na przykład:
Public Sub NazwaPlik()
Dim FD As FileDialog
Dim NazwaPlik As String
Dim i As Integer
Dim JTab()
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add „Pliki Excel”, „*.xls*”
.Filters.Add „Wszystkie pliki”, „*.*”
.Title = „Wskaż pliki””
NazwaPlik = „”
If .Show Then
For i = 1 To .SelectedItems.Count
If i = 1 Then
ReDim JTab(i)
Else
ReDim Preserve JTab(i)
End If
JTab(i) = .SelectedItems(i)
Next i
End If
End With
Set FD = Nothing
Call OdczytajPliki(JTab)
End Sub
Public Sub OdczytajPliki(JTab)
Dim i As Integer
Dim JPlik As String
For i = LBound(JTab) To UBound(JTab)
JPlik = JTab(i)
Debug.Print i & „: ” & JPlik
Next i
End SubW przykładzie procedury do zmiennej tablicowej zapisywane są pliki wskazane w oknie FileDialog.Picker, a następnie odczytywane w pętli.
-
A tu możesz mi postawić kawę:
buycoffee.to/marzatela
