請問VB6中，如何憑空產生一個EXCEL檔？

'版本VB6
'先至引用項目將"Microsoft EXCEL 11.0引用"
'Form上面加入一個Command1即可

Private Sub Command1_Click()

Dim objXL As Excel.Application
Set objXL = CreateObject("EXCEL.Application")
objXL.Visible = True

Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet

End Sub

2010-12-24 09:25:04 補充：
以下輸入要建立幾個xls由user去訂，比如說輸入3，就存成1.xls 2.xls 3.xls　三個檔案

2010-12-24 09:25:22 補充：
Private Sub Command1_Click()
Dim i As Integer, i2 As Integer
Dim objXL As Excel.Application
Dim wbXL As Excel.Workbook

Set objXL = CreateObject("EXCEL.Application")
objXL.Visible = False

i2 = InputBox("你想存幾個")

2010-12-24 09:25:27 補充：
For i = 1 To i2

Set wbXL = objXL.Workbooks.Add

wbXL.SaveAs "e:\test\" & i & ".xls"
wbXL.Close

Next

Set wbXL = Nothing
End sub

2010-12-24 09:26:11 補充：
注意：以上並未去處理同檔名該如何處理，請小心使用。

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

您期待已久的 8891投注站 熱烈開幕囉!

8891遊樂城以優質的服務領先業界

多位美女客服24小時即時線上為您服務!

8891投注站有優於市面所有台灣運彩遊戲的 賠 ~ 率

以及免下載美女 百家樂、21點、骰寶、各國賓果、餐廳賓果、彩球遊戲

另有數百位真人視訊聊天辣妹與您進行互動聊天還有"精彩"電影喔!

心動了嗎!! 快來體驗市面上最完質最高品質的服務

現在有開放免費試玩喔! 官方 : 8891.NET

贊成 001 的做法

這樣假使使用者的電腦沒安裝 Excel 都無所謂

實際的做法可以放在資源檔裡

需要的時候再釋放出來

準備好一個空的 excel 檔, 每次要 "創建" 的時候把該檔案 copy 過去就好了.