vbaµÄ¾ä×ÓÔÚvbÀï²»ÄÜÓã¬ÎªÊ²Ã´

ÕâÊÇÒ»¶Îword,vba¿ÉÒÔÖ´ÐеĴúÂë

Dim MyData As DataObject
Private Sub CommandButton1_Click()
    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox1.TextLength
    TextBox1.Copy

    MyData.GetfromClipboard
    TextBox2.Text = MyData.GetText(1)
End Sub

Private Sub UserForm_Initialize()
    Set MyData = New DataObject
    TextBox1.Text = "Move this data to the " _
        & "Clipboard, to a DataObject, then to " & "TextBox2!"
End Sub

µ«ÊǷŵ½vbÀïÈ´²»ÄÜÖ´ÐУ¬ ÌáʾûÓÐTextLengthºÍTextBox1.Copy

ΪʲôÄØ£¿

---

TextBox1.SelLength = TextBox1.TextLength
ÐÞ¸ÄΪ
TextBox1.SelLength = Len(TextBox1.Text)

TextBox1.Copy
ÐÞ¸ÄΪ
ClipBoard.Clear
ClipBoard.SetText TextBox1.SelText

---

ÒýÓÃ

TextBox1.SelLength = TextBox1.TextLength
ÐÞ¸ÄΪ
TextBox1.SelLength = Len(TextBox1.Text)

TextBox1.Copy
ÐÞ¸ÄΪ
ClipBoard.Clear
ClipBoard.SetText TextBox1.SelText

¸Ðл~

---

ÆäʵԭÒò¾ÍÊÇÄãÔÚVBAÓõÄÄǸöTextBoxÊÇForms2.0¿âÀï¿Ø¼þ,ËûµÄÄǸöTextLength ÊôÐÔÊÇVB6Àï±ê×¼¿Ø¼þTextBoxËùûÓеÄ

---

¼«´ó¶àÊýÊÇÄÜÓõģ¬Ö»Óм«¸ö±ðµÄ²»ÐÐ

---

VBAÀïÓõĿؼþÓëVB6ÀïÓõĿؼþ²»ÊÇͬһÌ׿ؼþ£¬ËüÃǵÄÊôÐÔµ±È»Ò²¾Í²»Í¬¡£Ëù²»ÄÜÖ±½ÓÔËÐÐÒª×öÊʵ