Tag: ms access

Excel VBA到MS Access – 查询没有得到执行: 下面的代码给出了一个错误“没有给出一个或多个参数的值”，并停在行：rs.open qry，cn 但是，如果当前注释掉的其他qry（SELECT * FROM CallData）被执行，那么代码运行没有任何问题。我需要做些什么修改才能使代码正确运行GROUP BY查询？昏暗cn作为对象 Dim rs As Object 昏暗的qry作为string 昏暗的插入作为工作表 Dim strConnectString As String 设置Insertws = ThisWorkbook.Sheets（“temp”） Insertws.Cells.Clear strConnectString =“Provider = Microsoft.Jet.OLEDB.4.0; Data Source = \ corpfiler09 \ 26663700_N01 \ NewAstt \ ASTT.MDB; Jet OLEDB：Database Password = test;” “连接数据库; 插入一个新的表格 Set cn = CreateObject（“ADODB.Connection”） Set rs = CreateObject（“ADODB.Recordset”） 'qry =“SELECT […]

多行Excel到每行新行: 我有一个大的excel文件，它的5000行示例是在这里上传。该文件包含有关员工的数据如下： First Column: Employee Name Second: Employee ID Columns 3-7: Experiences (Multiline Values) 3: Career Name 4: Rank 5: From 6: To 7: Reason For Leaving Columns 8-13: Managerial Jobs Columns 14-17: Education Columns 18-26: Courses 现在每个员工在经验，pipe理工作，教育和课程方面都会有很多的价值观，换句话说，他在同一行的每一行都有很多的课程现在需要的是如下：Excelmacros（VBA）：要将带有标题的每个员工（行）移动到同一工作簿中的新工作表中，并将位于第2列（此代码已准备就绪）中的员工编号命名为工作表对于每个多行值（Education for Example），它应该将每行添加到一个单独的行中如果可能按datesorting每个多行值，从旧到新。这就是它，在附带的excel文件中，我已经创build了第一个员工，可以对大约5000名员工重复此操作，如果没有，您build议使用哪个数据库，Microsoft Access可以这样做？

Excel不会导入包含VBA调用的Access查询: Access和Excel 2013 试图在Excel中使用Access基础作为数据源时，似乎查询调用VBA函数，但Excel没有看到它。此查询在Excel中显示： SELECT "StaticValue" AS static_value; 这一个不： SELECT my_function() AS value_from_vba; 包含my_function的模块的代码是： Option Compare Database Function my_function() As String my_function = "ValueFromVBA" End Function 如何在Access查询中调用VBA函数并将此查询链接到Excel？

访问子运行一次然后错误'91'：对象variables未设置: 提前感谢您的帮助，我有一个Access数据库，其中包含以下代码。它被设置为打开一个定义的Excel文件，find最后一行，并添加1到下一行的行中的值，保存等…这是第一次，如果你再次运行它，我得到“错误'91'：对象variables或块variables未设置“。但是，如果我按下VBA窗口中的停止button（重置）或错误消息的结束button，然后再次运行它的工作。我尝试了很多东西，而且我很茫然。有什么build议么？ Private Sub quoteNew1_Click() Dim app As New Excel.Application app.Visible = True Dim book As Excel.Workbook Set book = app.Workbooks.Add("C:\Desktop\Test_Quotes.xlsx") nextEmptyRow 'find last row and add new value to next row colum a book.Close savechanges:=True app.Quit Set app = Nothing End Sub Sub nextEmptyRow() Dim emptyRow As Long emptyRow = […]

如何将数据从Excel导入到Access并获取外键: 我想从Excel表导入数据到预定义的Access表中。我有8个表，其中3个依赖于外键。所以，我想在导入时能够获得这些外键，这样可以正确导入信息。例如，表tblSubcomponents具有以下字段： – SubcomponentID（自动编号） – SubcomponentNumber – SubcomponentName – MaterialField 字段SubcomponentID然后是表tblBrushholderDetails上的外键。这个表的字段包括： – BHDetailsID（自动编号） – BHID（外键） – SubcomponentID（外键） – Parts / BH 我已经看了线程：如何在Excel中导入表中的Access中分配外键。然而，我正在考虑进一步沿着INSERT INTO和@@ IDENTITY的方式做一些事情…这可能吗？谢谢您的意见！ 🙂

在多个表的Access中创build多个条件search: Access中有3个表格链接到3个Excel电子表格。每张表都有相同的字段和命名约定。我想找一个简单的方法来进行联合查询。我目前的代码是： SELECT [13F].Rank, [13F].[Account Name], [13F].[Fund/Contact], [13F].Symbol, [13F].Type, [13F].Shares, [13F].Date, [13F].Source FROM 13F WHERE Symbol = "AAPL" Or Symbol = "AAP" UNION ALL SELECT Emails.Rank, Emails.[Account Name], Emails.[Fund/Contact], Emails.Symbol, Emails.Type, Emails.Shares, Emails.Date, Emails.Source FROM Emails WHERE Symbol = "AAPL" Or Symbol = "AAP" UNION ALL SELECT Trade_Blotter.Rank, Trade_Blotter.[Account Name], Trade_Blotter.[Fund/Contact], Trade_Blotter.Symbol, Trade_Blotter.Type, […]

从列表中查找string的解决scheme，以另一个stringVBA: 我想做的是，我有一个擅长的地方，我每天都要上一些足球，网球 [Daily List]： https ： //www.dropbox.com/s/45ulku7val6q6lj/sample.jpg？dl = 0 此外，我还有另外一个excel文件/表格，其中包括一些网球运动员名字，足球队名字，足球联赛名称： [RedList]： https ：//www.dropbox.com/s/h9nqx2zpq696o38/redlist.jpg 当然，我可以改变这个列表的格式只是一个testing列表。现在我真正想要做的是从第二个列表（红色列表）检查是否有任何团队的名字出现在主要的工作表名称，并突出显示行，但我面临一些问题，一些额外的参数。我试图做到这一点的一个方法是与一个SUMPRODUCT函数类似的东西： =IF(SUMPRODUCT(COUNTIF(A4,"*"&$F$2:$F$6&"*"))=0,"None Found",INDEX($F$2:$F$6,MATCH(TRUE,INDEX(ISNUMBER(SEARCH($F$2:$F$6,A4)),),0))) 哪些工作正常，但不完美的原因，例如，如果我在红名单名称Yankel泽梅尔，并在日常名单中出现名字显示为Yankel Z，或泽梅尔扬克尔，或泽梅尔Y.，function将返回False。另一个问题可能是两个名字之间的逗号，或者一些特殊字符Anif / Salzburg II，ASKÖGmünd，Blau-WeißLinz等所以我试图弄清楚我可以如何解决这个问题。一个解决scheme使用在VBA查找，但我不知道这是否会工作。另一个解决scheme，但更棘手一点就是创build一个访问数据库，并尝试存储每个名称的不同版本，例如Zemel Yankel = Yankel Zemel = Yankel Z = Zemel Y. = yankel，zemel等将它们重命名为独一无二的名字，例如Zemel Yankel。事实是，我不知道这是否会很容易做到这一点，因为我没有很多的知识做访问，我不知道如果这是一个很好的解决scheme。另一个解决scheme，但我不知道再说一遍，是使用regExp 我问得太多了吗？你将如何解决这个问题？

在TextToColumns中正确设置FieldInfo时，不应该将文本转换为MS Access的文本？: 您好，我遍历Excel工作簿中的所有列和TextToColumns'ing它们，以便MS Access将它们作为我想要的数据types; 然而，它似乎并没有为一个应该是简短的文本领域工作。有问题的领域有字段名称“testing”，然后10个空白单元格，然后在第11 – 13行的文本“testing”，然后再次空白等，即大量的空白单元格和一些简短的文本string。 With w.sheet("x") 'I go through some logic to set variables c to a column number and 'iFormatType to either 2 for text, which is what I use for the "test" field, or 1 for general .Columns(c).TextToColumns Destination:=.Cells(1, r.Column), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, […]

链接两个独立的数据代码集，没有公共标识符: 我有两套大数据。两套都是一种结构化编码体系，用于根据职业分类人群。这两组数据没有共同的标识符。除了包含唯一标识符的列之外，每个表格都具有对所述标识符的描述，但是尽pipe它们可能描述了类似的事物，但描述并不相同。如何创build一个连接两组数据的表，而不必返回并手动尝试找出如何在两个标识之间build立连接。我不确定这是否可以在Access或SQL上完成。如果有办法做到这一点，我想知道什么软件可能在那里。以下是一些示例数据： Table 1: Z Identifier DescriptionA 162000 Pharmacist 3123566 Electronic Repairman 143246 Banker 8444455 Doctor Table 2: Q Identifier DescriptionB XX134556 COPY/PRINT/SCAN EQUIP 666Q1224 DRUGS 722WWYZ Financial Svc 8456435T Medical Services 15666PP Health Services 期望的输出： Table 3: Z Identifier DescriptionA Q Identifier DescriptionB 162000 Pharmacist 666Q1224 DRUGS 3123566 […]

使用SQL从Access数据库中selectlogging对: 我正在尝试使用Excel VBA使用SQL语句从访问数据库提取logging。使用Excel VBA和SQL SELECT语句我可以使用WHERE子句提取logging。现在我正试图从我的数据库中selectlogging的一对，但我不知道如何实现这一点。访问表:(注意：表中还有其他列） Date DTE Name Sc 41668 AAA425 AdamJ 98 41669 ABC500 JohnB 85 41689 ADE450 AdamJ 56 41789 AFF350 AdamJ 74 我想根据名称select对例如 Date DTE Name Sc Date DTE Name Sc 41668 AAA425 AdamJ 98 41689 ADE450 AdamJ 56 41668 AAA425 AdamJ 98 41789 AFF350 AdamJ 74 41689 ADE450 […]