 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
(最新)ExcelVBA编程实例(150例)
下载积分：700
内容提示：(最新)ExcelVBA编程实例(150例)实例,)&..
文档格式：PDF|
浏览次数：4077|
上传日期： 02:43:00|
文档星级：
该用户还上传了这些文档
(最新)ExcelVBA编程实例(150例)
官方公共微信查看: 3501|回复: 13
怎么关闭若干个已经打开的网页
阅读权限20
在线时间 小时
桌面是有许多已经打开的网页，怎么关闭它们？
用ie.Quit '不行呢！
阅读权限10
在线时间 小时
打开 资源管理器 关闭
阅读权限100
在线时间 小时
& & & & & & & &
alt+f4吧& && && && &
阅读权限20
在线时间 小时
sscylh 发表于
谢谢！但我想用VBA实现
阅读权限70
在线时间 小时
本帖最后由 baomaboy 于
18:07 编辑
EJR 发表于
谢谢！但我想用VBA实现
1.使用Shell.Application对象遍历ie窗口标题关闭，这是比较温和的方法，只是标题会随ie版本不同而变化。
2.使用wmi或者命令行模式下的taskkill强行结束ie进程，这方法一了百了，管用，例如：
代码:Sub IeClose()
& & For Each Process In GetObject(&winmgmts:&).ExecQuery(&select * from Win32_Process where name='iexplore.exe'&)
& && &&&Process.Terminate (0)
阅读权限70
在线时间 小时
这一帖里讨论了几种方法
阅读权限20
在线时间 小时
& & & & & & & &
多谢各位老师指导 ！
阅读权限95
在线时间 小时
baomaboy 发表于
1.使用Shell.Application对象遍历ie窗口标题关闭，这是比较温和的方法，只是标题会随ie版本不同而变化。 ...
不知这代码颜色怎么弄的....
阅读权限70
在线时间 小时
jiminyanyan 发表于
不知这代码颜色怎么弄的....
(3.67 KB, 下载次数: 0)
19:18 上传
阅读权限100
在线时间 小时
多谢分享，学习了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 3255|回复: 11
如何用l VBA关闭指定路径excel文件
阅读权限10
在线时间 小时
& & & & & & & &
我想要关闭打开的文件a& & 但是文件b不受影响& &有什么方法吗？&&求大神指教
阅读权限95
在线时间 小时
请参考Sub Macro1()
& & Dim wb As Workbook
& & For Each wb In Workbooks
& && &&&If wb.Name && ThisWorkbook.Name And wb.Name && &a& Then wb.Close False' &a&改为真实的文件名
& & Next
End Sub
复制代码
阅读权限10
在线时间 小时
zhaogang1960 发表于
请问这个文件名包括路径吗
阅读权限95
在线时间 小时
qianxiao199188 发表于
请问这个文件名包括路径吗
不包括，因为没有必要
如果你想包括：
wb.FullName && &a&
阅读权限10
在线时间 小时
zhaogang1960 发表于
不包括，因为没有必要
如果你想包括：
刚刚试了一下& &还是不行呀& &没有关掉& & 而且在next那里来回了几次
阅读权限95
在线时间 小时
qianxiao199188 发表于
刚刚试了一下& &还是不行呀& &没有关掉& & 而且在next那里来回了几次
一、没有关掉说明你写的条件不正确
二、在next那里来回了几次是不可能的，For循环有自己的规则，循环完毕后会自动结束
请上传附件说明要求
阅读权限10
在线时间 小时
zhaogang1960 发表于
一、没有关掉说明你写的条件不正确
二、在next那里来回了几次是不可能的，For循环有自己的规则，循环完毕 ...
我这边公司电脑加密了& & 传不过来呀T^T& &我的整个代码是这么写的：
Sub copyexcelfile()
' copy Macro
'将某一盘芯片CSV里的数据全部复制到重新建立的excel文件中
For i = 1 To 10
& & Workbooks.Open (&C:\Users\i\Desktop\数据处理\& + q + &\& + q + &-& + CStr(i) + &.csv&)
& & Windows(q + &-& + CStr(i) + &.csv&).Activate
& & Range(&A1:BC221&).copy
& & Windows(q + &盘芯片数据.xlsx&).Activate
& & Sheets(q + &-& + CStr(i)).Select
& & ActiveSheet.Paste
& &&&Dim wb As Workbook
& & For Each wb In Workbooks
& && &&&If wb.Name && ThisWorkbook.Name And wb.Name && q + &-& + CStr(i) + &.csv& Then wb.Close False ' &a&改为真实的文件名
& & Next i
意思是一共有十个文件，我新建了一个文件并且在新建的文件里建立了十个sheet，sheet的命名为q + &-& + CStr(i)，然后我没打开是个文件中的一个便复制一个到一个sheet中，然后关闭那个被复制的文件，再打开另一个文件，继续复制，再关闭&&这样一个过程
阅读权限95
在线时间 小时
qianxiao199188 发表于
我这边公司电脑加密了& & 传不过来呀T^T& &我的整个代码是这么写的：
Sub copyexcelfile()
打开谁就关闭谁，没有必要循环：Sub copyexcelfile()
'
' copy Macro
'
Dim wb As Workbook
'将某一盘芯片CSV里的数据全部复制到重新建立的excel文件中
q = &B&
For i = 1 To 10
& & Set wb = Workbooks.Open(&C:\Users\i\Desktop\数据处理\& + q + &\& + q + &-& + CStr(i) + &.csv&)
'& & Windows(q + &-& + CStr(i) + &.csv&).Activate
& & Range(&A1:BC221&).Copy
& & Windows(q + &盘芯片数据.xlsx&).Activate
& & Sheets(q + &-& + CStr(i)).Select
& & ActiveSheet.Paste
& & wb.Close False
Next i
End Sub复制代码
阅读权限10
在线时间 小时
zhaogang1960 发表于
打开谁就关闭谁，没有必要循环：
谢谢你&&解决了我的问题&&可是每次关闭文件都因为复制了内容所以会弹出“剪切板上有大量内容是否要保留”& & 如何自动选择否呢？
阅读权限10
在线时间 小时
zhaogang1960 发表于
打开谁就关闭谁，没有必要循环：
请问wb.close 后面的false是什么意思&&是保存更改还是不保存？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师用户窗体的编辑显示和关闭_Excel与VBA那点事儿_传送门
用户窗体的编辑显示和关闭
Excel与VBA那点事儿
为窗体添加界面元素窗体就像一个舞台，舞台上得有演员才能和观众进行互动。同样，我们得为窗体这个舞台添加演员，演员可以是命令按钮、标签、文字框等等，你可以根据自己的剧本的需要安排不同的角色。　　向窗体添加控件，同在工作表中添加窗体控件一样。如果你现在的VBE编辑窗口中没有“工具箱”，请通过“视图——>工具箱”菜单命令，或单击“工具栏”上的“工具箱”按钮打开它。想知道“工具箱”里的控件是哪一种是“命令按钮”，哪一种是“标签”，哪一种是“文字框”，只需要把鼠标指针移到相应的控件上面，即会显示相应的说明。　　在工具箱里用鼠标点选相应的控件，在窗体上按下鼠标左键，拖动即可将控件添加到用户窗体。控件的大小、在窗体上的位置我们可以通过鼠标进行修改，当然，同修改其他属性一样，我们也可以在属性窗口或程序的过程中用代码进行修改。　　别闲着，动手试一试：　　（1）向窗体添加一个命令按钮　　改按钮名称为“确定”。设置显示在按钮上的文字（Caption属性）为“完成”，高25（Height属性），宽60（Width属性），距“我的窗体”左端220（Left属性），距“我的窗体”顶端80（Top属性）。（2）向窗体添加一个标签　　改标签的名称为“说明”。设置字体（Font属性）为“宋体，五号，斜体”，显示的内容（Caption属性）为“请输入内容”（慢速双击激活控件即可输入）。　　（3）向窗体添加一个文字框　　改文字框的名称为“内容”，设置字体（Font属性）为“楷体五号字”，字体颜色（ForeColor属性）为“红色”。　　回到窗体设计模式，按F5键（或者执行“运行——>运行子过程/窗体”菜单命令，或单击工具栏上的“运行子过程/窗体”命令按钮），完整的一个用户窗体就显示在桌面上了。　当然，因为没有添加任何的VBA指令，此时，窗体里的控件是不会工作的。　　　　（4）为命令按钮添加事件过程　　上面的标签，文字框，命令按等控件（ActiveX控件，同我们刚开始说的窗体控件是有区别的）都属于对象，我们可以通过编写相应的代码设置其属性，调用其方法，响应其事件来达到我们需要实现的操作。　　比如在“我的窗体”中，如果需要在点击“完成”按钮（按钮名称为“确定”）后，用一个Msgbox告诉我们，文字框（名称为“内容”）里输入的是什么内容。　　有了这个思想，我们可以模拟把程序写为：　　Sub 确定_单击()　　
Msgbox “文字框里输入的内容是：” & 内容.输入的内容　　End Sub　　有了这个模拟的程序，再来写就简单了。　　“单击”是“确定”的一个事件，即Click事件，“内容.输入的内容”是读取“内容”的Value属性。　　这样，我们的程序实际上是：Sub 确定_Click()　　
MsgBox "文字框里输入的内容是：" & 内容.Value　　End Sub回到窗体，双击按钮，切换到代码模式，在左面“对象列表”中选择对象“确定”，右面事件列表中选择事件“Click”，将Sub与End Sub之间输入代码MsgBox "文字框里输入的内容是：" & 内容.Value。回到设计模式下，按F5键，再次运行窗体，在文字框里输入内容，单击“完成”。　　也许你需要在文字框里什么也没有输时，单击按钮后，提示我们“文字框里没有输入任何内容”，并退出程序。可以的，加一个If—Then语句即可。如果需要将文字框里的内容换行显示，那么在提示内容与显示内容之间再连接一个“Chr(13)”，就个的作用相当工作表中的“Char(10)”，这里不再多说。　　我最后写的代码是：Private Sub 确定_Click()　　
If 内容.Value = "" Then　　
MsgBox "文本框里没有输入任何内容！"　　
'退出sub过程，不再执行下面的语句　　
End If　　
MsgBox "文字框里输入的内容是：" & Chr(13) & 内容.Value　　End Sub　3、显示窗体　　显示窗体就是把窗体显示给用户。　　显示窗体可以调用窗体的Show方法。　　窗体的显示模式有两种：　　（1）模式窗体：窗体显示后将停显示之后的代码直到退出或隐藏此窗体，并且必须退出或隐藏此窗体后，才可以操作非此窗体的其他界面元素。　　也就是说，当你使用模式窗体显示某窗体的时候，当程序执行完“显示窗体”这条命令后，将暂停执行程序里剩余的语句，真正这个窗体被隐藏或退出。关且当窗体显示出来以后，你不能激活该窗体以外的任何区域。　　（2）无模式窗体：窗体显示后会继续执行程序里余下的语句，而其他的窗体或界面也可以进行操作。显示窗体的语句：　　（1）模式窗体的显示代码：　　窗体名称.Show
vbModal　　也可以写成：窗体名称.Show 1　　（2）无模式窗体的显示代码：　　窗体名称.Show
vbModeless　　也可以写成：窗体名称.Show 04、关闭窗体　　当不再需要使用某个窗体后，我们需要把它关闭。当然，每一个窗体上都有“关闭”按钮。但这肯定不能满足我们在程序的设计过程中的需求。　　我们可以通过Hide来隐藏窗体。代码为：　　窗体名称.Hide　　也可以通过Unload来卸载窗体。代码为：　　Unload 窗体名称　　二者都可以关闭窗体，但是却是有区别的。Show一个Hide的窗体比Show一个Unload的窗体用的时间要短。所以，当你需要反复使用某个窗体的时候，建议你用Hide而不用Unload。
觉得不错，分享给更多人看到
Excel与VBA那点事儿 微信二维码
分享这篇文章
Excel与VBA那点事儿 最新文章
Excel与VBA那点事儿 热门文章