拒绝访问 | www.1398.org | 百度云加速
请打开cookies.
此网站 (www.1398.org) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(388dcbf-ua98).
重新安装浏览器，或使用别的浏览器-------------
新增文件夹...
新增文件夹
(多个标签用逗号分隔)
在JSP中实现选择批量下载到文件夹路径的控件.doc
在JSP中实现选择下载到本地的路径的控件一般在下载的时候都是对单个文件，选择路径然后下载。如果你想要进行批量的下载并指定路径，并希望使用控件形式的话，那就需要调用windows的shell。
在JSP中实现选择下载到本地的路径的控件一般在下载的时候都是对单个文件，选择路径然后下载。如果你想要进行批量的下载并指定路径，并希望使用控件形式的话，那就需要调用windows的shell。 &&
加载中...!如果长时间没有加载，请刷新页面
下载本文档需要登录，并付出相应积分（）。
文件大小:16.00 KB
所需积分:& 2
相关资讯 　—　
相关讨论话题 　—　
浏览：8707次&& 下载：1次
上传时间： 19:14:29
同类热门文档
22463次浏览 &162次下载
0次浏览 &15次下载
4195次浏览 &17次下载
4148次浏览 &5次下载
12033次浏览 &35次下载
0次浏览 &4次下载
相关经验 -
& 2人评&12页
& 9人评&30页
& 8人评&10页
& 0人评&25页
& 7人评&6页
OPEN-OPEN, all rights reserved.查看: 46|回复: 6
怎么设计两个控件，让第二个控件结果自动连在第一个控件下面一行？
阅读权限10
在线时间 小时
本帖最后由 fhqlrwgss 于
09:54 编辑
vba新手，麻烦各位大神指教，数据附件见下楼
阅读权限10
在线时间 小时
数据附件如下
09:53 上传
点击文件名下载附件
17.33 KB, 下载次数: 2
阅读权限95
在线时间 小时
简单问题，但是，你的& &审查员& &一项，在汇总数据中根本没有，如何处理？
简单问题，结果你那标题就把人吓倒了，呵呵
阅读权限95
在线时间 小时
& & & & & & & &
Sub 筛选暂缓()
Dim arr As Variant
Dim i, s As Integer
Dim brr()
arr = Sheet2.[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 2 To UBound(arr)
If InStr(arr(i, 9), &暂缓&) & 0 Then
n = n + 1
brr(n, 1) = arr(i, 3)
brr(n, 2) = arr(i, 4)
brr(n, 3) = arr(i, 5)
brr(n, 4) = arr(i, 12)
brr(n, 5) = arr(i, 13)
brr(n, 6) = arr(i, 14)
brr(n, 7) = &暂缓&
End If
Next i
Sheet1.[a2].Resize(n, 7) = brr
End Sub
复制代码
阅读权限95
在线时间 小时
Sub 筛选旧户推广()
Dim arr As Variant
Dim i, s As Integer
Dim brr()
arr = Sheet2.[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 2 To UBound(arr)
If arr(i, 10) = &旧户推广& Then
n = n + 1
brr(n, 1) = arr(i, 3)
brr(n, 2) = arr(i, 4)
brr(n, 3) = arr(i, 5)
brr(n, 4) = arr(i, 12)
brr(n, 5) = arr(i, 13)
brr(n, 6) = arr(i, 14)
brr(n, 7) = &旧户推广&
End If
Next i
Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(2).Resize(n, 7) = brr
End Sub
复制代码
阅读权限95
在线时间 小时
(22.63 KB, 下载次数: 5)
12:46 上传
点击文件名下载附件
阅读权限10
在线时间 小时
谢谢各位，问题得到解决
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 4238|回复: 5
想在表中设置一个按钮，然后点击打开希望的文件夹，怎么写vba代码？
除了这种快速打开指定文件夹的方法，还有什么好控件可以迅速查看到指定文件夹中的文件，并直接打开？
Sub UseFileDialogOpen()& && && && &'文件夹或文件选取（打开）对话框
& & Dim lngCount As Long
& & With Application.FileDialog(msoFileDialogOpen) 'msoFileDialogFilePicker& &文件选取器对话框
& && && && && && && && && && && && && && && && && && && && && && && && && && && &'msoFileDialogFolderPicker&&文件夹选取器对话框
& && && && && && && && && && && && && && && && && && && && && && && && && && && & 'msoFileDialogOpen& & 打开对话框
& && && && && && && && && && && && && && && && && && && && && && && && && && && & 'msoFileDialogSaveAs& &&&另存为对话框
& && &&&.AllowMultiSelect = True& && && && && && && && && && && && & '可多选
& && &&&.Show& && && && && && && && && && && && && && && && && && && && && & '显示对话框
& && &&&For lngCount = 1 To .SelectedItems.Count& && &&&'循环选取的文件数量
& && && && &MsgBox .SelectedItems(lngCount)
& && &&&Next lngCount
& & End With
End Sub复制代码
wp8680 发表于
不错，非常感谢
wp8680 发表于
试了一下，只是显示了一下选中要打开的文件名。但没有真正打开，没加打开命令？ 怎么加？
文件名都取出来了，怎么打开还没有办法？
wp8680 发表于
文件名都取出来了，怎么打开还没有办法？
不好意思，没用过代码打开文件，您还是帮人帮到底吧
Powered by}