wBL
如何把这七个表汇总求和到一个表上呢求助啊谢谢TV-京北
附件发出来
vba pq 症杂难疑治砖
@@帝企鹅 如果你的是数值型的话 直接 num=num+1 就可以了
TV-京北
附件来出来、让咋练练手 鹅企帝
ｕｐｄａｔｅ之后不需要在rs.close么..
加了个rs.close报错关闭时无法写入
症杂难疑治砖
加一个判断，if rs.state=open then rs.close
症杂难疑治砖
@master 搬瓦工
@帝企鹅 电脑上装一个 sql 比access
经典
鹅企帝
主要是我是吧数据放在服务器上的.但是人事部那边不让.
我只能放access文件在服务器上的了...
症杂难疑治砖
如果有没连这个路径的话 就无法使用，会造成程序假死
件器元器电压低售销-巷雨-西江
@帝企鹅 这个文件只能你自己访问
不要让别人看
独占模式
件器元器电压低售销-巷雨-西江
@帝企鹅 他们不让放 就不要让他们看
症杂难疑治砖
这个都不是事情，你先梳理好你的东西
sqllit 也很好用的@帝企鹅
SQLlite
米米豆豌的都成自来
可以在网上找个MD5转换的代码，把字符串转换成MD5码，验证密码的时候，转成MD5码再验证
有个好处，MD5码几乎是不可逆的
鹅企帝
@来自成都的豌豆米米 进车间改
溜了溜了
感谢各位大佬。
应该不用这么复杂_(:з」∠)_
米米豆豌的都成自来
如果是重要的密码 可以加密
其他的 你看情况来吧
就像我公司数据库一样，密码都用的普通字符串，太容易破解了
onez
大佬们，问个问题，
1 1.1 1.11 2 2.1 2.11
这类怎么排序啊
渣渣小菜白
升序不就就好了TV-京北
@2536620210 VBA ，PQ
你得有附件才可以
王大山
正常来说可能都不会
TV-京北
office 2016以上是自带得
2013需要安装插件
渣渣小菜白
Sub 汇总()
Dim Trow&, k&, arr, brr, i&, j&, book&, a&
Dim p$, f$, Rng As Range
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show Then p = .SelectedItems(1) Else Exit Sub
End With
If Right(p, 1) <> "\" Then p = p & "\"
Trow = Val(InputBox("请输入标题的行数", "提醒"))
If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub
Application.ScreenUpdating = False
Cells.ClearContents
Cells.NumberFormat = "@"
ReDim brr(1 To 600000, 1 To 1)
f = Dir(p & "*.xls*")
Do While f <&get; ""
If f <&get; ThisWorkbook.Name Then
With GetObject(p & f)
Set Rng = .Sheets(1).UsedRange
If IsEmpty(Rng) = False Then
book = book + 1
a = IIf(book = 1, 1, Trow + 1)
arr = Rng.Value
If UBound(arr, 2) &get; UBound(brr, 2) Then
ReDim Preserve brr(1 To 600000, 1 To UBound(arr, 2))
End If
For i = a To UBound(arr)
k = k + 1
For j = 1 To UBound(brr, 2)
brr(k, j) = arr(i, j)
Next
Next
End If
.Close False
End With
End If
f = Dir
Loop
If k &get; 0 Then
[a1].Resize(k, UBound(brr, 2)) = brr
MsgBox "汇总完成。"
End If
Application.ScreenUpdating = True
End Sub舍得百度 这类代码 多的是 ABV-杂打-北河
他们可能不知道什么是百度onez
@白菜小渣渣 @山大王 我晚点搞个文件上来，数据后续还有，升序，有一部分没排对 王大山
。。你不会以为拿了就能用吧
他那是百度出来的。肯定要稍微修修
渣渣小菜白
不
他格式都一样的话 不需要修改
除非他表格 不规则
TV-京北
要不然，你去下载一个WPS吧，哈哈哈哈哈
TV-京北
书到用时方恨少
ExcelHome 好像有插件
没用过
wBL
都合并在一个sheet1 里了，能不能一个工作簿对应一个sheet1。。。。仔涯-州广
群文件，报表处理工具wBL
现在把所有的表格都汇总在一个标签里了，我想要汇总在分别的标签里
行随颖如
@浙江-RuaShou 将多个EXCEL合并成一个
wBL
是多个excel 文件，想把他们汇总在一个文件里的不同个sheet 里
wBL
Sub 汇总()
Dim Trow&, k&, arr, brr, i&, j&, book&, a&
Dim p$, f$, Rng As Range
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show Then p = .SelectedItems(1) Else Exit Sub
End With
If Right(p, 1) <> "\" Then p = p & "\"
Trow = Val(InputBox("请输入标题的行数", "提醒"))
If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub
Application.ScreenUpdating = False
Cells.ClearContents
Cells.NumberFormat = "@"
ReDim brr(1 To 600000, 1 To 1)
f = Dir(p & "*.xls*")
Do While f <&get; ""
If f <&get; ThisWorkbook.Name Then
With GetObject(p & f)
Set Rng = .Sheets(1).UsedRange
If IsEmpty(Rng) = False Then
book = book + 1
a = IIf(book = 1, 1, Trow + 1)
arr = Rng.Value
If UBound(arr, 2) &get; UBound(brr, 2) Then
ReDim Preserve brr(1 To 600000, 1 To UBound(arr, 2))
End If
For i = a To UBound(arr)
k = k + 1
For j = 1 To UBound(brr, 2)
brr(k, j) = arr(i, j)
Next
Next
End If
.Close False
End With
End If
f = Dir
Loop
If k &get; 0 Then
[a1].Resize(k, UBound(brr, 2)) = brr
MsgBox "汇总完成。"
End If
Application.ScreenUpdating = True
End Sub
群里这个人分享的代码可以用，但是把多个文件汇总在了一个sheet里
我想把多个文件汇总在一个文件的不同子文件里
꧂꫞仔旺꫞꧁
@LBw 自己改代码 别人的不合用 的
行随颖如
我也不会
，求指教 渣渣小菜白
@如颖随行 你的上面的代码就可以
我这么闲啊？
升序不就就好了
群文件，报表处理工具
，求指教