Forum - VBA Εξαγωγή κελιού σε txt

Καλημέρα
Μια μέθοδος, είναι η παρακάτω:

Με κάποιο τρόπο (πχ ένα κουμπί, ή όπως θέλεις) τρέχεις τον κώδικα:

Κώδικας:

Κώδικας:

Sub CopyToNotepad()

    Dim iFileNumber As Integer

    Sheet1.Range("b5").Copy

    iFileNumber = FreeFile()

    Open "C:\Users\ΧΡΗΣΤΗΣ\Desktop\" & ActiveSheet.Name _

         & " " & Format(Date, "dd_mm_yyyy") & ".txt" For Output As #iFileNumber

    Close #iFileNumber

    Shell "Notepad C:\Users\ΧΡΗΣΤΗΣ\Desktop\" & ActiveSheet.Name _

          & " " & Format(Date, "dd_mm_yyyy") & ".txt", vbNormalFocus

    SendKeys "^v^s%{F4}"

    Application.CutCopyMode = False

End Sub

Δημιουργεί ένα .txt αρχείο με όνομα Φύλλο_Ημερομηνία στην Επιφάνεια εργασίας
με περιεχόμενο το περιεχόμενο του b5 κελιού.

Σημειώσεις:
1] Προσαρμόστε το path (διαδρομή)

2] Την ώρα που θα τρέξει ο κώδικας, το πληκτρολόγιο, γυρισμένο Αγγλικά.

3] Επειδή ο κώδικας απενεργοποιεί, το NUMLOCK
πρέπει να εμπλέξεις και DoEvents
*Αν κάποιος (πχ σε μικρά Laptop), δεν έχει το αριθμητικό πληκτρολόγιο και NUMLOCK
δεν χρειάζεται το DoEvents