Sub Wczytaj_Dane_z_Excela()
'...
  FlagaDaneAB = True
  
  Set xlRg = Nothing
  xlBook.Close SaveChanges:=False
  Set xlBook = Nothing
  xlApp.Application.Quit
  Set xlApp = Nothing
End Sub

'MODUŁ OGÓLNY

'Dane z excela będą pobierane tylko jeden raz
Public FlagaDaneAB As Boolean 'czy tablica została pobrana
Public daneAB()               'tablica danych z kolumn A:B z excela

Sub test()
  UserForm1.Show
End Sub

Sub Wczytaj_Dane_z_Excela()
  Dim xlApp As Object
  Dim xlBook As Excel.Workbook
  Dim xlRg As Excel.Range
  Dim xlFileName As String
  
  If FlagaDaneAB = True Then Exit Sub
  
  Set xlApp = CreateObject("excel.application")
  'wybór pliku do otwarcia
  'ChDir "C:\dane"
  'UWAGA: poniższa instrukcja rodzi problemy przy analizie kodu 'krok po kroku'
  'neleży ją "przeskoczyć" umieszczając punkt zatrzymania za nią
  xlFileName = Excel.Application.GetOpenFilename("Arkusze excela ,*.xls")
  
  'otwarcie skoroszytu
  Set xlBook = Excel.Workbooks.Open(xlFileName)
  'przepisanie kolumn do tablicy
  With xlBook.Worksheets("Arkusz1")
    Set xlRg = .Range("A1:B" & .Range("A1").End(xlDown).Row)
    daneAB = xlRg.Value
  End With
  FlagaDaneAB = True
  
  Set xlBook = Nothing
  Set xlApp = Nothing
End Sub


'MODUŁ USERFORM
'okno zawiera: pole kombi, pole tekstowe, przycisk

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub ComboBox1_Change()
  TextBox1.Value = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
  Call Wczytaj_Dane_z_Excela
  
  'daneAN jako lista pola kombi
  ComboBox1.List = daneAB
  ComboBox1.BoundColumn = 2
End Sub

Dim CR As String    ' Chr$(rcCR) = Chr$(13) = Control-M
    Dim ESC As String   ' Chr$(rcESC) = Chr$(27) = Control-[
    Dim file_path
    Dim Get_Art_From_Excel As String
    Dim Get_Cnt_From_Excel As Integer
    Dim Get_Price_From_Excel As Double
    Dim Get_Cnuf_From_Excel As String
    Dim Get_Dept_From_Excel As String
    Dim str_Price_full As String
    
    CR = Chr$(rcCR)
    ESC = Chr$(rcESC)
    
    
    Set xlapp = CreateObject("excel.application")
    file_path = "c:\zam\"
    file_path = file_path + "zam.xls"
    Set xlapp = GetObject(file_path)
    Session.Transmit CR
    Get_Cnuf_From_Excel = xlapp.Sheets("Arkusz1").cells(1, 2).Value
    Session.Transmit Get_Cnuf_From_Excel & CR
    Get_Dept_From_Excel = xlapp.Sheets("Arkusz1").cells(2, 2).Value
    Session.Transmit Get_Dept_From_Excel & CR

xlapp.Sheets("Arkusz1").cells(1, 2).Value

Set xlapp = CreateObject("excel.application")
    file_path = "c:\zam\"
    file_path = file_path + "zam.xls"
    Set xlapp = GetObject(file_path)

'deklaracja tablicy dwuwymiarowej o trzech wierszach i dwóch kolumnach
Dim tablica(2, 1) As String
'wypełnienie tablicy
For a = 0 To 2
'pierwszy wiersz tablicy i pierwsza kolumna równa się zawartości komórki
tablica(a, 0) = Cells(a + 1, 1)
'pierwszy wiersz tablicy i druga kolumna równa się zawartości komórki
tablica(a, 1) = Cells(a + 1, 2)
Next a
ComboBox1.List() = tablica

ComboBox1.List() = tablica

Private Sub ComboBox1_Click()
TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub