想要把數據貼到Excel
可是他卻不理我
請前輩幫幫我～Please～
錯誤訊息:此DDE起始動作沒有得到其他應用程式的回應
Private Sub sure_Click()
xlspath = App.Path + "\" + outfilename + ".xls"
Source = App.Path + "\" + "source.xls"
FileCopy Source, xlspath
x = Shell("C:\Program Files\Microsoft Office\Office\EXCEL " + xlspath, 2)
For i = 0 To 5
textbox(i).LinkMode = none
textbox(i).LinkTopic = "excel!sheet1"
textbox(i).LinkItem = "r1c" + LTrim$(Str(i + 1))
textbox(i).LinkMode = manual
Next i