Ανανέωση ιστοσελίδας

[Γιώργος Κοντούλης]

Χαιρετώ την ομύγηρη και παρακαλώ για τη βοήθειά της.

Έχω μια φόρμα Visual Basic 6.0 (ας την πούμε form1), η οποία έχει ένα TextBox (ας το πούμς Text1) και ένα κουμπί εντολής (ας το πούμε cmndDataEntry).
Αυτό που προσπαθώ και (για κάποιο λόγο που ορισμένοι αποκαλούν «ασχετοσύνη») δεν καταφέρνω είναι, όταν κάνω κλικ το cmndDataEntry, να μεταφέρεται η τιμή του Text1 στο πρώτο κελί της πρώτης κενής γραμμής ενός αρχείου excel (ας το πούμε DataTable).

Στο παρελθόν έχω κάνει κάτι ανάλογο αλλά σε VBA, μεταφέροντας τα δεδομένα από μια φόρμα που δημιούργησα στο περιβάλλον ενός αρχείου excel.

Σ’ εκείνη την περίπτωση έβρισκα την πρώτη κενή γραμμή, με τον κώδικα

Private Sub cmndDataEntry_Click()
Dim Sh As Worksheet
Dim lastRow As Long
Set Sh = ThisWorkbook.Sheets("SheetName")
lastRow = Sheets("SheetName").Range("A" & Rows.Count).End(xlUp).Row

και εν συνεχεία

With Sh
.Cells(lastRow + 1, "A").Value = Me.Text1.Value
End With
End Sub

Τώρα που η φόρμα έχει δημιουργηθεί σε VB 6.0, ο κώδικας αυτός δεν δουλεύει (προφανώς), αλλά όσες προσπάθειες κι αν έκανα να τον “προσαρμόσω” απέτυχα.

Πάσα βοήθεια δεκτή