以下的程式是從VB5.0的help中copy下來的,為什麼無法執行？
Private Sub Form_Click ()
Dim Cmd, I, Q, Row, Z ' 宣告變數。
Q = Chr(34) ' 定義引用符號。
' 建立一個含有 Microsoft Excel 巨集指令的字串。
Cmd = [ACTIVATE( & Q & SHEET1 & Q & )]
Cmd = Cmd & [SELECT( & Q & R1C1:R5C2 & Q & )]
Cmd = Cmd & [NEW(2,1)][ARRANGE.ALL()]
If Text1.LinkMode = vbNone Then
Z = Shell( Excel , 4) ' 啟動 Microsoft Excel。
Text1.LinkTopic = Excel!Sheet1 ' 設定連結主題。
Text1.LinkItem = R1C1 ' 設定連結項目。
Text1.LinkMode = vbLinkManual ' 設定連結模式。
End If
For I = 1 To 5
Row = I ' 定義資料列碼。
Text1.LinkItem = R & Row & C1 ' 設定連結項目。
Text1.Text = Chr(64 + I) ' 將值放置在 Text 中。
Text1.LinkPoke ' 將值放入儲存格。
Text1.LinkItem = R & Row & C2 ' 設定連結項目。
Text1.Text = Row ' 將值放置在 Text 中。
Text1.LinkPoke ' 將值放入儲存格。
Next I
Text1.LinkExecute Cmd ' 執行 Microsoft Excel 指令。
On Error Resume Next
MsgBox LinkPoke DDE demo with Microsoft Excel finished. , 64
End
End Sub