糕尔瓦
这个大家会吗？求助)理处据数LECXE（YML
复制 粘贴
导入
数据导入
vba写入
酒煮梅青
VBA怎么写，有类似的代码吗
我用宏，也只能转一个固定名字的文件
wodahs-辑编-都成
@青梅煮酒 写个循环，DIR
wodahs-辑编-都成
@青梅煮酒 网上有DOS命令可以直接转
鹅企帝
为啥错误啊..我查了半天好像没什么问题啊鹅企帝
我查了半天SQL 的update的格式感觉没啥问题啊..
wodahs-辑编-都成
@青梅煮酒 数据---文本
酒煮梅青
Sub 宏2()
'
' 宏2 宏
'
' 快捷键: Ctrl+j
'
Workbooks.OpenText Filename:= _
"C:\Users\Administrator\Desktop\新建文件夹\AL1212-RevB-R1_NTNV__VGC1p00_BW0p00_VDD2p50__142449.s2p" _
, Origin:=936, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _
:=True
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Administrator\Desktop\新建文件夹\12333.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
酒煮梅青
录制的宏是这个，我只能选中一个文件名转为再保存，批量不知道怎么改
症杂难疑治砖
debug.print sql 看一下
鹅企帝
@砖治疑难杂症 
我是想取到某个ｉｄ对应的Ｎｕｍ，然后Ｎｕｍ＋１． 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 自己改代码 别人的不合用 的
行随颖如
我也不会
，求指教 渣渣小菜白
@如颖随行 你的上面的代码就可以
我这么闲啊？
仔涯-州广
礼貌一点懂不懂。。至少把人家名字带上啊。。还这个人那个人的
行随颖如
我是想把上面四个表格合并到下面一个表格哥海-桥路-汉武
帮忙帮到底，送佛送到西，想想，帮忙的朋友多难
行随颖如
好像是的，不好意思哈，谢谢您@白菜小渣渣
我把别的删除试下
仔涯-州广
多薄到多表，还是合成一个工作薄？
渣渣小菜白
有这功夫 找插件 找代码 早就找完了行随颖如
@白菜小渣渣 关键不会，有时间能不能教下呢 渣渣小菜白
@如颖随行 你连问题都没提问 说啥不会?
行随颖如
我也是要把多个EXCEL合并成一个@白菜小渣渣
渣渣小菜白
就说如何汇总 谁知道你怎么汇总。多簿到一表 还是多簿到多表 到一表的话 我之前发的代码就可以了 到多表你和上面那位一起去百度去
渣渣小菜白
总共就4个表 还需要锤子的办法 复制粘贴 就完了
大家好，我是乌鸦坐辉姬。来自广东珠海的天蝎座女一枚~
行随颖如
有30多个，我只是先用四下试下@白菜小渣渣 哥海-桥路-汉武
看把管理给气的，
话童，算预，安海
@乌鸦坐辉姬 @乌鸦坐辉姬 什么反？
渣渣小菜白
？话童，算预，安海
@乌鸦坐辉姬 能截图么
姬辉坐鸦乌
好吧那内容反过来的函数那一个
渣渣小菜白
安装个方方格子
@乌鸦坐辉姬 姬辉坐鸦乌
不是他要求的是按一个按钮全部反过来
laereh tE
请问下大佬，excel表格中有个表格内容是：IT规划，怎么其他人收到打开后就都变成了：HT规划
laereh tE
@北京-VT 我自己试过好几次了 酒煮梅青
可能别人在表格设置了宏，你一打开自动替换
这个是可以做到的
laereh tE
还是说别人和我版本不同，他做的表发过来我修改一些内容后保存会提示兼容问题，然后保存，会不会自动修改其他东西
好的，我先看看，谢谢
这个大家会吗？
为啥错误啊..我查了半天好像没什么问题啊
我是想取到某个ｉｄ对应的Ｎｕｍ，然后Ｎｕｍ＋１．
升序不就就好了
群文件，报表处理工具
，求指教
我是想把上面四个表格合并到下面一个表格
有这功夫 找插件 找代码 早就找完了
？
