Polecam poczytać dokumentację do Sfery:

Sfera - InsERT GT dla aplikacji 1.0
Metoda Dodaj
Dodaje nowy obiekt typu KhTelefon (telefon kontrahenta).
Składnia
wyrazenie.Dodaj(val)
wyrazenie
Wymagane wyrażenie, które zwraca kolekcja KhTelefony
Parametry
val
variant. Nazwa nowododawanego telefonu.
Uwagi
Przykład
Przykład pokazuje dodanie telefonu do istniejącego kontrahenta o zadanym symbolu.
Sub DodajTelefon()
On Error GoTo ErrHandler
 
    Dim oSgt As Insert.Subiekt
    Dim oKh As Insert.Kontrahent
    Dim oKhTel As Insert.KhTelefon
    Dim sym As String
    Dim nazwa As String
    Dim numer As String
    Dim strTel As String
    Dim strRodzaj As String
    Dim CzyIstnieje As Boolean
    Dim Rodzaj As Boolean
   
   
    'Wczytanie symbolu kontrahenta, który ma być wyświetlony
    sym = InputBox("Podaj symbol kontrahenta", "Kontrahent")
    If sym = "" Then
        MsgBox "Należy wybrać kontrahenta.", vbCritical
        Exit Sub
    End If
           
    'Uruchomienie Subiekta GT
    Set oSgt = UruchomSubiekta()
   
    'Sprawdzenie czy istnieje kontrahent
    CzyIstnieje = oSgt.Kontrahenci.Istnieje(sym)
    If CzyIstnieje = False Then
        oSgt.Okno.Widoczne = False
        MsgBox "Kontrahent o podanym symbolu nie istnieje"
        Exit Sub
    Else
 
        'Wczytanie kontrahenta do kolekcji
        Set oKh = oSgt.Kontrahenci.Wczytaj(sym)
   
        'Ukrycie okna Subiekta GT
        oSgt.Okno.Widoczne = False
       
        strTel = InputBox("Podaj nazwę telefonu:", "Nazwa nowego telefonu")
       
        'Dodanie obiektu telefonu kontrahenta
        Set oKhTel = oKh.Telefony.Dodaj(strTel)
       
        'Wypełnienie danymi pozostałych parametrów telefonu
        oKhTel.numer = InputBox("Podaj numer telefonu", "Numer nowego telefonu")
        oKhTel.Typ = gtaTelefonTypSluzbowy
        oKhTel.Podstawowy = True
        strRodzaj = MsgBox("Numer ma być telefonem (Tak) czy faksem (Nie)?", vbYesNo)
        If strRodzaj = vbYes Then
            oKhTel.Rodzaj = False
        Else
            oKhTel.Rodzaj = True
        End If
       
        'Zapisanie obiektu kontrahenta do bazy danych
        oKh.Zapisz
        oKh.Wyswietl
       
        'Zamknięcie obiektu kontrahenta
        oKh.Zamknij
       
        End If
   
    Exit Sub
ErrHandler:
    MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description
   
End Sub

To jest właśnie przykład, a nie program przygotowany pod twoje potrzeby. To trochę tak jak byś zrobił prawo jazdy na Nissanie Micra i potem powiedział, że Skodą Octawią nie pojedziesz bo to inny samochód. Jeśli nie radzisz sobie z takimi podstawowymi operacjami, to zleć to komuś innemu, bo pomoc sprowadzać się będzie do pisania kodu Ciebie.

Nie ma potrzeby używać wyskakujących okienek, wszystkie dane niezbędne do wprowadzenia numeru których nie masz w Excelu możesz przecież zastąpić stałymi - pusta nazwa, typ "służbowy", jak masz jeden telefon to zawsze będzie podstawowy, zawsze telefon.

To chyba mój pierwszy kod w vb w życiu:

'Wczytanie kontrahenta do kolekcji
        Set oKh = oSgt.Kontrahenci.Wczytaj(sym)
   
        'Ukrycie okna Subiekta GT
        oSgt.Okno.Widoczne = False
               
        'Dodanie obiektu telefonu kontrahenta
        Set oKhTel = oKh.Telefony.Dodaj("")
       
        'Wypełnienie danymi pozostałych parametrów telefonu
        oKhTel.numer = cells (row, 2)
        oKhTel.Typ = gtaTelefonTypSluzbowy
        oKhTel.Podstawowy = True
        oKhTel.Rodzaj = False       

        'Zapisanie obiektu kontrahenta do bazy danych
        oKh.Zapisz
        oKh.Wyswietl

--

Ze zdjęciami i wszystkimi kolekcjami podobnie - najpierw muszi dodać obiekt do kolekcji, a potem uzupełnić jego dane.

--

Proszę jeszcze zajrzeć do pliku "ImportPotencjalnychKlientow.xls" w dołączonych do programu przykładach (InsERT\Przykłady).

Jeśli coś Ci nie działa to przynajmniej napisz co się dzieje - czy pojawia się jakiś błąd, brak jest oczekiwanego efektu, itp - i zamieść kod który to realizuje. Wrzuciłem zaproponowany przeze mnie kod do przykładu i wszystko działa jak należy - plik w załączniku. Czy w moim kodzie zmieniłaś kolumnę komórki z 2 na 1 bo raz piszesz tak, a raz inaczej ?

Za to w Twoim kodzie co jest zapisywane do zmiennej "strTel", gdzie jest jej inicjalizacja ?

Zapewne zapisujesz dane, których nie przyjmuje baza danych, niestety nie raczyłeś napisać jakie wartości zawierają zmienne.

A numer telefonu coś zawiera?