返回列表下一主題上一主題發帖

[原創] Excel 2003 VBA 轉 vb6

暗黑

中學生 Rank: 2

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-7-4 15:53 | 只看該作者

[原創] Excel 2003 VBA 轉 vb6

本帖最後由暗黑於 2010-7-4 15:55 編輯

雖然說，這個論譠是以 Excel 為主要的討論區(我也是因為EXCEL討論區被吸引進來的)，在舊論壇裡我學了很多Excel 的技巧，如今來到新論壇看到小誌大大開了vb與vb.net的板面
我來跟大家分享一下 Excel 2003 VBA 轉 vb6 的方式吧

其初...我因職務上的關係，需要用到的統計計算比較多，所以我會用excel vba 進行統計效率的提昇，久了之後，同部門的同事也想要用，可是呢因為excel 註點的關係，變的excel在開啟切換時，會有一些問題的產生，所以我就找了一些資料，試著把Excel 2003 VBA 轉 vb6，大家也可以試試

step 1
   在撰寫 excel 2003 vba  時，要用表單模式，下去開發，也就是說把Excel 2003當成一個程式開發器，去撰寫VBA
      (或許有人說，那直接用vb6 開發就好，何必如此麻煩；是因為我發現有很多人會寫vba，但卻不知道VB6也是差不多的，另VBA的環境也比較有善)

Step2.
   vba 撰寫好之後，在vba編輯器中將表單、模組、類別...等等，用匯出檔案的方式匯到一個資料夾放好

Step3.
開啟vb6 建立一個新專案，然後把剛剛匯出的檔案，新增至 vb6 (表單、模組、類別....)，然後設定新專案的屬性(啟動物件)為vba的啟動表單名稱

Step4.
  重要的動作
vb6>>專案>>設定引用項目>>Microsoft ActiveX Data Objects 2.8 Library(勾選、確定)

Step5
就可以按下F5 試run  了，基本上沒有其他的問題上，一般就可以直接執行了，然後轉成.exe的檔案大家就可以一起使用了

我寫的比較簡略是因為轉換真的很簡單，有問題或興趣的或不對的方，大家可以一起談論，我主要是想讓大家可以多一個想法，原來vba  與 vb6 是可以互通的，這樣大家就不會只侷限在 vba上，找資料時不仿也可以看看vb6是怎麼寫的
ps:vba  是可以寫程式系統的，因為我就是用vba 寫品質資訊系統的....共勉之...

樓主熱帖

是學程式而不是要程式，是進步的基礎

webbliu

中學生 Rank: 2

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

13^#

發表於 2011-1-30 21:33 | 只看該作者

VBA 到visual studio 2010express 再轉換錢都匯先備份!
但是轉換後當然.....是錯誤一堆啦!

只是移植到方便編寫的工具上面，程式碼當然是要逐步更新~

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

12^#

發表於 2011-1-1 00:27 | 只看該作者

閔主:不是不想讓user看到巨集,而是我想將報表另外存起來,整理出來的報表檔可以被檢視,類似預覽列印那樣,也可以被列印出來:

假設被存成:test.txt檔,那麼就可以在筆記本中預覽,可以在用記本的列印功能列印出來.
假設被存成:test.pdf檔,可以到adobe把它印出來.
:test.docx檔,可以到word去預覽也可以到word去列印出來.

就是說:報表檔可以不需要在Excel中預覽,它可以是另外的檔案,並且被其他的工具列印.或者在Excel中也可以產生自己的報表檔並且被存起來,並且列印.

之所以要這樣是因為我們的糸統中有修改報表檔的需求,
例如報表檔很大,印到一半印表機夾紙怎麼辦?我必須從夾紙那裡開始印,而不是從頭開始.

V98

TOP

linshin1999