- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 255
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-11-24
              
|
呆呆
高中生
離線
文章: 279
[分享]產生另一個程序之程式碼
« 於: 2006-07-13, 02:26:16 »
--------------------------------------------------------------------------------
或許有人對於程式中寫出另一程序有興趣
以下為範例
Sub AddCode()
Dim myModule As VBComponent
Dim myCode As String
Dim totalLines As Long
Set myModule = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
myModule.Name = "myModule"
myCode = "sub Sumation" & vbLf & _
"dim i as integer" & vbLf & _
"dim sum as integer" & vbLf & _
"for i = 1 to 10" & vbLf & _
"sum = sum + i" & vbLf & _
"next i" & vbLf & _
"msgbox sum" & vbLf & _
"end sub"
With myModule.CodeModule
totalLines = .CountOfLines + 1
.InsertLines totalLines, myCode
End With
End Sub
以上程式碼執行前請先在工具->巨集->安全性
點選受信任的發行者頁籤 中
將信 任存取 Visual Basic核取方塊打勾
才不會發生錯誤
« 最後編輯時間: 2006-07-13, 02:30:03 由 呆呆 » 向板主檢舉 218.162.214.188 (?)
oobird
凸槌的木工
論壇維護群
離線
文章: 5270
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #1 於: 2006-07-13, 21:41:42 »
--------------------------------------------------------------------------------
謝謝分享！第一句就出現"使用者自訂型態尚末定義"錯誤，請教是何原因？
向板主檢舉 125.230.50.183 (?)
--------------------------------------------------------------------------------
結廬待慧君
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #2 於: 2006-07-13, 22:15:03 »
--------------------------------------------------------------------------------
還沒定義就是沒這個元件,或是物件階層不在可視範圍內
我的是 office 2003 ,不知是否版本差異
因為我的是可執行的
如有其它的朋友有其它的版本歡迎幫忙測試一下
向板主檢舉 61.225.209.233 (?)
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #3 於: 2006-07-13, 22:29:13 »
--------------------------------------------------------------------------------
另外修正一次,看能不能執行
沒有 其它的版本只能用猜的
Sub AddCode()
Dim obj As Object
Dim myCode As String
Dim totallines As Long
Set obj = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
obj.Name = "Mymodule"
myCode = "sub Sumation" & vbLf & _
"dim i as integer" & vbLf & _
"dim sum as integer" & vbLf & _
"for i = 1 to 10" & vbLf & _
"sum = sum + i" & vbLf & _
"next i" & vbLf & _
"msgbox sum" & vbLf & _
"end sub"
With obj.CodeModule
totallines = .CountOfLines + 1
.InsertLines totallines, myCode
End With
End Sub
向板主檢舉 61.225.209.233 (?)
Hsieh
版主
在線
會員性別:
文章: 5729
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #4 於: 2006-07-13, 22:38:10 »
--------------------------------------------------------------------------------
第1個程式碼經測試如oobird版主所說的情形一樣
第2個程式碼經測試,執行至
Set obj = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
出現add方法失敗
我也是office2003,為何就不能執行?
向板主檢舉 220.137.73.142 (?)
--------------------------------------------------------------------------------
回答滿意嗎?
記得告訴我哦!!
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #5 於: 2006-07-13, 23:22:15 »
--------------------------------------------------------------------------------
以上程式碼執行前請先在工具->巨集->安全性
點選受信任的發行者頁籤 中
將信 任存取 Visual Basic核取方塊打勾
才不會發生錯誤
我在發表文章時就說了啊
要先做上面的動作 先核取 信任存取 visual basic方塊打勾
另外一點忘了說明(不好意思了)
請引用
Microsoft Visual Basic For Applicartions Extensibility 5.3
« 最後編輯時間: 2006-07-14, 00:25:18 由 呆呆 » 向板主檢舉 61.225.209.233 (?)
oobird
凸槌的木工
論壇維護群
離線
文章: 5270
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #6 於: 2006-07-14, 08:27:32 »
--------------------------------------------------------------------------------
不錯，建立了一個新的模組，寫 入了 Sub Sumation()程式。
最後一段 ： With obj.CodeModule
totallines = .CountOfLines + 1
.InsertLines totallines, myCode
是說什麼？我這裡最後一句通不過。
向板主檢舉 59.117.162.79 (?)
--------------------------------------------------------------------------------
結廬待慧君
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #7 於: 2006-07-14, 19:06:52 »
--------------------------------------------------------------------------------
最後一行是差入程式碼的意思
其中mycode就是程式碼
而第一個引數至少要是1才行
向板主檢舉 61.225.209.196 (?)
Hsieh
版主
在線
會員性別:
文章: 5729
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #8 於: 2006-07-14, 19:19:19 »
--------------------------------------------------------------------------------
太好了!多謝前輩分享
小弟想請教類似問題
請教前輩vbext_ct_StdModule這參數是加入一般模組
但我想在sheet底下加入程序不知應如何修正
例如
我動態加入一個CommandButton按鈕
要加入 CommandButton1_Click程序應如何達成
謝謝!
向板主檢舉 220.137.73.142 (?)
--------------------------------------------------------------------------------
回答滿意嗎?
記得告訴我哦!!
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #9 於: 2006-07-14, 20:35:26 »
--------------------------------------------------------------------------------
Sub AddCode()
Dim MyButton As OLEObject
Dim SumationCode As String
Dim totalLines As Long
Set MyButton = Sheet1.OLEObjects.Add("Forms.CommandButton.1")
With MyButton
.Left = 10
.Top = 10
.Object.Caption = "Sumation"
.Name = "Sumation"
End With
Set MyModule = ThisWorkbook.VBProject.VBComponents.Item("sheet1")
SumationCode = "private sub Sumation_Click" & vbLf & _
"dim i as integer" & vbLf & _
"dim sum as integer" & vbLf & _
"for i = 1 to 10" & vbLf & _
"sum = sum + i" & vbLf & _
"next i" & vbLf & _
"msgbox sum" & vbLf & _
"end sub"
With MyModule.CodeModule
totalLines = .CountOfLines + 1
.InsertLines totalLines, SumationCode
End With
End Sub
Hsieh
版主
在線
會員性別:
文章: 5729
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #10 於: 2006-07-14, 20:43:07 »
--------------------------------------------------------------------------------
多謝前輩指導
這問題困擾已久
今日終於得救了
謝謝!
向板主檢舉 220.137.73.142 (?)
--------------------------------------------------------------------------------
回答滿意嗎?
記得告訴我哦!!
oobird
凸槌的木工
論壇維護群
離線
文章: 5270
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #11 於: 2006-07-14, 21:00:45 »
--------------------------------------------------------------------------------
搞不懂我的為何在Set MyButton = Sheet1.OLEObjects.Add("Forms.CommandButton.1")
這行會"此時無法進入中斷模式"錯誤，而程式碼及按鈕郤都已建立。
向板主檢舉 59.115.74.59 (?)
--------------------------------------------------------------------------------
結廬待慧君
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #12 於: 2006-07-14, 21:10:21 »
--------------------------------------------------------------------------------
老實說,您的問題我也不懂
因為我沒有遇到您的問題
向板主檢舉 61.225.209.196 (?)
呆呆
高中生
離線
文章: 279
Re: [分享]產生另一個程序之程式碼
« 回覆文章 #13 於: 2006-07-15, 21:07:43 »
--------------------------------------------------------------------------------
我想你應該是用逐行編譯才會發生此情況
這個情況我的也是一樣,不過只要不用逐行
編譯就不成問題,都能通且執行完畢
另外一點,我想沒人喜歡在程式碼中加入 另外
一個程式的程式碼,我想比較好的方式就是另外
的程式碼存成一個文字檔這樣才不會光打 & vblf
就累死人了(程式短或許無所謂)
所以我採取了由文字檔讀入的方式比較簡單,這樣
以後只要能執行的程序,直接copy到文字檔就可用了
步驟如下
1.在適當的路徑中增加一個檔案,我是在 c:\sumation.txt
內容如下
程式碼:
private sub Sumation_click
dim i as integer
dim sum as integer
for i = 1 to 10
sum = sum + i
next i
msgbox sum
end sub
2,再來就是主程式碼了
程式碼:
Option Explicit
Const FileName As String = "C:\Sumation.txt"
Sub AddCode()
Dim MyButton As OLEObject
Dim sh As Worksheet
Dim ClassModuleCode As VBComponent
Application.DisplayAlerts = False
On Error Resume Next
For Each sh In Worksheets
sh.Delete
Next sh
Application.DisplayAlerts = True
Err.Clear
Set sh = ThisWorkbook.Worksheets.Add
Set MyButton = sh.OLEObjects.Add("Forms.CommandButton.1")
With MyButton
.Left = 10
.Top = 10
.Object.Caption = "Sumation"
.Name = "Sumation"
End With
Set ClassModuleCode = ThisWorkbook.VBProject.VBComponents(sh.CodeName)
ClassModuleCode.CodeModule.AddFromFile FileName
Set MyButton = Nothing
Set sh = Nothing
Set ClassModuleCode = Nothing
End Sub
這樣就可由檔案中加入了 |
|
發表於 2011-1-7 00:04
| 
