慢速VBA循环-从记录集粘贴
是指在使用VBA编程语言进行数据处理时，通过循环遍历记录集（Recordset）中的数据，并将其粘贴到指定位置的操作。
VBA（Visual Basic for Applications）是一种基于Visual Basic语言的宏编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和Access等。通过VBA，开发人员可以自动化执行各种操作，包括数据处理、报表生成、自定义功能等。
在慢速VBA循环-从记录集粘贴的场景中，一般会涉及以下步骤：
- 连接数据库：首先需要使用VBA代码建立与数据库的连接，可以使用ADO（ActiveX Data Objects）或DAO（Data Access Objects）等技术来实现。连接数据库时，需要提供数据库的连接字符串、用户名和密码等信息。
- 执行查询：通过执行SQL查询语句，从数据库中获取需要处理的数据。查询结果将以记录集的形式返回，记录集是一种数据结构，类似于表格，包含了多行多列的数据。
- 循环遍历记录集：使用循环结构（如For循环或While循环）逐行读取记录集中的数据。可以通过记录集的MoveNext方法将游标移动到下一行，并使用记录集的Fields属性获取每个字段的值。
- 粘贴数据：将读取到的数据粘贴到指定的位置。可以使用VBA中的Range对象来表示Excel中的单元格或区域，并使用Range对象的Value属性将数据赋值给相应的单元格。
在实际应用中，慢速VBA循环-从记录集粘贴可以用于各种数据处理场景，例如将数据库中的数据导入到Excel表格中、生成报表、进行数据分析等。
对于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体品牌商，建议在使用VBA进行数据处理时，可以考虑使用腾讯云提供的云计算服务，如云数据库 TencentDB、云服务器 CVM、云函数 SCF 等。这些服务可以提供稳定可靠的云计算基础设施，帮助开发人员快速构建和部署应用程序。
请注意，以上仅为示例，具体的产品选择应根据实际需求和情况进行评估和决策。
相关·内容
如何显示SQL请求的结果？
在Access中，SQL查询显示：
我的VBA代码只显示扇区名称。如何同时显示扇区和计数结果？
我的VBA代码：
sQuery = "SELECT Sector, COUNT(*) FROM Test WHERE Search = 'FR' AND LaDate = #20/10/2021# GROUP BY Sector"
Set dbRecSet = New ADODB.Recordset
dbRecSet.Open Source:=sQuery, ActiveConnection:=dbConn
If (dbRecSet
浏览 3提问于2021-10-20得票数 0
回答已采纳
1回答
我在VBA工作是为了使报告自动化。当我运行宏时，我有数字，但是数字垂直地插入到工作表中，而不是像我所需要的那样水平地横过。下面是我到目前为止拥有的代码(包括将其转换为无效的代码)。我能做些什么来修复这个问题呢？
FromDatex = Range("W39").Value
ToDatex = Range("X39").Value
Range("S7:AD9").ClearContents
SQLStr = "SELECT SUM(VAL) FROM OPSAHISTM " & _
&#
浏览 3提问于2016-05-17得票数 0
我在2010中使用VBA。
我目前正在尝试从带有两个字段的记录集中进行筛选。但是我累了，它不会像我想要的那样过滤。
但是，如果我仅基于一个字段进行筛选，则记录集能够相应地进行筛选。
这就是我现在所拥有的。
Private Function getCheckedRecordsFromDB(ByVal cmNum As String) As Boolean
Dim rs As Recordset
Dim rsFiltered As Recordset
Dim iSeral As Integer
'Gets different fields from dif
浏览 0提问于2018-03-28得票数 0
回答已采纳
2回答
我正在寻找一种方法，可以将数据表从Access导入到Excel变量中，然后通过此变量运行查询，以加快这一过程。我正在尝试从C# .NET迁移，在那里我将一个数据表从access数据库读取到内存中，然后使用LINQ查询此数据集。这比我目前在VBA中编写代码的速度要快得多，在VBA中，我必须对实际的数据库进行大量调用，这很慢。我已经看到了提到的QueryTable，但似乎这需要将数据粘贴到excel工作表中。我希望将所有内容都保存在内存中，并尽可能减少Excel工作表和VBA代码之间的交互。
我希望我们不需要使用Excel+VBA来做这件事，但是我们现在有点被困住了。谢谢你的帮助！
浏览 1提问于2010-04-30得票数 2
回答已采纳
关于ADODB记录集的快速问题。我想从记录集中提取一个查询结果，并将其设置为一个字符串变量：
query = "SELECT Value1 FROM Table"
RS = New ADODB.Recordset
RS.Open(query,Conn)
查询总是会返回3个值。我希望take将这三个值赋给一个变量。RS.GetString返回以制表符分隔的查询结果，但是我希望能够遍历这个集合，并将每一行结果赋给它自己的变量。有什么想法吗？提前感谢！
浏览 0提问于2015-10-16得票数 1
回答已采纳
我需要在excel vba中从一个access表字段创建一个数组。该表有4个字段，但我需要创建一个仅包含字段2中的数据的数组。我连接access，然后使用以下代码填充该数组： Array1 = Array(Rs.Fields(1).Value) 但是Array1只从字段2加载了1项，我不知道如何才能使循环加载所有数据。
浏览 35提问于2020-06-20得票数 1
回答已采纳
2回答
我必须在excel中编写一些VBA代码来配合我的VB.NET程序，我正在努力学习VBA的基础知识，因为我以前没有使用过它。我发现了一些代码，它允许我从临时表中获取值，并将它们直接放入excel电子表格中适当的字段中。我正在填充一个采购订单文档，因此传递的信息是诸如小计、增值税、发货、总计等内容。
这是我用来填充单个单元格的代码：
'get quantity
strQry = "SELECT quantity from [temp];"
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Ope
浏览 5提问于2014-01-06得票数 0
我正在尝试高效地将任意范围移动到MSAccess表中，令人惊讶的是，似乎并没有太多的工作要做。有问题的范围可能是连续的，也可能不是连续的，但我不能在移动数据之前明智地保存打开的工作簿，因此Create name --> save --> Select * Into tblTABLE from [Microsoft Excel;Data Source=<Path to file>].[<NamedRange>]不是一个直接选项。
相反，我将范围复制到一个新的工作簿中，然后在那里执行该操作。这效率非常低，但可能比在删除之前在temp目录中保存整个工作簿的新副本更
浏览 3提问于2013-12-05得票数 0
假设我有一个简单的VBA来刷新一个查询表：
With aListObject.QueryTable
.refresh BackgroundQuery:=False
End With
如果上面的表在刷新时从SQL引擎返回一个错误，那么如何获得实际的SQL错误详细信息？
例如，我需要这种类型的消息，它在中返回：
Msg 8134，16级，状态1，第1行
除以所遇到的零错误。
我可以将错误处理添加到VBA以返回VBA错误：
On Error Resume Next
With aListObject.QueryTable
.refresh BackgroundQuery:=
浏览 9提问于2020-02-21得票数 1
回答已采纳
2回答
我对动态数组有一些奇怪的行为。似乎VBA拒绝为变量赋值。以下是代码：
Private Sub Report_Load()
Dim db As Database
Dim reportArray() As Variant
Dim structre As Recordset
Dim columns, rows, i As Integer
'Open recordset
Set db = CurrentDb
Set structure = db.OpenRecordset("SELECT * FROM [tblstructure
浏览 4提问于2016-09-04得票数 2
回答已采纳
我正在编写一些Access 2003 VBA代码，该代码从临时表中提取数据并将其显示在窗体记录集中，然后我需要删除临时表，但在断开与记录集的连接之前，我无法执行此操作，这将删除数据。
我可以调用什么来代替Recordset.Close或RecordSource = "“，它们会将数据保留在表单上，但会关闭与表的连接，以便我可以删除它。
谢谢！
浏览 1提问于2009-10-22得票数 1
1回答
我在一个原型应用程序中使用Access 2007，我有两个数据库testUi.accdb (其中
包含我所有的表单)和testDb.mdb (包含我的数据库)。现在，我想在我的子表单中使用数据表。有人能帮我解决这些问题吗？
我可以手动构建没有表的数据表吗？
如何使用VBA代码使用DAO或ADO将数据绑定到此数据表
是否可以使用VBA代码循环数据表？获取或设置每一行的值？
如果上面不可能，那么在Access中使用数据表(如网格)的替代方式是什么？
浏览 2提问于2012-10-18得票数 1
回答已采纳
我正在MS access的VBA中编辑一些东西。有没有人能告诉我下面两种说法的区别。
1. Set rs1 = CurrentDb.OpenRecordset("tblOPCEPLTB")
2. Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblOPCEPLTB")
我猜是第二行从表tblOPCEPLTB中获取所有行，并存储在rs变量中。那么做什么呢？在执行完第一个之后，它应该有什么？
请帮帮忙
浏览 487提问于2018-10-12得票数 2
3回答
我试图在Access VBA中使用批处理更新。我的代码在每次操作后更新时运行良好，但当我尝试对多个行操作时，代码会失败。我得到的例外是
“运行时错误'-2147217887 (80040e21)'：多步OLE DB操作生成错误。如果可用，请检查每个OLE DB状态值。没有完成任何工作。”
我的代码是
rs.Open "dbrammDump", CurrentProject.Connection, _
adOpenKeyset, adLockBatchOptimistic
rowsDel = 0
Do Until rs.Record
浏览 7提问于2009-06-25得票数 1
回答已采纳
每个月，我运行一个VBA程序，用新的数据(从Excel文件中获取)更新上个月的数据表(在Power幻灯片上)。我使用以下VBA函数粘贴数据。
Function PastePcts(ByVal tbl As PowerPoint.Table,
ByVal oldRow As Long, ByVal oldCol As Long,
ByVal newRow As Integer, ByVal newCol As Integer)
'
' This function basically pastes data from Cell (oldRow, oldCol) of
浏览 0提问于2016-08-22得票数 1
回答已采纳
我试图在VBA访问中运行保存的查询。该查询连接到另一个数据库，如下所示：
SELECT * FROM TABLE IN 'C:\USERS\Another_database.accdb'
该查询在第一次访问数据库中保存为"My_query“。VBA代码如下所示：
Function My_function()
Set rst = CurrentDb.OpenRecordset("My_query", dbOpenDynaset)
End Function
当我试图运行它时，我得到了一个错误：
运行时错误“3219”
知道为什么吗？它适用于
浏览 0提问于2018-11-16得票数 0
回答已采纳
1回答
有个愚蠢的问题，接缝很简单，但我就是不明白。
为excel工作表提供了一个非常简单的vba代码：
Private Sub GET_MDW_DATA()
On Error GoTo ErrorHandler
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cmdSQLData As ADODB.Command
Set cmdSQLData = New ADOD
浏览 1提问于2013-10-24得票数 0
回答已采纳
5回答
我在使用VBA执行SQL查询并将结果复制到Excel工作表时遇到问题。
当sub执行时，它只复制256的倍数的行(因此，256、512、768等是唯一填充到Excel中的行)。从数据库中复制任何其他字段都没有问题。而且，当我在MySQL中运行相同的查询时，它工作得很好。作为SQL和VBA的新手，我看不出为什么这个特定的字段会造成麻烦。我能想到的唯一一件事是，它的内容是一个始终以下划线开头的字符串(我之所以提到这一点，是因为这是它与其他一些字段的唯一区别)。
有没有人知道为什么会发生这种情况？
干杯,
利亚姆
编辑:这是一个有问题的代码片段。老实说，我不确定看到代码是否会有所不同，因为它在其他情
浏览 1提问于2012-04-19得票数 5
回答已采纳
1回答
我可以像这样在SQL查询中使用标量VBA函数
SELECT vba_concat(name, surname) FROM persons
此外，我还可以在SQL查询中使用非标量SQL函数，如下所示
CREATE FUNCTION names() RETURNS TABLE(name VARCHAR(20)) AS '
SELECT name FROM persons;
' LANGUAGE SQL;
SELECT * FROM names();
但是如何在SQL查询中使用非标量VBA函数，比如SELECT * FROM vba_ids()，vba_ids()定义为Pu
浏览 3提问于2012-11-21得票数 1
除了从ACCESS SQL View访问SQL并手动访问SQL之外，我似乎找不到一种简单的方法。有什么神奇的方法来使用下面的代码并这样做吗？
值得指出的是，我正试图从Excel的VBA中进行此操作。
Private Sub tryagain()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
With con
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open
浏览 2提问于2016-06-25得票数 0
回答已采纳
我有一个带有子表单的Access表单，我正在尝试创建一个命令，该命令将在VBA中运行Insert语句，将子表单中的数据插入到另一个表中。我遇到的问题是，它复制了第一个记录，而不是插入单独的记录。我的密码在下面。
Private Sub Command52_Click()
Dim strSQL As String
Dim rs As DAO.Recordset
strSQL = "INSERT INTO DA_CC_QAQC_DRAWINGS_DETAIL (DRAW_ID, REV_DATE, REV_DESC, REV_TYPE)" & _
"VALUES
浏览 1提问于2022-11-08得票数 1
回答已采纳
我有一个带有文本字段和子窗体的access窗体。文本字段是名为myQuery的查询的参数，子窗体显示myQuery的结果。
在VBA中，我想访问myQuery的第一行，所以我尝试使用DAO.recordsets，如下所示：
dim query as string
dim rs as DAO.recordset
query = "select top 1 * from myQuery"
set rs=CurrentDb.OpenRecordset(query)
我收到一个错误，说“参数太少”。
如果我转到create query选项卡，并运行SQL代码"select to
浏览 0提问于2016-08-06得票数 0
我想执行一个Select SQL-Command，并用表中的信息填充我的表。
这是我目前的进展：
Set rs = CurrentDb.OpenRecordset("SELECT * FROM myOrder")
我得到了我的记录集中的信息，但我不知道如何将它放入我的表中。请没有不好的评论，因为我没有太多的VBA +访问经验，所以希望你们能帮助我。
我的桌子
| myOrder |
|-------------------------------------------|
| aID | aAsset | a
浏览 1提问于2014-03-24得票数 0
我正在尝试使用一本VBA字典，或者：
如果新行不存在，则将其插入数据库。
如果行更新，则更新行。
虽然我当前的代码对此有效，但对于我可能需要更新的数千条记录，它运行得非常慢，而我在这个站点上找到的其他解决方案并没有真正实现我所追求的目标。有人能帮我做到这一点吗？目前为止，我的代码如下：
Sub UpdateDatabase(dict As Object)
Dim Conn As Object, StrSQL As String, Rs As Object
Dim hmm As ADODB.Recordset
Set Conn = CreateObject("ADODB
浏览 0提问于2019-01-02得票数 0
回答已采纳
1回答
我正在使用vba从excel中查询一个SQL数据库，一切正常，但它也会在excel表中返回并显示SQL列的标题。如下所示：
AssetTag Machine Name UserName Current Site Run Count Defered
AssetTag MachineName UserName CurrentSite RunCount DeferCount
B33CWM1 QRLXPB33CWM1 admin-03 QR 255 3
有没有办法让VBA不
浏览 0提问于2012-05-24得票数 0
回答已采纳
我使用ADO查询MS 2003中的表，并使用CopyFromRecordset方法将数据输出到Excel 2003工作表。
该表有超过65536条记录，因此我不能使用DoCmd.TransferSpreadsheet，需要在ADO中使用VBA。
我的问题是，在调用CopyFromRecordset之后，即使只输出了65536条记录，游标仍停留在1 (AbsolutePosition=1)，而根据我的理解，光标应该在65537，准备好下一次调用CopyFromRecordset。
下面是我使用的代码：
Dim oXL As Excel.Application
Dim adoConn As ADO
浏览 5提问于2013-05-28得票数 0
回答已采纳
大家好，
下面的VBA代码将创建一个Excel QueryTable对象，并从Range("D2")开始显示它。这个目标范围的具体地址无关紧要。
我的问题是--是否可以手动将值输入到内存中的记录集，然后从其中读取表？换句话说，我希望在VBA中指定表列和值，而不是让它们来自数据库或文件。
Public Sub Foo()
Dim blah As QueryTable
Dim rngTarget As Range
Dim strQuery As String
strQuery = "SELECT * FROM MY_TABLE"
浏览 2提问于2008-10-23得票数 0
回答已采纳
1回答
我对访问VBA非常陌生。
我需要将值从工作簿范围("C1:C10")的Sheet1传输到access文件Table1上的新行
C1的值必须转到第一列，第二列的值必须转到c2，依此类推。
access文件已经存在，因此这些值必须转到access表的最后一行
另外，在excel或Access上使用VBA来完成这类工作更好吗
浏览 0提问于2020-07-01得票数 0
我知道我们可以通过DAO名称空间在Access中为SQL使用事务，但是我们能对acCmdSaveRecord做同样的事情吗?因为它没有显式地链接到DAO。或者，acCmdSaveRecord有隐式事务吗？如果您不能将acCmdSaveRecord放在一个事务中，那么还有什么选择呢？显式SQL？
忘了补充说，我是一个VBA新手，所以我目前不知道哪些是最佳实践。另外，由于我不能发表评论，我接管了现有的Access VBA应用程序，所以我不知道使用acCmdSaveRecord的理由。
浏览 13提问于2019-10-23得票数 1
回答已采纳
在下面的VBA中，我有一个带有一个表的select语句，但我想要多个select语句，结果需要在excel中捕获。
Sub extract()
'usedrows = Sheets("Batch_Creation").Range("A" & Sheets("Batch_Creation").Rows.Count).End(xlUp).Row
'MsgBox usedrows
Dim cn As Object
Dim uid1, pass1, srvrnm
Set cn = Cre
浏览 0提问于2016-05-27得票数 0
1回答
我正在编写一个脚本，它将从遗留系统生成的文本报告中获取数据，并将其导入到更灵活的跟踪数据库中。我试图找出如何从表中的数据中构建一个字典，这样我就可以使用字典存在方法快速过滤导入的数据，并且只导入属于我的商店的数据。
我有一个名为tblShop的表，其中包含一个名为[WorkcenterID]的字段。当我的脚本运行时，它将从文本报告中提取数据，查看员工的工作中心，检查该员工是否属于我(通过将提取的工作中心文本与字典进行比较)，如果是的话，将数据写入导入表以供进一步处理。
我怎样从桌子上造字典？
对于好奇的人来说，这是我的代码：
Private Sub Command5_Click()
Dim
浏览 2提问于2018-03-09得票数 0
回答已采纳
是否可以将查询结果用作包含动态sql语句的VBA模块中的条件？
例如
if( count(user_id) from table > 0, THEN xport and send email to a,b,c)
我试图使条件依赖于特定的查询结果。因此，如果某个查询有任何结果，我将让模块对该结果做出反应。
我尝试的唯一其他方法是从EXCEL查询数据库，并让excel的VBA对某个单元格的值作出反应(这将包含我试图访问的相同条件)。但我宁愿尽可能多地在访问中)
谢谢!
浏览 5提问于2015-08-26得票数 1
回答已采纳
4回答
我是VBA的新手，试图理解别人的代码。
集rstClone = Me.RecordsetClone
rstClone.MoveFirst
为什么必须克隆记录集？为什么代码不能是Me.Recordset.MoveFirst？
浏览 9提问于2010-03-02得票数 6
回答已采纳
我有一个VBA应用程序，它在尝试运行时抛出一个"ActiveX组件无法创建对象“异常。
断点设置在抛出异常的行上：
我假设这与Me.Recordset有关(我是访问表单)。记录集可能与所引用的Microsoft库相关。以下是当前的参考资料：
该应用程序在Windows98计算机上运行，Access .mdb据称在此之前运行良好(没有人记得它最初在什么计算机上或它的配置。表单本身只是滚动数据记录(这很好)，但是当触发上面的Calc_Confidence_Level()子例程时，它会在记录集中抛出一个错误，我认为这个错误与它滚动的记录集相同。
有人知道这里出了
浏览 3提问于2011-04-28得票数 1
回答已采纳
我需要找到一个更新的VBA脚本，它将在当前内容之后将Access 2010请求的结果传输到现有的Excel文件中。
下面是前面的脚本，它与Access 97一起工作。
Private Sub CmdTransfert_Click()
On Error GoTo Err_CmdTransfert_Click
Dim Requete As QueryTable
Dim appXL As Excel.Application
Dim Classeur As Excel.Workbook
Dim Cellule As Excel.Range
Dim Plage
浏览 3提问于2016-04-07得票数 2
回答已采纳
1回答
全,
我目前正在用Excel写一个宏，遇到了一个障碍。我通常用Ruby编写代码，所以我可能没有从正确的角度来处理这个问题。
我知道这篇文章被贴上了VBA标签，但我觉得我需要用Ruby来解释我的思考过程。我正在尝试在VBA中创建一个哈希表，它将允许我根据标识符查找与日期相关的值。在ruby中，我将使用散列来实现此功能，如下所示。
hash = { 9385 => { '10/1/2014' => [2, 4, 6, 1, 6] } }
然后，将以这种方式访问这些值：hash[9385]['10/1/2014'] => [2, 4, 6, 1, 6
浏览 3提问于2014-10-02得票数 1
2回答
我在VBA Access中有以下几行，但是我收到FindFirst的语法错误，我不明白为什么。
criteria = "[HolidayDate] = " & "#" & myDate & "#"
rst.FindFirst (criteria)
If rst.NoMatch Then
count = count + 1
End If
浏览 3提问于2020-01-08得票数 0
我做了一个特定的Access表单，其中有许多字段具有相同的名称，只是末尾的数字发生了变化。我有名为"Code1"，"Code2"，"Code3“等字段。我想将这些字段从表单视图粘贴到Excel单元格。大约有150个字段，我不想一个接一个地添加。 我做了一个打开Excel模板的按钮，也做了一个For循环，但是我卡住了。这就是我们的想法： Set MyXL = CreateObject("Excel.Application")
With MyXL
.Application.Visible = True
浏览 11提问于2019-01-25得票数 0
回答已采纳
我是Microsoft Access和VBA的初学者，我目前正在开发一个模型，其中我有关于150+芯片ID表的信息。我在窗体上有一个文本框/组合框供用户选择某个芯片ID。在选择他们想要的芯片ID后，我让VBA在后台运行以检查与芯片ID同名的表。我通过将变量声明为字符串并使用Dlookup来实现这一点。我还使用记录集创建了一个将数据组合在一起的新表。
下面是我的VBA代码：
Private Sub APLCombo_AfterUpdate()
Dim I
TestQ APLCombo.ItemData(I)
End Sub
Public Sub Te
浏览 4提问于2021-07-23得票数 1
1回答
我试图从一个查询(TrackList)中检索一条随机记录，并使用MS Access中的VBA用该记录更新表(setList)。我已经从我的记录集中分配了整数值，当我运行调试程序时，一切都会正常运行。当我从一个批处理文件中调用它时，它会继续按字母数字顺序检索记录。有没有更好的方法来实现这一点？ Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("_Sun00Q")
strName = rst.Fields("PLNames")
strSetName = rst.Fields("SetName")
浏览 9提问于2019-04-17得票数 0
使用Access VBA，我尝试将文件从目录加载到字段[table name]中的表[field name]中，Data Type是Attachment。
问题是我得到了错误Invalid field data type。
代码如下。
Dim SQL As String
SQL = " SELECT * FROM [table name] WHERE ID = '10'"
Dim VESRecordSet As Recordset
Set VESRecordSet = CurrentDb.OpenRecordset(SQL)
VESRecordSe
浏览 5提问于2018-01-02得票数 2
回答已采纳
1回答
我正在使用Excel，在不同的工作表中位于不同的位置，需要在其中运行一些SQL查询。
所以首先，我把一些简单的函数拼凑在一起，试图证明这个概念，看看我是否能做到这一点。到目前为止，我有这样的想法：
Private rstADO As ADODB.Recordset
Private Function StartEre()
Call SetupRecordset
Call Add("123", "ab", "ba")
Call Add("321", "ba", "ab"
浏览 2提问于2017-11-13得票数 2
在我通过Excel VBA连接到SQL Management Studio之后，我有以下代码(IT的一部分)，用于从SQL中的表中提取数据。
With BalanceSheet
' Assign the Connection object.
.ActiveConnection = cnPubs
' Extract the required records.
.Open "select * from Analytics.dbo.BalSheetKeyLineItemsFinal"
Sheet1.Range("A13&
浏览 0提问于2013-03-19得票数 2
回答已采纳
我希望运行一个对VBA的SQL查询，这将返回信息从MS Access到单元格A1。 目前，我正在运行SQL查询SELECT AccountNumber, BorrowerName from AccountTable;，它只返回A列中的帐号，而不返回BorrowerName。同样，如果我运行SELECT * from AccountTable;，它将只返回AccountNumber列。有什么想法吗？ (忽略直到Dim conn As New Connection) 'runs an sql query
Sub RunQueryOnAccess()
'Declaring
浏览 8提问于2021-03-26得票数 0
回答已采纳
在我的项目中，我有一个table1，它有一个ID和一个文本字段。table2有一个 multifield，其中我可以从table中选择多个值(通过查找)。
现在，我有了query1，我想从multifield (而不是multifield.value )中提取值，并将它传递给一个VBA函数，比如：IDsToNames: table2.multifield。问题是VBA给了我这个错误：
The multi-valued field 'table2.multifield` is not valied in the expression IDsToNames(table2.multifiel
浏览 0提问于2018-06-29得票数 2
我正在编写一个vba脚本。复制一个当前excel文件(带有格式)的内容。循环遍历当前文件夹中的所有其他excel文件，c.将新复制的工作表添加到excel文件中。
由于某种原因，我的代码不起作用。有谁能帮我一下vba脚本的新手
Sub Macro7()
Dim wbf As Workbook
Dim myPath As String
Dim myFile As String
Dim currentFile As String
Dim mtExtension As String
myPath = Application.ActiveWo
浏览 1提问于2017-05-26得票数 0
回答已采纳
是否可以编写一个查询来遍历一个包含两列的表的行，检查第一列中的某个标识符，并将第二列中的数据复制到一个新表中？
示例：
tblSurveyData
FirstColumn Second Column
A0 John
A2 Smith
A3 05-01-1973
tblSurveyReport
FirstName MiddleName LastName DateOfBirth
John Smith 05-01-1973
A0数据将流向FirstN
浏览 1提问于2013-09-05得票数 1
回答已采纳
在Acces中，我有一个独立文本框的连续形式。我尝试使用vba对查询结果中的每个记录进行填充，但这将使用相同的值填充所有textbox。
这是我的表格
Private Sub Form_Open(Cancel As Integer)
Dim WO As String
WO = Forms![Maintenance input formulaire]![Maintenance input sous formulaire].Form![WONumber]
query = "select comment from SystemAircraftStatus where SystemID
浏览 4提问于2015-02-17得票数 0
回答已采纳
1回答
单击查询的名称打开表
、、、
我有以下需要转换为VBA代码的逻辑: 1.用户从组合框中选择一个或多个查询名称: 2。用户单击“显示表”按钮3。打开选中的表/
到目前为止，我有以下代码：
Private Sub cmdShowTable_Click()
Dim valSelect1 As Variant
Dim strValue1 As String
Dim strValue2 As String
For Each valSelect1 In Me.Combo29.ItemsSelected
DoCmd.SetWarnings (WarningsOff)
strValue1 = Me.Combo29.ItemData
浏览 1提问于2015-11-22得票数 0
回答已采纳
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM
腾讯云开发者
