ياردەم: vb6.0 ياكى VBA دىن پايدىلىنىپ Excel گە كود كىرگۈزۈش

Omarjan87 · ۋاقتى: 2010-12-28 22:23:02

vb6.0 ياكى VBA دىن پايدىلىنىپ باشقا بىر D:\aaa.xls دىكى aaa.xls ھۆججىتىگە CommandButton1 دىن بىرنى قۇرۇپ ، ئۇنىڭغا :

Private Sub CommandButton1_Click()
MsgBox "Yahxi"
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

دىگەنگە ئوخشاش دەيما كىرگۇزگىلى بولامدۇ ؟ مەن بۇتوغۇرلۇق كۆپ ئىزدەنگەن بولساممۇ لېكىن ئەمەلگە ئاشۇرالمىدىم ، مەن ئويلايمەنكى vb6.0 دىن پايدىلىنىپ Excel ھۆججىتىگە خەت كىرگۈزگىلى ، ئالماشتۇرغىلى ۋە ئۆچۈرگىلى بولغاندىكىن بۇ مەسىلىنىمۇ ھەل قىلغىلى بولىشى مۇمكىم دەيمەن ، تورداشلارنىڭ بۇ ھەقتە ماڭا ياردەپ بېرىشىڭلارنى سورايمەن .

Intil · ۋاقتى: 2010-12-28 23:17:23

Office VBA قىسمى VBA نى قوللىماي قالمايدۇ. يەتمەكچى بولغان مەقسىتىڭىزنى تەپسىلىيېرەك دېسىڭىز بوپتىكەن.
مەنمۇ ساقلانمىلىرىمغا قاراپ باقاي.

muhammad · ۋاقتى: 2010-12-29 10:44:14

ئىنكاس قايتۇرۇش Intil نىڭ يازمىسى

توغرا ، مەقسىتىڭىزنى ئىنىق دىسىڭىز ئاندىن ياردەم قىلغىلى بولاتتى

artuq · ۋاقتى: 2010-12-29 11:04:21

VBA دىن پايدىلىنىپ كىرگۇزۇشكە بۇلىدۇ .

Omarjan87 · ۋاقتى: 2010-12-29 19:50:49

دىمەكچىمەنكى : vb6.0 دىن پايدىلىنىپ Excel ھۆججىتىنىڭ ئىچىدىكى مەلۇم بىر كاتەككە خەت كىرگۇزگىلى بولىدىكەن ، ئوخشاشلا vb6.0 دىن پايدىلىنىپ Excel ھۆججىتىدىكى 模块 نىڭ ئىچىگە دەيما ( كود ) كىرگۈزگىلى بولامدۇ ؟ VBA دىن پايدىلانساقمۇ بولىدۇ ؟ ئەگەر مۇمكىن بولسا تورداشلارنىڭ تەلىم بېرىشىنى ئۈمۈت قىلىمەن .

muhammad · ۋاقتى: 2011-1-5 01:36:13

بۇنى سىناپ بېقىڭ، بۇ vba دىكى كود.....

Atush · ۋاقتى: 2011-1-8 18:31:19

بۇنى سىناپ بېقىڭ!
Sub Macro1()

Workbooks.Open Filename:="C:\Book4.xls"                      '打开 C:\Book4.xls
ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1" 'sheet1上创建命令按钮 CommandButton1
ActiveWorkbook.VBProject.VBComponents("Sheet1").CodeModule.AddFromString "Private Sub CommandButton1_Click()" & Chr(10) & " MsgBox(""Yahxi"")" & Chr(10) & "End Sub"
'sheet1 代码窗口中写入代码：Private Sub CommandButton1_Click() MsgBox(""Yahxi"") End Sub;    & Chr(10) &  表示为换行（Enter)
ActiveWorkbook.Close True       '保存并关闭工作簿 Book4.xls

End Sub

Book1.zip (10.82 KB, چۈشۈرۈش سانى: 543)

Omarjan87 · ۋاقتى: 2011-1-8 22:22:24

ئاتۇش ئەپەندى سىز مېنىڭ دىمەكچى بولغۇنۇمنى توغرا چۈشۈنۈپ كۆپ جاپا تارتىپسىز ، سىز بۇلتۇر مېنىڭ بىر سۇئالىمغىمۇ ناھايىتى تىز ۋە ئەتراپلىق جاۋاپ بىرىپ مېنى بەكمۇ قايىل قىلغان ئىدىڭىز، لېكىن بۇگۈنكى جاۋابىڭىزنى قايتا بىر كۆرۈپ باققان بولسىڭىز ، چۈشۈرگەن ھۆججەتمۇ ئوخشاش ئىجرا قىلغاندا 运行时错误 ‘1004’ ، 不信任到 Visual Basic Project 的程序连接 دىگەن خاتالىق ئۇچۇرى چىقىۋالدى ، بولسا ياردەمنى ئاخىرىغىچە قىلىۋەتكەن بولسىڭىز .

muhammad · ۋاقتى: 2011-1-9 00:38:58

Omarjan87 ئەپەندى، ئاتۇش ئەپەندى تەمىنلىگەن كودتا ھېچقانداق خاتالىق يوقكەن، سىز ئاستىدىكى
备注：c:\book4.xls 已存在时运行宏，则出错！ دىگەن ئىزاھاتقا ئۇبدان قاراڭ. c پەن ئاستىغا book4.xls تىن بىرنى ساقلىسىڭىز ئاندىن 运行时错误 ‘1004’ خاتالىق ئۇچىرى چىقمايدۇ.

Omarjan87 · ۋاقتى: 2011-1-9 11:25:36

كودتا كۆرسۈتۈلگىنىدەك ئالدى بىلەن c:\ گە بىر book4.xls ھۆججىتىنى قۇرۇپ بولۇپ ئاندىن ئىجرا قىلغان ئىدىم ، لېكىن يۇقارقىدەك خاتالىق ئۇچۇرى چىقىۋالدى ، بولسا بۇنى ئۆزۈڭلار بىر قېتىم سىناپ باققان بولساڭلار بوپتىكەن . مەن كۆدنى ئازراق ئۆزگەرتىپ قايتا سىناپ باققان ئىدىم خاتالىق VBProject دا باردەك بادەك قىلىدۇ ، ئۆزگەرتىلگەن كۆد :

Sub Macro1()
Workbooks.Open Filename:="D:\Arhip\Book4.xls"
ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1"
With ActiveWorkbook.VBProject
.VBComponents("Sheet1").CodeModule.InsertLines 1, "Private Sub CommandButton1_Click()"
.VBComponents("Sheet1").CodeModule.InsertLines 2, " MsgBox(""Yahxi"")"
.VBComponents("Sheet1").CodeModule.InsertLines 3, "End Sub"
End With
ActiveWorkbook.Close True
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

Omarjan87 · ۋاقتى: 2011-1-9 12:32:25

خاتالىقنىڭ ئۇچۇرىنىڭ سەۋەبىنى ئۆزۈم ھەل قىلىۋالدىم :
Excel－》工具－》宏－》安全性－》可靠发行商，选中“信任对于Visiual Basic 项目的访问 نى تاللاپ بولۇپ ئاندىن ئىجرا قىلسا نورمال ئىجرا بولىدىكەن ، ئاتۇش ئەپەندى ۋە مۇھەممەد ئەپەندىلەرگە كۆپ رەخمەت ....

adminbiz · ۋاقتى: 2011-1-9 12:44:43

بۇ تېما ھەقىقەتەتن ئىلمىي مۇنازىرەلىك تېما بوپتۇ. بۇ تېمىنى يوللىغۇچى ۋە ئىزدەنگۈچى تورداشلارغا تەشەككۈر !

Atush · ۋاقتى: 2011-1-9 12:52:19

بىر مەزگىل بەك قاتلاڭ بولۇپ كەتتىم، ۋاقتىدا ياردەم قىلالمىدىم.
سىز ئاۋال ماكرو بىخەتەرلىك تەڭشىكىگە قاراڭ!
未命名33.JPG

بەتنى يېڭىلىماي تۇرۇپ يوللاۋىرىپتىمەن، ئۆزىڭىز تېپىپ بولۇپسىز ئەمەسمۇ. بۇ يازمىنى ئاخىرىدا Atush تەھرىرلىگەن. ۋاقتى 2011-1-9 12:54

muhammad · ۋاقتى: 2011-1-9 14:48:11

ھەراست ئاتۇش ئەپەندى، مۇشۇ ماكرونىڭ بىخەتەرلىكىنى بىۋاستە كود ئارقىلىق بىخەتەرلىكىنى يۇقىرى دەرىجىدىن ئوتتۇرا دەرىجىگە تەڭشەشنى قانداق ئېلىپ بارغىلى بولىدۇ؟ مەسىلەن ، سىز ئىشلىگەن بۇ vba پىرۇگىراممىسىنى ئۈمەرجان ئەپەندى نۇرمال ئىجرا قىلالمىدى، چۈنكى ئۇنىڭ ماكرۇ خاسلىقى يۇقىرى دەرىجىدە(نۇرمال ھالەتتە)، ئەگەر كود ئىچىگە بىخەتەرلىكىنى ئوتتۇرا ياكى تۆۋەن دەرىجىگە تەڭشەش كودى قۇشۇۋېتىلسە، ئەلۋەتتە بۇ ھۆججەتنى ھەرقانداق كومپيۇتېردا ئىجرا قىلسا، نۇرماللىقىغا تەسىر يەتمەيتتى...

Atush · ۋاقتى: 2011-1-11 00:42:59

http://intil.biz/home/thread-2478-1-1.html

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

ياردەم: vb6.0 ياكى VBA دىن پايدىلىنىپ Excel گە كود كىرگۈزۈش