我有两张纸，叫做BW，表2称为原因。在表1中，我有列广告直到AW，必须单独添加。我在Sheep2中有表格，其中列出了AD的列名，直到AW。在第2页的第二列中，我需要AD列的总和直至AW。我尝试了下面的代码Subsum()DimBWlRowAsLong,CWlRowAsLong,iAsLongDimSformulaAsStringDimwsBWAsWorksheet,wsCWAsWorksheetSetwsBW=Sheets("BW"):SetwsCW=Sheets("Reasons")BWlRow=wsBW.Cells(wsBW.Rows.Count,"A").End(xlUp).RowCWl
我在一张名为“优化”的表格中有一系列列。其中一些列仅包含一个条目（“失败”），而另一些则包含一组整数。我需要循环浏览这些列，并删除其中失败的列。我使用的代码如下：Subdelete_fails()Dimempty_column1AsIntegerDimiTimesAsLongDimiRepeatAsIntegeriTimes=Application.WorksheetFunction.CountA(Sheets("Optimisation").Range("1:1"))empty_column1=1ForiRepeat=1ToiTimesIfSheets("Optimisation").Cel
我的代码的一部分如下：Fori=2ToLastStep1IfInStr(1,strg,Delim&ws2.Range("G"&i).Value&Delim,vbTextCompare)Then_ws2.Range("G"&i).EntireRow.DeleteAndi=i-1Debug.PrintiNexti该代码在没有和部分的情况下运行良好。我有一个错误，因为i=i-1。我怎么说条件是否正确这样做AND那？看答案如果您想执行多个操作，以防万一If满足条件，然后您需要将每个操作放在单独的线路中，然后关闭If...带着EndIf.尝试以下代码：IfInStr(1,strg,Delim&ws2.R
我正在比较W和AA列中的两个日期。情况是如果AA＆GT列；W，然后应该打印诺克。如果Aa＆lt;=W列，则应打印出确定。我的代码正常工作。但是问题不足。例如，我有一个日期01.09.2017在W列和AA中的日期，根据公式可以，但它可以打印NOK。谁能告诉我，这种情况有什么问题。我希望它在VBA中做。SubCompare1()DimiAsLongDimlngLastRowAsLongDimwsAsWorksheetSetws=Sheets("BW")WithwsFori=2To591If.Cells(i,27).Value=""Then.Cells(i,28).Value="N/A"ElseIf
我有以下可能的模式字符串我想转换成Yyyymmdd（20160602）VBA。我已经尝试了格式（“20160602”，“00000000”）。但它给出了00201662'possiblepattern2016060220166220160622016602同时，我不想遵循类型的长期代码DimtrgetYmdFromAsStringtrgetYmdFrom="2016602"IfLen(trgetYmdFrom)=6ThentrgetYmdFrom=Mid(trgetYmdFrom,1,4)&"0"&Mid(trgetYmdFrom,5,1)&"0"&Mid(trgetYmdFrom,6,1)E
我暂时尝试将我的Excel电子表格连接到本地托管的MySQL数据库。我正在使用WAMPSERVER。这是我的VBA代码:DimoConnAsADODB.ConnectionPrivateSubConnectDB()SetoConn=NewADODB.ConnectionoConn.Open"DRIVER={MySQLODBC5.1Driver};"&_"SERVER=localhost;"&_"DATABASE=test;"&_"USER=root;"&_"PASSWORD=;"&_"Option=3"EndSub我通过phpMyadmin创建了我的数据库“测试”...运行代码时出现错
我有一个超过500个形状的访问表格，每个形状代表特定的记录。每个形状都有Box1，Box2等的控件名称。使用的不是捕获此控件名称。如果我可以捕获名称，我可以从中删除“框”，并获取用于该记录的数字。如果我使用命令按钮而不是形状，我可以使用下面的代码并将其完成我想做的事情，但是也有代码会更改形状的颜色，以便在命令按钮上不起作用。PrivateSubBox2_Click()DimstrActiveCtlAsStringstrActiveCtl=Replace(Me.ActiveControl.Name,"Box","")DoCmd.GoToRecordacDataForm,"Form1",acGoT
我在我的电脑上安装了xampp，我想让另一台电脑访问vba中的mysql数据库。但是，他们在他们的计算机上没有管理员权限并且无法获取它，并且他们没有安装mysqlado驱动程序。有没有这种驱动程序的方法-我可以使用可移植驱动程序或Windows标准库吗？目前我所能做的就是创建一个php页面并将发布数据与sql查询一起使用，以xml或其他方式获取结果，这真的不是我想要的。 最佳答案 如果没有正确的ODBC驱动程序，应用程序将无法直接连接到数据库。您必须通过某种确实安装了驱动程序的中间层来完成。您的解决方案是让用户调用服务台，让他们在他
是否有特定的方法可以将SQL指令放入VBA代码中？我想将SQL查询放入VBA代码中，但如果我这样做，查询将不起作用。如果我将查询指令放在Range("A1")中并在代码中引用它，则相同的查询工作正常。有没有办法在VBA代码中构建查询以使其正常工作？当我添加WHERE子句时尤其会出现问题。SubCreateQueryTableWithParameters()DimqryTableAsQueryTableDimrngDestinationAsRangeDimstrConnectionAsStringDimstrSQLAsStringWithSheets("Sheet1").Activate
我是一个初学者，也是ExcelVBA的新手，但是我试图通过连接到Excel以及创建有助于帮助的宏来自动化FTP（WINSCP）的一些文件共享。在FTP中，我参加了会议＆gt;生成会话URL/代码＆GT;脚本（脚本文件）和以下代码在那里：openftp://myUsername:myPassword@theHostname/#Yourcommand1#Yourcommand2exit我假设OpenLine将Excel连接到FTP。我正在参考该站点的代码，以将其放入“＃命令”区域：https://www.mrexcel.com/forum/excel-questions/261043-connec
