🚀 go-pugleaf

Użytkownik <karol77marchewka@gmail.com> napisał w wiadomości 
news:1c9c4fb5-867c-4006-a728-22ab10244b96@googlegroups.com...

Co znaczy zaimportować poprzez VBA ?

To znaczy stworzyć moduł (skrypt) VBA, który przeprowadzi całą operację 
importowania wszystkich danych z pliku tekstowego do założonej tabeli 
accessa.

Przykładowo do importu poprzez VBA danych do excela stosowany może być taki 
moduł:

Sub Importuj()
  Const wOd = 2              'numer wiersza początkowego
  Const wIle = 26              'liczba wierszy
  Const NumeryKolumn = "1,3,4"  'numery importowanych kolumn

  Dim rg       As Range
  Dim sciezka As String, plik As String, linia As String
  Dim kolumny  As String
  Dim T As Variant, U() As Variant
  Dim w As Long, i As Long, j As Long

  On Error GoTo Importuj_Error
                                        'tablica wpisywanego wiersza
  ReDim U(1 To UBound(Split(NumeryKolumn, ",")) + 1)

  kolumny = "," & NumeryKolumn & ","    'będzie wyszukiwanie liczb
                                        'między przecinkami np. ,3,
  sciezka = ThisWorkbook.path & "/"
                                        'miejsce wkopiowania
  Set rg = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

  plik = Dir(sciezka & "*.txt")      'czy jest plik tekstowy
  Do While plik <> ""                  'jeśli jest plik
    Open sciezka & plik For Input As #1 'otwórz plik tekstowy

    w = 1
    Do While w < wOd
      If EOF(1) Then Exit Do            'przerwij, bo nie ma co czytać

      Line Input #1, linia            'przeskocz początkowe linie
      w = w + 1
    Loop

    Do Until EOF(1)                  'powtarzaj aż napotkasz koniec pliku

      Line Input #1, linia            'czytaj linię
      T = Split(linia, ";")          'rozbij na elementy wg separatora

      j = 0
      For i = 0 To UBound(T) - 1        'wybierz tylko właściwe kolumny
        If InStr(kolumny, "," & i + 1 & ",") > 0 Then
          j = j + 1
          U(j) = T(i)
        End If
      Next

      rg.Resize(1, UBound(U)) = U      'zapisz do komórek

      Set rg = rg.Offset(1, 0)        'kolejny wiersz docelowy

      w = w + 1
      If w = wOd + wIle Then Exit Do    'przerwij, jeśli to wszystkie linie

    Loop

    Close #1                            'zamknij plik tekstowy
    plik = Dir()                        'szukaj kolejnego pliku
  Loop

Importuj_Exit:
   On Error GoTo 0
   Exit Sub


No niestety żeby spełnić Twoje indywidualne wymagania musisz zgłębić nieco 
podstawy tworzenia modułów VBA lub zlecić stworzenie takiego modułu jakiemuś 
programiście.