月份: 2010 年 7 月

VB6 Excel

轉載:http://www.dotblogs.com.tw/yc421206/archive/2009/01/07/6668.aspx

VB6與Excel本是同根生，核心架構都差不多，所以要用VB6讀寫Excel是相當方便的；唯一要特別注意，若 是要由VB控制Excel讀寫大量的資料，千萬不要用迴圈的方式一格一格讀寫，如果你那樣做的話，程式跑起來會很慢很慢，我知道兩種方式

1.引用Excwl Application，並用陣列進行資料寫讀；優 點，相當靈活等於是在操作Excel、效能佳(比不上OLEDB)。缺點，需要花時間瞭解Excel的物件模型

開啟Excel→按ALT+F11→按F1→此時會出現說明，若沒有出現表示沒安裝，快去裝吧→按Microsoft Excel 物件模型。就可以查詢Excel模型

2.引用OLEDB進行資料寫入讀出；優點，此法讀 寫資料是最快，效能最佳。缺點，但不靈活，有可能你不單單只是要讀寫資料

下圖為Excel模型

1

接下來就直接進入主題，

第一步：前期綁定 Excel，更方便的操作Excel，不用背模型語法(會有版本的問題，若擔心版本問題請採用後期綁定)

2 3

第二步：引用Excel

  '#一部電腦僅執行一個Excel Application, 就算中突開啟Excel也不會影響程式執行

  '#在工作管理員中只會看見一個EXCEL.exe在執行，不會浪費電腦資源

  '#引用正在執行的Excel Application

  Set xlApp = GetObject(, "Excel.Application")

  '#若發生錯誤表示電腦沒有Excel正在執行，需重新建立一個新的應用程式

  If Err <> 0 Then

    Err.Clear

    '#執行一個新的Excel Application

    Set xlApp = CreateObject("Excel.Application")

    If Err <> 0 Then

      MsgBox "電腦沒有安裝Excel"

      End

    End If

  End If

 

第三步：讀寫Excel

  '#Excel活頁簿設定

  '===================================================

  '打開已經存在的EXCEL工件簿文件

  Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & "Sample.xlt")

  '停用警告訊息

  xlApp.DisplayAlerts = False

  '設置EXCEL對象可見

  xlApp.Visible = True

  '設定活頁簿為焦點

  xlBook.Activate

  '顯示第一個子視窗

  xlBook.Parent.Windows(1).Visible = True

  '引用第一個工作表

  Set xlSheet = xlBook.Worksheets(1)

  '設定工作表為焦點

  xlSheet.Activate

 

  '===================================================

  '#用Array寫資料至EXCEL

  Dim myRows As Long, myCols As Long

 

  myRows = UBound(DataArray, 1)

  myCols = UBound(DataArray, 2)

  '選擇儲存格範圍

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Select

  '陣列一次寫入Excel

  xlSheet.Range(cells(2, 1), cells(myCols, myRows)).Value = xlApp.Transpose(DataArray)

  '呼叫Excel巨集

  xlApp.Run ("Sample.xlt" & "!Caculater")

  '另存新檔

  xlBook.SaveAs App.Path & "\" & "TETS.XLS"

  '關閉EXCEL

  xlApp.Quit

 

Excel 的功能太多了，無法詳細敘述，請參考之前在網路上整理的EXCEL VBA語法[VBA] Excel VBA 指令。

範例下載：VB6讀 EXCEL.rar

新據點 – 星據點 ~ 心據點

板橋 星據點 KTV

真的是 沒話說 讚.

足以納入 KTV首選了

服務品質棒 餐飲料理更是沒話說

真是愛死這個地方了

可以考慮生日來這邊舉辦了說…不失是個好地方 好選擇呢

一樓大廳 滿滿的料理讓我們選

從 飲料 爆米花 沙拉霸 自助餐
到 港式料理 日式料理
到 油雞 叉燒

整個就是很棒

真的有比好樂迪好很多很多 我個人感覺 不輸錢櫃…

不過比起這個 我…唱歌唱到好想人喔T_T

我的幸福一直不理人 ><..

開啟/關閉隨身碟自動執行 登錄檔

關閉
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDriveTypeAutoRun"=dword:000000ff

開啟
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDriveTypeAutoRun"=dword:00000099

貼到記事本 命名為 XX.reg 執行即可

3D 互動 展示

3D 展示 互動

 

大侑貿易有限公司

 

(請點選 運轉 即可看到) – 這東西 跟我先前同學給我看的 初音很類似 不過當初沒看到互動 就沒有太注意下去

 

製作者是

EKI (網繹數位科技)

以上應該是我們專題能用上的部分

以下 是我其餘找到的一些 相關網站資訊

請看看 尤其交大的 做的還不錯

又開了個眼界^^

交大的網站 原來這麼的Cool害我的3D學校 整個有點小遜色呢… 可以加油看看^^

這個才叫做找資料…原來這種東西叫做

3D互動展示

關鍵字的拼法 還真的是很重要…

至於3D Flash 也是解決的方法之一 不過似乎 不多人用

其餘相關軟體 知識+ http://tw.knowledge.yahoo.com/question/question?qid=1609122908312

3D Flash 知識+ http://tw.knowledge.yahoo.com/question/question?qid=1609071502066

警惕

該留意自己的脾氣

雖然老師是很過分 是根本不想聽我在說什麼

我也是不能動怒…(雖然真的很火)

學生的本分…差點都給他忘記

雖然暑假應該是屬於我們的時間

老師有點管太多

我們還是該做要做…學生…學生…

雖然不知道這篇老師會不會看到

不過你當著努力在做的人面前拍桌子

知道你很火 但是我也很火= =

我是不至於去再你火大的時候在去頂撞

但是最起碼給個簡易的道歉…

知道你個性急 耐性也許不好 不過我們也一樣的阿= =

能做好一定做到最好 誰不願意這樣…?

也許看的到也許看不到 光靠那簡易的收入 我會餓死.

也許餓死也不怎樣吼… 就學貸款 也不過 將近50~60萬大觀 (高職20+大學5*8)

你有你的壓力 我有我的壓力

我要替你想 誰替我想呢?

要活的快樂一點…

生活 不快樂.

愛情 很失敗.

事業 一事無成.

金錢 負債累累.

家庭 父母離婚搞分裂 我連畢業後要住哪都不知道

畢業後?…還有兵役 出來後?…失業

這種未來 誰能開心的起來 你說呢?

大家的壓力很大

我的夢很遠.

我只是盡了我的心力 在這個殘酷的世界攀爬著

生活 可以簡單

愛情 可以挑戰

事業 可以打拼

金錢 可以在賺

家庭 . . . 錯不在我

人生的挑戰 還瞞多的 是吧..