由于错误的SQL日期比较设置，导致SQL结果不准确
我在excel-VBA中使用ADO在excel中运行SQL。结果会显示在excel工作表上。 工作表2014,2015,2016,2017中有一个名为Date的字段 数据示例：2/1 / 2014,7 / 1 / 2014,23 / 10/2014 此字段数据类型为天/月/ year和date由= DATE（cell1，cell2，cell3）-year，month，day组合。
..
excel-vba相关内容
Excel VBA ADO UPDATE SQL表/记录
我已成功使用此SQL字符串更新了SQL表并记录了 “ UPDATE Breach_Test_Key SET [VAL_BREACH_REASON] = “某些失误原因” [ID] = 1“ 我想要实现的两件事是： 更新SQL表中的两个特定列，如何在SET中定义两个 列？ 我还需要将Excel中的表中的所有记录更新回 到SQL表中（这些都将存在于SQL表中
..
ADODB连接以使用绑定变量将数据上传到SQL
我正在尝试将一些数据从电子表格上传到SQL数据库。我正在使用此处中的代码基本，必须进行一些修改才能使其正常工作。 Sub newtest（ ） Dim conn作为ADODB.Connection Dim cmd作为新的ADODB.Command Dim cs作为字符串 Dim C1，C2，C3，C4作为字符串 Dim行号不长 Dim wbk作为工作簿 Dim str
..
最快的ADO将粘贴表从sql-server复制到Excel
我要将数据表从sql-server移到Excel中。 我不需要在记录集中移动就只需要获取数据并将其粘贴到工作表中即可。 我是否对记录集的 Open 方法使用正确的参数？ Dim recSet为ADODB.Recordset Set recSet = New ADODB.Recordset aConnection.Open recSet.Open stringSQL，
..
打开/关闭ADO连接
我正在尝试从Access导入数据到Excel。访问表中有四列：日期，时间，储罐，注释。在导入“时间”和“储罐”列时，我会根据日期对它们进行排序。另外，我分别导入它们，因此可以交换时间，储罐到储罐，时间的列顺序。在编程中，我必须为此关闭并打开ADO连接。我想通过避免关闭连接而不必再次打开它来提高程序的效率。有什么建议/解决方案吗？谢谢。 Sub ADOImportFromAccessTabl
..
如何合并来自不同表的记录？
同一工作簿中有两个工作表，它们的结构相同，字段名称相同。 例如： 表1 -官员姓名mkt -s15彼得15 -s17玛丽18 -S32 tom 42 -S32 tom 89 表2 -军官姓名mkt -s56杰森55 -s31 alex 34 -S54 gee 45 现在我正在使用ADO在excel-vba中运行sql。
..
Excel VBA阵列未从存储过程记录集中接收所有值-与在Excel外部运行存储过程的结果不同
我一直在尝试解决问题。我在MySql数据库中有一个存储过程，该数据库通过Excel VBA应用程序调用。 VBA应用程序将记录集传递到数组中，然后使用For循环将数组中的每个项目放置到工作表上。 这里是问题：两个记录集中的值在Excel中保持空白。奇怪的是，这两个位于数组的中间，而不是开头或结尾。但是，如果我通过另一个查询程序（例如HeidiSql）调用存储过程，则会收到所有值。我茫然不知为
..
在vba-excel和sql查询中需要帮助
在vba ADO和Sql查询中存在疑问... 我有2张纸，即adodc1，adodc2（在一个工作簿中） 在adodc1中具有“名称”，“部门”列，有时其“列”列 在adodc2中具有“名称”，“部门” “，” sect“列 运行Query..Vba时我想要的是.Vba需要检查adodc1是否具有Sect列..如果具有并集， 想要返回为空值。. 下面的代码取自“
..
如何使用Excel VBA和ADO将查询结果放入数据表中？
我想通过ODBC使用ADO从数据库表中提取记录并将其放在Excel工作表中。我可以做这个。最终，我希望数据包含在Excel表中。我知道如何通过选择适当的单元格并使用“插入”菜单来创建表格来手动执行此操作。如何在VBA代码中执行此操作，以将返回的查询结果放入Excel表中的目标工作表中？我尝试使用宏记录器，但是生成的代码没有帮助。 解决方案 像这样的事情？ 在导入数据后添加此代码。我假
..
如何通过VBA将一个月的csv文件（命名日期）导入Excel？
我需要将一个月的CSV文件加载到Excel中，以便通过VBA进行分析。该月的每一天都是一个单独的文件，其日期名称（YYYYMMDD）。 当前，我可以加载使用两种不同情况创建的两个文件，A和B使用 使用ActiveSheet.QueryTables.Add（Connection：= Full_F_Name_A，_ Destination：= Range（“ $ H $ 4” ））
..
Excel加载项和VBA引用的范围是什么？
当我安装外接程序（通过复选框）时，控制该外接程序保持安装时间的规则/机制是什么？它似乎已安装在应用程序级别，这意味着它适用于excel应用程序中的任何工作簿，直到您自己取消选中它为止。如果这是正确的，则意味着只要用户自己安装外接程序，它们就可以了。但是他们必须在第一次安装它（可以通过编程方式完成。）。 关于VBA引用，我想不需要每次都对它们进行“检查” -表示它在文档范围内。但是，如果这是真
..
xla加载项中的Worksheet_SelectionChange事件
有可能在xla加载项中触发 Worksheet_SelectionChange 事件。我将代码放在加载项的工作表模块中。但它没有进入此模块。我的目标是在活动窗口的中央设置注释框。我从此处获取了代码。请帮助我。 解决方案 如果要在另一个工作簿中捕获事件，则需要处理应用程序级事件。请参见此处
..
迭代未注册的加载项（.xla）
我需要帮助 弄清楚如何遍历当前打开的Excel加载项文件（。xla）尚未使用工具>在Excel中注册的。加载项菜单路径。 更具体地说，我对任何未出现在“加载项”对话框中但具有 ThisWorkbook.IsAddin = True 。 演示问题： 尝试如下遍历工作簿不会获得的工作簿。AddIn= True ： 以Excel.Workbook 作为Excel.Work
..
在数据表VBA Excel2010 ActiveX中插入新行
我想在数据表中插入一行。当我手动尝试（选择行，插入新行）时，它工作正常，但是当我尝试将其添加到ActiveX按钮（！）内的宏中时，它说“运行时错误438：对象不支持此操作”方法”。如果我在通常的宏中而不是在按钮内尝试微距，它也可以正常工作。 如何摆脱这个问题？ 设置wsd = Sheets（“ Data”） wsd。选择 和wsd .Rows（“ 5： 5“）。Select
..
ActiveX按钮重命名
首先，我知道ActiveX控件和2014年12月的MS Excel更新几乎无处不在。这似乎不同于常见症状，但可能是相关的。 症状： 打开现有的包含ActiveX控件的Excel工作表。 单击该按钮，没有任何反应（宏不会启动） 调查显示按钮名称已从“ BtnMacroLaunch”更改为“ CommandButton3” 我在其他用户计算机上打开文件并且按钮尚未重命名并
..
Excel VBA滚动条可向左或向右移动工作表
请求：用于迷你滚动条的VBA代码，该代码使用VBA或ActiveX滚动条向左或向右移动工作表？ 我创建了一个包含教练姓名的教练技能矩阵下方列出（在“ B7”至“ B86”单元格中），技能学科则在顶部列出（在E6至“ AJ6”单元格中）。在培训员姓名和技能相交的地方，我有一个下拉列表，指出“ Y”表示具有技能，“ N”表示没有技能，而“ n\a”。如果该技能不适合该培训师。我已经冻结了标题行（
..
Excel组合框在某些PC上会加倍
我有一个Excel工作簿，女巫使用activeX组合框来运行VBA代码。在大多数PC上都可以正常工作。 但是，我的一些客户发现，当他们单击组合框时，组合框似乎在翻倍或重复，一个在另一个之上。 这里是一个示例（底部组合框显示了问题）： 这里是代码-恐怕它调用了3个子程序，它们都很长： Private Sub SegmentComboBox_Change（） 调用Draw
..
有时ActiveX组合框仅显示一行，为什么？
似乎当我第一次单击组合框然后单击箭头时，将显示所有项目。 当我单击箭头而未单击时之前的组合框，仅显示一个项目，我可以单击滚动按钮查看其他项目。 为什么会这样？ 这是我用来在组合框中填充项目的宏 Private Sub ComboBox1_GotFocus（） Dim c作为范围 Dim selText作为字符串 selText = ComboBox1.selText
..
如何在VBA中以编程方式添加activeX按钮，将所有行填充到一列中
我在这里的第一篇文章，但是一段时间以来，已经成功地从该网站获得了解决方案和想法。因此，感谢您收集解决方案和想法。 基本上，我有一个电子表格应用程序，要求第一列Column A在每个单元格中都填充有“ Active X”按钮，并按给定数量循环。我在下面发布了一个这样的工作解决方案，该解决方案利用了“表单类型按钮”和一个模块。这体现了我认为最喜欢的工作按钮示例。一旦操作，按钮的列将对应于同一行上
..
VB宏中的pwdLastSet
Option Explicit Const ADS_SCOPE_SUBTREE = 2 Sub LoadUserInfo（） Dim x，objConnection，objCommand，objRecordSet，oUser，跳过，disa Dim sht As Worksheet '获取域 Dim oRoot Set oRoot = GetObject（“ LDAP：
..