白小白真是小白的个人资料

vba+selenium中设置等待方式，插眼 '设置地点网页元素的等待，可参考此类代码 sleep 1000'这边设置等待时间 Do Until Not WD.FindElementById("***") Is Nothing DoEvents Loop Do Until WD.FindElementById("***t").Enabled = True DoEvents Loop 尝试过很多种等待方式，上述亲测可用，先判断网页元素是否存在，再判断元素是否可用；前面可再增加等待时间；当然初次之外，针对有些网页，可对特定图标元素乳转圈圈啊，或者鼠标的状态进行判断；然后，对网页状态判断WD.ExecuteScript("return document.readyState") = "complete"，这代码一丁点都不好用

excel数据表导入mysql 不知道大家是怎么将excel表格数据导入到mysql的，分享下我的操作方式，excel表格的列名改成英文，每个列名后加英文输入法的逗号，保存后另存为csv以逗号分隔，打开mysqlbench，导入csv文件即可，截止目前我均能正常导入，导入完成后，需将列名中的逗号删去，同时，切记设置pk键，一般都是id号，不然无法对数据进行修改

如何复制局域网连接表数据进本地大佬，如题，现已完成局域网上的mysql连接，请问如何将局域网上的mysql数据库中的表，复制出来到本地的mysql数据库内？

vba listview+mysql实现进出库物料管理各位大佬好啊，又是我没错，先前学习mysql语句，掌握初步语法后，对接listview控件实现进出库操作（该主体代码来自“窗体Listview控件实现可编辑功能的完美解决方法-Excel VBA程序开发-ExcelHome技术论坛 ” ivccav大佬），为记录每一步操作，库存管理表分两张：1.libware_stk（库存表）用于窗体显示及修改；2.libware_det（详情表）用于记录窗体修改libware_stk每一步操作；两张表格结构完全一样，但libware_det较libware_stk多了一列id_stk，listview控件显示libware_stk内容； 1.更新_出库：修改窗体listview值，通过listview控件获取点击的id值及列名，update stk同时insert det表并插入current_timestamp记录时间，update det表的id_stk值（stk表的id值）； 2.更新_入库：选中特定行，再点击新增按钮，insert stk表同时insert det表，修改数据后，update stk表及det表； 3.附加功能： 3.1双击特定行：依据stk表的id值，查询det表id_stk并显示，该步可查看具体消耗详情，同时可用于改库存； 3.2保质期预警：数据表有列exp，通过日期函数减去now，检索日期小于60d，进行保质期预警；（目前需处理，进出库操作与num数量关系，如何实现阈值预警信息提示）使用数据库确实比我先前检索excel表格数据快多了，

vba操作mysql有必要使用触发器么？如题，vba操控mysql有必要使用触发器么？若能提升运行速度，那触发器该如何使用呢？有此疑问是，感觉vba里这个触发器可以直接使用function进行替代。。。 vba里面sql insert语句是否可以和触发器语句写入到同一个字段进行执行？

MySql进销库存表格如何设计各位大佬，求点想法哈，目前mysql操作应该差不多了，查询，删除，更改、排序；目前想创建关于物料进出库数据库表格，应用背景是有m种物料，规格不等，假设物料a有n瓶，每瓶规格是500mL，每次出库不等，同时因包装规格并非绝对准确，500mL可能会多也可能会少，致使无法使用n*500去体a物料现库存数量，即必须保留零头数量以便人员后续人为补正；设想需实现，可查询a物料当前库存，以(x)瓶，(y)mL体现，同时，需引入进出库时间，以便后续进行依据时间消耗数量，提供建议补货依据；感觉我将事情搞复杂了。。。有没有啥建议的哈？

MySQL数据库odbc8.0.36没有64位各位大佬，最近在研究MySql数据库，当前数据库端已经差不多了，但是若想使用vba连接数据库，经查询需安装odbc，但目前我安装的MySql以及workbench都是8.0.36版本，但是odbc8.0.36版本没有64位的，若vba想连接mysql数据库能否使用其他版本？

个人如何搭建局域网网站各位大佬，可能与vba无关了，想搭建个人局域网网站，生成二维码活码，用于物料库存管理；具体步骤是什么，目前了解是网页创建可使用php，连接数据库mysql；还下了个studyphp，有点乱，正在学习php

求助啊，checkbox的类模块编写陷入循环大佬见好，小弟这有个死循环的事，有四个checkbox1到4，写入类模块click事件；需求实现，点击其中一个checkbox后，其余编号checkbox的value值均为false，恶心的是，在设置其他编号checkbox的value为false时，又会执行click事件，这就陷入循环了；目前我已经使用checkbox类模块的mouse up事件去规避click事件循环，确实在分布运行的时候可行，但在实际运行时，checkbox它。。。。它不显示啊，就是那个勾没有了，无语死了。。。

大佬，有段代码停不下来，怎么退出？大佬，我这有段代码，但是我在关闭窗体的时候，代码仍在运行如何停下来啊？ Private Sub UserForm_Activate() '在激活userform1时开始倒计时，计时结束后，只显示交卷按钮 st = Now() t = CDate("00:40:00") '以下代码我没看懂，抄的网络，大概意思能明白 Label_时间.Caption = t Do DoEvents If DateDiff("s", st, Now()) = 1 Then st = Now() t = DateAdd("s", -1, t) If Minute(t) = 0 And Second(t) = 0 Then Exit Do Label_时间.Caption = t End If Loop If Label_时间.Caption = "0:00:01" Then CommandButton1.Visible = False CommandButton2.Visible = False CommandButton3.Visible = True End If End Sub

请问为什么office2021有两个副本？我有两台电脑，一台安装2019版本office，另一台是office2021版本；请问为什么office2021版本里面有两个副本啊？是不是说office2021版本我可以安装在两台电脑上？

求推荐27寸显示器大佬，大佬，2k，刷新率高于60hz，目前意向是AOC和小米，两者价格在800元左右，是否合适啊！当然会纠结，纯粹屏幕素质*（主要是品控）应该是AOC的更好一点，但是小米的接口更丰富一点，好纠结啊。。。大佬有其他推荐的么？

workbooks.open如何打开含通配符路径文件大佬，又是我哦，现有个文件夹，里面有".xls"和".xlsx"版本的excel文件，使用workbooks.open打开这些文件，使用的代码是 workbooks.open (thisworkbook.path & "/" & name_wb & ".*")，文件扩展名使用通配符替代按道理应该是能打开的吧，但是实际操作发现不能打开，这是为什么啊？？

再来个小问题哈，如何屏蔽弹窗在打开工作表时，将会出现上述弹窗（外部链接是我需要的），使用以下代码无法屏蔽，应放在哪一步啊？ Private Sub Workbook_Open() Application.DisplayAlerts = False End Sub

关于使用replace修改单元格函数各位大佬早小弟现在遇到个麻烦事，我这边使用vba replace修改usedrange单元格函数，删除部分函数字符，但无法成功，这是为什么啊？

大数据excel运行函数缓慢，如何解决？各位大佬，又是我啊，我这边财务有张纯数据表格，因为数据量太大，纯数据无图片情况下有40Mb，导致的结果就是哪怕最简单的一个sum函数都得运行个2秒左右时间，这个如何解决呢？

如何排序后进行合并单元格如题啊，大佬们是如何实现A排序后，B列根据A列排序结果，合并单元格的啊？目前我的做法有点呆，首先自然是排序，这个没问题，然后遍历A列，判断i和i+1单元格是否一致，若不一致，则计入节点，再合并两节点之间的行，有没有简单一点的方式啊？

vba窗体如何添加菜单栏，并可点击生效各位大佬，是这样的，vba窗体添加菜单使用api函数实现，但是这是在32位电脑上可运行，用到64位电脑上就无法运行了，有没有64位可运行的vba加菜单的代码啊，多谢多谢！自己判断过，应该是long与longptr关系，但是多次修改均无果，只能求助各位大佬了，拜托拜托~

surface go3合上盖子后没有关闭屏幕大佬，surface go3合上键盘后，电脑屏幕为什么不会关闭啊

在线等，如何更改excel图表数据源！大佬大佬，我记得可以点击ecel表格，重选特定选项后，可更改数据源显示新的图表，应该是表单控件或者其他什么的，我看到过，但不知道如何实现，在线等，多谢！

求可以给surface go3充电的充电宝如题，想要出去溜达，但是又担心续航不够，唉，焦虑啊，有没有大佬推荐的啊？

vba Listview窗体如何取消屏幕刷新大佬，如题，Listview窗体写入数据后，需对个别列进行隐藏，使用方法是将其ColumnHeaders().Width = 0调整为0，可实现，但屏幕会不断刷新，影响心情，眼睛难受，使用Application.ScreenUpdating = False代码无效，该如何操作哈？

数组循环遍历快还是find查找快啊？大佬见好是的，又是我啊！是这样的，有60行数据一张数据表，需从该张数据表匹配相应名称，提取相应名称后对应数据，请问这种情况下，是将该60行数据存入数组循环遍历，还是直接使用find匹配来的快啊？代码运行的行数的话应该是遍历数组来的多。。。拿不定注意，望大佬指导指导！（ps：emmmm，这个可以用字典来做么？字典不是太熟。。。）

求vba联用数据库相关资料如题，各位大佬见好，最近对公司的库存进行盘点，发现现有纸质台账太过繁琐，若使用excel表格进行数据录入，编写窗体，虽使用listview+Lnkedit实现窗体编辑修改，但查询相对较慢（数据行仅100行，使用instr模糊查找需1秒），且listview刷新显示全库存数据需2秒，故求大佬给点资料，研究下数据库，多谢多谢！

如何快速修改excel文字颜色？各位大佬，vab如何快速修改文字颜色呢？遍历usedrange去修改会很慢的吧，如何就是一下子全部就修改了啊？就比如说全选，对所有字体颜色进行修改，涉及到多个sheet，咋搞啊？

江湖救急啊，大佬，老大快出现！各位大佬，想实现excel表格更改后，在关闭该表格前发生，将当前表格更改后数据赋值到其他表格，如何实现呢？当前思路，在当前表格workbook的before querry quit事件中写入代码，将当前表格数据赋值到相应其他表格内，但只能遍历当前全部数据进行赋值，无法做到修改值进行赋值，worksheet中是有个change事件，但使用该事件存在一个问题，效率过于低下，毕竟需打开其他表格，若每修改一个数据，后台打开另一个表格赋值。。。太慢了，如何在关闭当前表格时，将修改值赋值到其他表格呢啊？

create("excel.application")如何实现前期绑定？大佬，create("excel.application")用的比较多，请问前期绑定如何操作，代码如何引用，找过度娘了，没找到啊。。。

excel表格如何设置，不能复制文件大佬，如题，不是禁止修改，而是这份文件禁止被复制，如何做到呢？多谢多谢

vba ＋selenium网页上传文件停滞大佬，在使用vba＋selenium上传文件时，因受网速或因文件大小致使时间过长，虽然已使用循环判断网页状态及相关元素是否能获取进行等待，但仍然偶见代码中断情况，原因一般都是循环判断中相关元素无法获取情况，因上传文件批次较多，无法使用sleep设置等待时间（上传文件批次多，sleep设置长将严重影响效率），请问是否有其他方式判断等待？

#萌新报道请问surface go3使用65w pd充电会损伤电池么请问surface go3使用65w pd充电会损伤电池么，另外有看到过说是surface go3电池不好，用个一年就会掉很多，这事真的么？官方翻新二手surface go3，6500y 8+128G 2240入手

zan 彩色图像打印机宏使用 “zan 彩色图像打印机”是虚拟打印机，我的使用是将excel文件虚拟打印成jpg格式。打印输出后的文件名称可有序号，但每次需重新修改初始文件号，同时后续仍需重命名，较为繁琐。其宏最下选项有“正则表达式文档名”，可提取被打印文件名部分字符（可与序号联用）或者提取被打印文件内部内容字符作为输出文件名，因没有学习过正则表达式，只能通过该打印机查看帮组摸索使用。 1.保存项下，选择正则表达式文档名选项； 2.设置项下，点击文档名称，正则表达式内输入 /\产品名称(.*?)规格/[%1]/ ，解释：前提A1=”产品名称 "，A3="规格"，则该式提取的是A2单元格内容，即输出文件名等于A2单元格内容（产品名称），至此已满足我使用需求。

vba listview如何设置颜色啊？不抱期望的问下，vba listview如何设置底色啊？当然不是这么简单，依据行列号进行颜色区分这样

vba如何在excel中批量插入图片各位大佬见好烦请咨询如何使用vba在excel特定位置中插入图片呢？应用场景如下，有excel数据报告需打印出来，签字，盖章后上传，工作流程过于复杂且浪费纸张，现对其优化，希望实现批量插入电子签名及印章（未实现），将excel表格输出成jpg格式（已实现，使用 zan printer虚拟打印机打印输出）。请问各位大佬如何批量插入呢？以及电子签名格式如何修改设置？谢谢

vba无法引用使用数据？好久没上贴吧啦，各位大佬可还好哈？！有个问题困扰啊，是这样的，使用createobject（“excel.application")打开的excel文件，然后对该文件特定单元格赋值操作，但是当打开其他第二个excel，第二个单元格无法获取第一个excel特定单元格的值？这是咋回事啊？

跪求vba编程资料！各位大佬，跪求vba资料，野路子出身，没经系统培训啊，写的代码结构太差了，求个vba电子版培训资料，万谢！！！

vba union使用报错！大佬，使用set exl＝createobject（“excel.application"）依次往下打开sheet，此时union选中两个单元格赋值错误，而使用workbook s.open打开则能正常操作，这是为啥啊？还是就是说union必须要实际打开表格才能操作？

大佬！求个搜索不同表格文件关键字的宏在电脑上用搜索很方便，但是这只能搜索文件名，能否实现搜索表格文件内关键字的宏啊 1.大概流程啊，提示选择文件夹遍历文件夹遍历文件搜索关键字 2.弹出窗体提示信息是否继续查找下一个或者关闭有没有大佬有时间搞一个啊，万谢！

vba有代码可以删除vba代码么？不是俄罗斯套娃啊，我想问有没有代码删除代码的啊？额，越来越混乱了。。。

vba+selenium如何选取下拉选择框内容各位大佬有没有vba+selenium控制网页浏览器啊？针对下拉选择框能否直接赋值啊？

在线等，vba模块如何修改userform控件的值啊！大佬，在线等啊，等不到不下班啊！！！我对窗体不太熟悉，我尝试多次，均无法在模块中修改userform里控件的值，救命啊！！！

vba对excel的加密探讨！起因是回复贴吧里的一个帖子，如何使用vba对excel文件进行加密散发出的一些想法，编写vba代码对excel进行加密时，若禁用宏或者无宏办公软件打开，代码不运行即等于无效，即不能完成对excel的加密。但鬼知道临下班冒出的想法，密码本的形式加密，通过替换或者交换内容达到加密的效果，能不能实现呢？大家讨论下吧，或者，是否存在不启动宏，excel自动关闭的方法？

vba如何实现按名称顺序重命名？各位大大，情况是这样的，使用打印机将纸质文档按顺序扫描成".jpg"格式，纸质文档名称顺序有的存在excel中，请问如何使用vba将扫描的“.jpg”格式文件，按excel存放的文档顺序重命名呢？现在我的做法是，将“.jpg”格式文档全选，然后右键第一个文件重命名，将得到有规律顺序的文件名，然后使用vba循环重命名，如何省略全选右键重命名第一份文件，虽然不难，但每次都觉得好麻烦。。。对了，扫描成的文件确实是规律的（末尾含数字），但中途可能因文件数量大而扫描两次，故不能获取文件末尾数量进行更改（第二次扫描，末尾数字从1开始）

自定义函数function的多参数循环变量？以下自定义代码抄网上的，有一点不懂啊，第一个for循环的话，语句【Debug.Print "我是 i" & i】应得到多个，但实际如图仅能得到初始的0，这是为什么啊？？ Function mySum(ParamArray Nums()) For i = 0 To UBound(Nums()) Debug.Print "我是 i" & i If Nums(i).Count = 1 Then mySum = mySum + Nums(i) Else For j = 1 To Nums(i).Count mySum = mySum + Nums(i).Cells(j) Next End If Next End Function

vba操网页卡在了input输入框的“readyonly”属性！我又双三个又来了，还是使用vba操作网页啊，这次遇到个大问题，网页input输入框被设置了readyonly属性，使用vba代码无法输入了，怎么屏蔽掉readyonly啊，各位大佬，我只会点点vba啊！

论如何使用vba操控360浏览器! 各位大佬见好：众所周知，vba并不能随意控制各种浏览器，仅仅能控制ie浏览器以实现模拟手动操作，而360浏览器打开网页已经是极限。现就vba如何绕道控制360浏览器可能性进行一些探讨: 按照正常情况下，vba代码set ie = createobject（"internet exploer")只能打开ie浏览器，但在设置360浏览器为默认浏览器情况下，可以用360浏览器打开（估计是360含ie浏览器内核，被系统当成是ie亲儿子了），接着就可以使用ie.document.getelementbyid或直接用ie.document.all.tags("a")(1).click等相关代码去进行页面操作了，当然也可以使用api函数的mouse_event或者是keybd_event事件进行鼠标键盘的模拟操作。但实际使用情况并不是这样简单，一般是ie打开页面，输入用户名，输入密码，点击登录，在新的页面上进行操作，更有可能在新的页面继续点击，出现form框架，选择内容，点击保存上传等等一些列操作。实际操作发现，以360为默认浏览器情况下，使用ie创建打开网页，无法在新的页面上继续操作（可实现的话望告知！），那如果先打开浏览器并登录，然后再使用vba代码控制，很遗憾，这条路行不通！因为浏览器并不是ie，vba代码及相关微软控件压根不认！那该如何处理呢？继续第一步，使用360为默认浏览器，并以ie创建打开网页，实现页面输入账户密码登入后，接着使用api函数findwindow函数找到360浏览器跳转后的网址，再使用createobject("shell.application")，遍历窗口，判断条件是窗口locationurl是否是前面api函数找到的网址，如果是，则对该窗口进行操作，理论上可以使用微软控件啦！这一段内容我还没有尝试过，应该可行，望各位大佬之争，多谢哈，拜拜咯！