Tag: 连接

如果在SQL语句中计算年龄

我在SQL方面很新，我一直在研究我的第一个查询。 现在我需要你的帮助。 我在Excel中有这个报告。 我在计算AGE的AGE列中有公式。 我一直在试图创build一个SQL查询来拿出相同的答案。 到目前为止，我已经想出了我需要的列，并将所有数据都拉到匹配Excel。 唯一的是我不知道如何以及在哪里进入这个IF语句，所以它会计算我运行查询的年龄。 Work Order Location MISC Status Actual Finish Finish Time Parent WO Work Type N Reported Date Reported Time Site Gen Age Sub Name Substation Location 1234567899 4074 COMP 11/5/14 3:08:49 PM CM 10/7/14 1:47:42 PM 29.05633102 12348574987 2946 SCHED CM 10/30/14 10:28:03 AM 188.5638542 AGE是一个公式，粘贴在下面： =IF ((IF(Status<>"Comp",Today()-Reported date, […]

如果2列或3列包含具有标准的特定文本，则需要对列进行求和

Column1 Column 2 Column 3 Column 4 Column 5 Column 6 ABC is good CNN $150 ABC NBA R1 Better life NH $40 LIT MNM R2 Nice Job ABC is good $35 MN ABC R1 Poor HI $200 ITL ABC R4 Best TI $120 SQL ABC R3 Poor life NT $40 LT NM R2 Great […]

使用Excel VBA连接特定的单元格数据

我想有一个MsgBoxpopup一个名单，有缺less的信息（电话号码或地址）的列表。 到目前为止我有： Dim missing As String Do While Cells(i, 1).Value <> "" If StrComp(Cells(i, 1), "Need address") = 0 Then missing = Cells(i – 2, 1) Loop MsgBox missing 电子表格被格式化为在列A中具有以下顺序的所有客户端信息： 名称 电话号码 地址 到目前为止，我只是一个1004运行时错误

Excel：连接空格分隔Firstinitial Middleinitial LastName @ email.address.com

我想弄清楚如何用“@ emailaddress.com”连接用户的第一个首字母，中间名和姓。 用户的全名将位于单个单元格中，仅由空格分隔。 我需要拉首字母和中间首字母以及姓氏，连接它们并添加电子邮件地址扩展名，全部放在另一个单元格中。 例： 小组1：约翰·P·史密斯 小区2（需要）：jpsmith@emailaddress.com 谢谢大家！

以只读模式打开adodb连接到excel文件

案例 ：在Windows 7 64bit的Excel 2013中使用VBA脚本中的adodb.connection作为只读文件打开一个excel文件（.xlsx）。 问题 ：excel文件似乎打开编辑，即使在adodb的连接string中将Mode参数设置为Read ，以便以只读模式打开连接： szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & SourceFile & ";" & _ "Mode=Read;" & _ "Extended Properties=""Excel 12.0;HDR=Yes;"";" testing ：打开连接后，我设置了一个断点，如下所示 Set rsCon = CreateObject("ADODB.Connection") rsCon.Open szConnect 并testing是否在“Mode = Read”中打开了源文件。 通过adodb，它仍然能够以其他用户/连接的写入/编辑模式打开我试图通过文件资源pipe理器打开它，而脚本处于中断模式，但popup一个提示说文件“ 被locking编辑 ”popup我只能以只读模式打开。 那么可能是什么错误？

将date范围与数组值进行比较

我试图创build一个函数来连接一个单元格的范围，如果他们各自的date是更大或等于（> =）到存储在工作表单元格中的特定date。 在下面的代码中， DatesRange_V是一个包含date列表的数组，而ThisDate是包含date的A1。 我希望通过ConcatRange_V循环，并在date大于ThisDay时将它们与分隔符连接起来。 Function ConcatRangeIf() As String Dim ConcatRange As Range Dim DatesRange As Range Set ConcatRange = Range("RP_Names") 'A list of names to concat Set DatesRange = Range("RP_Dates") 'A list of dates Dim Result As String Dim Seperator As String Dim FirstCell As Boolean Dim ConcatRange_V() As Variant Dim DatesRange_V() As Variant […]

如何在Excel中禁用自动刷新连接调用SQL存储过程？

每当我更改打开的工作簿的窗口，并返回到MyFile.xlsb，我定义了外部连接，MyFile.xlsb中的所有数据透视表刷新自动运行。 不用添加它是非常烦人的function。 如何禁用它？ 如何只按需要运行刷新。 重要的提示。 此问题仅在分发MyFile.xlsb的用户的计算机上发生。 在我的电脑上，它工作正常。 我已经将外部连接定义为SQL中对存储过程的引用。 连接string： Provider=SQLOLEDB.1; Integrated Security=SSPI; Persist Security Info=True; Initial Catalog=MyDataBase; Data Source=MyServerName; Use Procedure for Prepare=1; Auto Translate=True; Packet Size=4096; Workstation ID=MyWorkstationID; Use Encryption for Data=False; Tag with column collation when possible=False 这是我调用的SQL存储过程。 CREATE PROCEDURE [dbo].[MyProcedure] AS BEGIN — part one, show user what he has to see […]

即使公式select不同的单元格，连接重复第一行单元格值

我想准备一些邮政编码进入一个SQL查询的WHERE子句：WHERE [Zip_code] IN（）为了做到这一点，我把所有的值放入Excel，并希望在一开始连接邮政编码与撇号，一个撇号，一个逗号和一个空格，所以99508会变成'99508'。 所以我写了方程= Concatenate（“'”，D2，“'，”），其中D2是邮政编码。 它为顶部产生“99058”，但是当我填补了它仍然显示D2的价值 更令人困惑的是，当我点击单元格并查看公式时，他们正在跟踪正确的单元格，但仍显示顶部行的数据 我已经尝试了所有我能想到的方法来解决这个问题：将所有内容重新格式化为文本格式，将邮编格式设置为数字而不是文本，将文本放在相邻的列中（C2有一个撇号，D2有邮政编码，E2有撇号，逗号和空格）并连接，使用＆代替concatenate（“'”＆D2＆“'，”），连接前面的A和结尾的B来做一个查找和replace，但是我仍然得到相同的结果。 如果我select一个连接的单元格，单击公式栏，然后按回车显示正确的连接，但我宁愿不要为每个单元格做这件事。 我的同事build议包括邮政编码取自数据透视表输出。 有什么build议么？

Excel IFilters，串联stringxlsx / xls

我有一个应用程序使用提供的MS Office IFilter从Excel文件中提取文本内容。 我有一个与.xlsx文件和连接string的问题。 IFilter提取文本，但不提取连接的string。 xls返回连接的string（我知道它们是不同的文件格式，.xlsx本质上是一个zip文件，数据被存储为xml）。 本质上，虽然，xls返回串联的string，xlsx不。 一个例子是： A1=ABC ， H2=123 ， G3=XYZ ， D1=Concatenate(A1, H2, G3) xls IFilter将连接的string作为（“ABC123XYZ”）返回，与在文件中直观显示的相同，xlsx不返回连接的值。 如果单元格是相邻的，则xlsx可能会返回连接值，但不是，只返回单元格值。 我已经尝试解压缩xlsx和parsing.xml文件，但是，它不会返回连接的string。 我非常乐意接受这个build议。 最终我需要能够从xlsx中提取连接的string。 提取文本之前，我唯一的select是将文件转换为xls文件吗？ 有没有一个简单的方法来dynamic地做到这一点，没有真正的性能打击，实际上没有保存文件？ 我会更好的“提取”使用Microsoft.Office.Interop.Excel的文本，并以某种方式复制和粘贴到一个列表视图？ 似乎要么是一个巨大的性能打击。 任何帮助和build议感激地收到！

VBA – Excel。 通过button和提示窗口更改查询连接

我有一个查询链接到一个文本文件（扩展名为.eqp）我放在我的数据透视表旁边的button，这应该打开一个提示窗口，并将连接的位置更改为新的选定* .eqp文件。 所有其他查询设置应保持不变。 Private Sub CommandButton3_Click() Dim Ret Ret = Application.GetOpenFilename("EQP Files (*.eqp), *.eqp") If Ret <> False Then Sheets("CalculationSheet").QueryTables(1).Connection = "TEXT;" & Ret End If ActiveWorkbook.RefreshAll End Sub 我也把refreshAll放在那里，因为当我刚刚replace连接位置时，我看不到有什么变化。 任何人都可以解释我出了什么问题？ 提示出现，刷新发生，但查询只是空的。 空空如也。 提前致谢