Tag: 连接

如果下面的列有1，则连接顶行单元格

我正在查看名为列的1和0的大型数据库，如下所示： red blue green orange purple ────── ────── ────── ────── ────── 0 0 1 0 1 0 1 0 0 0 我想连接所有标题（按行），行的下方有一个“1”标题。 所以理想情况下，第一个将等于“绿色，紫色”，第二个将只读“蓝色”。 我有大量的数据，所以任何嵌套了一百个“IF”函数的东西都没有意义。 我试过了 = IF（B1：B5 = 1，CONCATENATE（A1：A5），“”） 和一些事情接近，但我没有find一个明显的方式来得到它。 我也没有时间或足够的知识来处理VBA。 感谢所有帮助，谢谢！

查找使用Excel VBA连接的位置

我有一堆Excel 2013工作簿，我必须对其进行优化，每个工作簿都有多个工作表和多个数据连接，我正在寻找快速列出的方法： 连接名称 连接string 使用连接的位置（表格名称或范围将很有用） 我可以在连接对话框中看到所有这些信息，但是无法以编程方式跟踪它们。 我一次只想做一个文件，所以我不担心在所有的文件中运行代码，只是当我开始处理相关文件时，可以放在模块中。 到目前为止，我在这个网站上发现了这个： Dim conn As WorkbookConnection For Each conn In ActiveWorkbook.Connections Debug.Print conn.Name Next conn 但我找不到位置信息。 任何指针将非常感激地收到。 干杯 凯尔

在For-Next循环中连接

我有一个Excel电子表格，可容纳37列，13,580列。 我的目标是采取相同的信息，并将其导出到记事本中。 从我做的研究。 这是不可能的，因为字符限制是240，我的电子表格最多256。 是什么让这个比想要的要难得多，就是我不能抓住“A1：AK1”并粘贴它。 我有要求，我希望每个列和string拥有。 如： 我希望我的导出文本是全部大写（在Word到Excel之间复制和粘贴到Word的过程非常麻烦，以获得结果，大量文本的数据也会导致该过程的滞后）。 每个列都有一个最大字符限制（他们不包含相同的限制，每个限制可能不同于最后一个限制） 我不想要一个分隔符，但一个必须自动插入，并根据字符限制大小不同（列必须在记事本中排队，以便它们可以正确导入）。 如果可能的话，这是额外的，但是如果可以包含Trim()函数，那么在一些值中涉及多余空间的情况下 哦，我差点忘了，记事本中alignment的一些值是左alignment的，有些是正确alignment的。 （例如下面） img：h_ttp：//i.stack.imgur.com/pCvDW.png（这里有一个空格，其中一些值落在右侧，另一个值从左侧开始） 我试过的 'from rows 1 to end 'for every column in row# 'right align=space(30 – characterlength(column[row#])) & column[row#] & 'left align=column[row#] & space(30 – characterlength(column[row#])) & txt = txt & UCase(_ rnSelect.Range("B" & lgl).Value & _ rngSelect.Range("C" & lgl) & Space(14 – […]

oledb数据库连接错误

连接 Conn_String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\UTS.mdb" conn = New OleDbConnection(Conn_String) conn.Open() 询问 sqlCmd.Connection = conn sqlCmd.CommandText = "INSERT into Customer_Master Values (@Cust_ID,@Cust_Name,@Cust_Address,@Cust_ContactNo)" sqlCmd.Parameters.AddWithValue("@Cust_ID", SqlDbType.Int).Value = Cust_id sqlCmd.Parameters.AddWithValue("@Cust_Name", SqlDbType.Text).Value = txtcname.Text sqlCmd.Parameters.AddWithValue("@Cust_Address", SqlDbType.Text).Value = txtcadd.Text sqlCmd.Parameters.AddWithValue("@Cust_ContactNo", SqlDbType.Int).Value = txtccontact.Text.ToString sqlCmd.ExecuteNonQuery() conn.Close() 问题 当我点击包含上面的代码的button，它给了我下面的错误.. UTS.exe中发生未处理的System.NullReferenceExceptionexception 附加信息：对象引用未设置为对象的实例。 错误是在这一行 – > sqlCmd.Connection = conn

匹配三列

我有两张Excel表格。 我试着findSY与SYM匹配， AC与ACC匹配， DA与DAT匹配，然后返回logging。 任何人有任何想法如何做到这一点？

如何连接excel与locking访问数据库从VBA？

我有一个密码访问数据库（“1234”），我想连接一个Excel中的Excel文件提取数据。 如果我取消保护访问文件，我可以连接自己的东西 path = ThisWorkbook.Path & "\KCBD.accdb" cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Persist Security Info=False;" Set Cn = New ADODB.Connection Cn.Open cs 它的工作原理，但是当我用密码保护访问文件，我不知道如何做连接。 我已经试过了 Ruta = ThisWorkbook.Path & "\KCBD.accdb" cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Ruta & ";Persist Security Info=False;" & "Password=1234;" Set Cn = New ADODB.Connection Cn.Open cs 但在“Cn.Open cs”行这个错误使我停下来：运行时错误'-2147217843（80040e4d）' 你可以帮我吗？ 非常感谢。

连接到另一个数据源

我有一个Excel电子表格（称为SS-A）连接到另一个Excel电子表格（称为SS-B）的数据源。 我还有另一个电子表格（称为SS-C）与SS-B相同。 如果在连接到SS-B时出现错误，我想让SS-A连接到SS-C。 所以我想要这样的东西， If SS-B Connection Error Then connect to SS-C ELSE connect to SS-B End If 我不知道如何使用Excel VBA实现这样的事情，因为连接是SS-B还是SS-C的结果必须放在SS-A中的同一张表中。

Excel重复单元格

我需要和这样做： ABC 1 house 1 house 2 car 1 car 3 boy 1 boy 4 2 house 5 2 car 2 boy 3 house 3 car 3 boy … 我想做一个函数，当我拖下来，我得到这个结果。

VBA – CONCATENATE + VLOOKUP with Scripting Dictionary

我正在尝试创build一个每月创build的报告的macros。 我已经做了近两个星期的工作。 我卡住了。下面是我的电子表格。 “数据”表是我的源数据，“new_table”是我需要的标准化数据表。 为了规范化数据，我创build了一个与user_id和question_id连接的列类别。 注意*我使用400K行，因此我试图用脚本语言vlookup实现这一点*我需要连接“new_table”中的行和列以获得与答案匹配的类别*我从“数据“并转置到”new_table“第1行以使其成为标题 Sheet（“data”）user_id问题id类别答案user1 ques1 user1ques1 yes user2 ques1 user2ques1 no user1 ques2 user1ques2 yes 表（“new_table”）user_id user1ques1 user2ques1 user1ques2 user1是不适用是user2不适用不适用不适用 我无法创build一个vba来允许我查看列类别，从“数据”回答，并将其与来自“new_table”的连接列和行进行匹配， 这是我迄今为止没有太多的东西。 我仍然坚持试图找出在“new_table”中的可能不同的列号的连接和dynamic连接的vlookup。 请帮忙 Dim x, i&, s$ With Sheets("data") x = .Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Value End With With CreateObject("Scripting.Dictionary") .CompareMode = 1 For i = 2 To UBound(x) s = x(i, […]

在使用LIKE运算符时，使用来自访问的OLEDB连接的Excel中的数据不会更新

当我在Access中使用LIKE运算符并在Excel中创buildOLEDB连接以将此数据导入Excel时，即使在使用另一个筛选器更改查询后，数据也不会更新。 就像我没有改变新的filter的查询。 我可以通过这个查询来解决这个问题，并添加一个INTO TempTable，并将这个temptable链接到excel的OLEDB连接中。 在这种情况下，更改反映，但查询直接不是。 询问 SELECT tb_fechamento_ddd.PERIODO, tb_fechamento_ddd.DDD, tb_fechamento_ddd.metrica, tb_fechamento_ddd.categoria, tb_fechamento_ddd.Qtd FROM tb_fechamento_ddd WHERE (((tb_fechamento_ddd.PERIODO)>=#3/1/2014#) AND ((tb_fechamento_ddd.DDD)="93") AND (((tb_fechamento_ddd.metrica) Not Like "*GSM*" And (tb_fechamento_ddd.metrica) Not Like "*CDMA*" And (tb_fechamento_ddd.metrica) Not Like "*LTE*")) AND ((tb_fechamento_ddd.categoria)="Pre")) OR (((tb_fechamento_ddd.PERIODO)>=#3/1/2014#) AND ((tb_fechamento_ddd.DDD)="93") AND (((tb_fechamento_ddd.metrica) Not Like "*GSM*" And (tb_fechamento_ddd.metrica) Not Like "*CDMA*" And (tb_fechamento_ddd.metrica) Not Like "*LTE*") And […]