請問一下如何將ＶＢ的資料丟到ＥＸＣＥＬ中

[趴趴]

《 在 caat...@bbs.mgt.ncu.edu.tw (不再愛上任何人) 的大作中提到: 》
: 請各位大哥幫忙一下 作業趕不出來了-
: 我想要將VB的資料丟到EXCEL中可是我不知道怎麼做
: 　　　　手邊又沒有ＶＢ的書　ＶＢ的說明又看不懂-
: 可不可以教我一下　謝謝！！　謝謝！！
: 　　　　我是ＶＢ5.0
1.加入microsoft excel 9.0 object library
2.
'給你參考使用
Dim i As String
Dim xlsApp As Excel.Application
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = False
xlsApp.Workbooks.Open ("c:\temp\Sample.xls")
i = Val(xlsApp.Range("B1")) '請參考vba 用excelㄉ巨集錄一錄用vb看source就知
..
xlsApp.Quit
Set xlsApp = Nothing
--
[0;31m ▓ [0;34m ● [1;34m ● [0;31m ▓ [0;35m ● [1;35m● [0;33m ▓▓▓▓▓▓
[0;31m ▓ [0;31m ◣ [0;31m ▓ [0;33m ▓ ▓ ▓
[0;31m ▓▓▓▓▓▓ [1;31m▓ [0;31m ◥◣ [1;31m ◢◤ [0;31m ▓▓▓▓▓ [1;31m▓ [0;33m ▓ ▓ [1;33m ▓
[0;31m ▓ [1;31m ◢◤ [0;31m ▓ [0;31m ▓▓▓ [1;31m▓ [0;33m ▓ ▓ [1;33m ▓
[0;31m ▓ ▓ [1;31m ▓ ◢◤ [0;31m ▓ [0;33m ▓ [1;33m ▓ ▓
[0;31m ▓◤ [1;31m ▓ [1;31m ◥▓ ◢◤ [0;31m ◥▓ [1;31m▓▓▓▓ [5;36m 大 [32m魔 [35m王 [0;33m ▓▓ [1;33m▓▓▓▓

[m [1;35m※ 來源:‧蛋捲廣場 bbs.tku.edu.tw‧[FROM: 210.69.89.16] [m