Μακροεντολη

[tasos_ka]

Γεια σας.
Θέλω να δημιουργήσω μια Μακροεντολή στο Excel
η οποία να ανοίγει ένα notepad και κατόπιν από το φύλλο data του βιβλίου
book001 να αντιγράφει το κελλί Α1 στο notepad.
Ευχαριστώ και πάλι.
--
tasos_ka

[ΓΙΑΝΝΗΣ Χ.Β.]

Δοκίμασε το παρακάτω:

Την σειρά:
mypath = "C:\WINDOWS\system32\notepad.exe"

αντικατέστησε με αυτή που ταιριάζει στον δικό σου υπολογιστή αφού
αναζητήσεις την διαδρομή του αρχείου notepad.exe.
(Ή, κάνε ένα αντίγραφο του αρχείου notepad.exe εκεί που σε βολεύει)
Επίσης, προσάρμοσε το όνομα του αρχείου (mytext) όπως και την διαδρομή που
θα σώζεται (C:\mytext.txt)
Φυσικά μπορείς να τα αφήσεις όπως είναι και να αποφασίζεις το όνομα και το
που θα σωθεί, αφού δημιουργηθεί το αρχείο.

========================================
Sub test()

Dim mytextfile As String
Dim mypath As String

mytextfile = "C:\mytext.txt"
Open mytextfile For Output As #1
Print #1, Cells(1, 1)
Close #1

mypath = "C:\WINDOWS\system32\notepad.exe"
Shell mypath & " " & mytextfile, vbNormalFocus

End Sub
======================================