Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Office > Visual Basic .NET > Μεταφορά data από VB form σε Excel

Visual Basic .NET Ερωτήσεις / Απαντήσεις σε σχέση με τη χρήση της Visual Basic .NET.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 20-12-21, 12:06
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-02-2020
Μηνύματα: 9
Προεπιλογή Μεταφορά data από VB form σε Excel

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

Έχω μια φόρμα 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, ο κώδικας αυτός δεν δουλεύει (προφανώς), αλλά όσες προσπάθειες κι αν έκανα να τον “προσαρμόσω” απέτυχα.

Πάσα βοήθεια δεκτή
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Data Model Spirosgr Excel - Tips & Tricks 2 01-05-17 10:18
Μεταφορά απο Excel σε Access ΑΛΕΞΙΑ Access - Ερωτήσεις / Απαντήσεις 18 26-02-13 07:45
[Γενικά] Sort-Normalization Data (csv) -> Excel efialtisgr Excel - Ερωτήσεις / Απαντήσεις 3 17-08-12 12:10
[ Φόρμες ] No data amy Access - Ερωτήσεις / Απαντήσεις 8 22-03-10 22:04
[Συναρτήσεις] LastRow data DimitrisK Excel - Ερωτήσεις / Απαντήσεις 9 30-01-10 23:58


Η ώρα είναι 16:03.