(excel VBA)：将记录集的其余行复制到第二个工作表
在Excel VBA中，可以使用以下代码将记录集的其余行复制到第二个工作表：
Sub CopyRemainingRows()
Dim wsSource As Worksheet
Dim wsDestination As Worksheet
Dim lastRow As Long
' 设置源工作表和目标工作表
Set wsSource = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的源工作表名称
Set wsDestination = ThisWorkbook.Worksheets("Sheet2") ' 替换为实际的目标工作表名称
' 获取源工作表中最后一行的行号
lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
' 复制数据到目标工作表
wsSource.Range("A2:A" & lastRow).EntireRow.Copy Destination:=wsDestination.Range("A2")
End Sub这段代码假设源工作表中的数据从第2行开始，将源工作表中的第2行到最后一行的数据复制到目标工作表的第2行开始的位置。你可以根据实际情况修改代码中的工作表名称和数据范围。
这个功能可以在以下场景中使用：
- 当你需要将一个工作表中的部分数据复制到另一个工作表时，可以使用这个功能。
- 当你需要将一个工作表中的数据按照某种条件筛选后复制到另一个工作表时，可以使用这个功能。
腾讯云相关产品和产品介绍链接地址：
相关·内容
2回答
我正在寻找一种方法，可以将数据表从Access导入到Excel变量中，然后通过此变量运行查询，以加快这一过程。我正在尝试从C# .NET迁移，在那里我将一个数据表从access数据库读取到内存中，然后使用LINQ查询此数据集。这比我目前在VBA中编写代码的速度要快得多，在VBA中，我必须对实际的数据库进行大量调用，这很慢。我已经看到了提到的QueryTable，但似乎这需要将数据粘贴到excel工作表中。我希望将所有内容都保存在内存中，并尽可能减少Excel工作表和VBA代码之间的交互。
我希望我们不需要使用Excel+VBA来做这件事，但是我们现在有点被困住了。谢谢你的帮助！
浏览 1提问于2010-04-30得票数 2
回答已采纳
我是VBA的新手，如果这个问题不符合标准，我很抱歉。
我正在尝试运行Access查询并将结果复制到Excel工作表中。
到目前为止，我已经成功地打开了Access DB并运行了查询，但是我找不到任何关于如何将结果复制到excel中的信息，至少我无法找到一个可行的解决方案。
有人能指点我朝正确的方向走吗？
谢谢。
到目前为止，我提出了以下代码。
Sub AccessTest1()
Dim A As Object
Application.DisplayAlerts = False
Set A = CreateObject("Access.Application&#
浏览 1提问于2018-01-22得票数 1
回答已采纳
我有一个用Excel制作的个人函数列表。此函数查询mysql数据库，并只返回一个值。例如，函数GetRevenue返回单个值。但是我想知道如何编写一个excel函数来返回一个值列表或整个表？
假设在单元格A1中，我编写了函数"GetCustomerList“。我希望从单元格A2开始返回我的桌子。
如何在VBA中使用ADODB？
谢谢
浏览 1提问于2013-10-21得票数 0
回答已采纳
1回答
嗨，伙计们，我是新来的，我是vba的新手。
我想解决以下问题：
我有两张不同的存取表。它们中的每一个都包含我想先比较的数据，然后，如果某个约束为真，我想将两个access db表中的一个中的某个列导入到excel工作表中。
我已经拥有了:连接到数据库，我可以读取数据并通过debug.print命令在控制台上打印它们。
我真的不知道如何将某些行(那些符合约束的行)写入excel工作表。
代码样本
'commandstring and data base variables stands here
'non database connection variables
Dim o
浏览 2提问于2014-04-02得票数 1
是否可以编写一个查询来遍历一个包含两列的表的行，检查第一列中的某个标识符，并将第二列中的数据复制到一个新表中？
示例：
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
回答已采纳
我正在MS access的VBA中编辑一些东西。有没有人能告诉我下面两种说法的区别。
1. Set rs1 = CurrentDb.OpenRecordset("tblOPCEPLTB")
2. Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblOPCEPLTB")
我猜是第二行从表tblOPCEPLTB中获取所有行，并存储在rs变量中。那么做什么呢？在执行完第一个之后，它应该有什么？
请帮帮忙
浏览 487提问于2018-10-12得票数 2
1回答
我对访问VBA非常陌生。
我需要将值从工作簿范围("C1:C10")的Sheet1传输到access文件Table1上的新行
C1的值必须转到第一列，第二列的值必须转到c2，依此类推。
access文件已经存在，因此这些值必须转到access表的最后一行
另外，在excel或Access上使用VBA来完成这类工作更好吗
浏览 0提问于2020-07-01得票数 0
我是Access 2016 VBA的新手，我一直在将Excel数据导入Access表。
但问题是，我需要跳过Excel工作表的前三行，以便我可以直接将Excel数据保存到Access表中。我怎样才能做到这一点呢？
下面是用于将Excel数据导入到表中的代码：
DoCmd.TransferSpreadsheet acImport, , Tbl, SelectedFls, True
还有一件事是不可能指定Excel单元格的范围，因为它是变化的。
浏览 167提问于2019-06-23得票数 1
5回答
我在使用VBA执行SQL查询并将结果复制到Excel工作表时遇到问题。
当sub执行时，它只复制256的倍数的行(因此，256、512、768等是唯一填充到Excel中的行)。从数据库中复制任何其他字段都没有问题。而且，当我在MySQL中运行相同的查询时，它工作得很好。作为SQL和VBA的新手，我看不出为什么这个特定的字段会造成麻烦。我能想到的唯一一件事是，它的内容是一个始终以下划线开头的字符串(我之所以提到这一点，是因为这是它与其他一些字段的唯一区别)。
有没有人知道为什么会发生这种情况？
干杯,
利亚姆
编辑:这是一个有问题的代码片段。老实说，我不确定看到代码是否会有所不同，因为它在其他情
浏览 1提问于2012-04-19得票数 5
回答已采纳
如果单词"FLAG“是同一行中的一个单元格，我会尝试复制某些单元格。例如，我在excel中有如下数据：
因此，如果单词Flag在任何单元格中，我希望复制Description、Identifier和Final date列(列A-C)以及相应的date列。因此，对于Jan/Feb下的第一行(AA)，有一个单词Flag。我想将A-E列复制到另一个工作表或表中。
我想使用VBA，但我不确定如何使用
浏览 0提问于2018-02-13得票数 0
回答已采纳
1回答
我遇到了与中类似的性能问题，通过设置循环的单个单元格值将数据导出到MS Excel：
objSheet.Cells(table_1_row_no + intcounter, table_1_colA_col_no) = table_1_array(intcounter, 0)
然而，我的数据来自一个数组，需要在excel中处理后，它转移到那里，因此我需要有一个开放的工作表后，传输数据。因此，上面帖子中提到的方法似乎都不是理想的选择。
我有一个MS access应用程序，从数据库中拉出的数据做了相当多的数据在vba的处理之前，它被放入excel。因此，要传输的数据在数组中，而不是记录集中。要将它
浏览 1提问于2012-11-20得票数 0
我正在将excel表格数据转移到access表中。我尝试查找指定的列是否有空格，然后提示用户。如何使用vba检查列中的空白单元格。
我的Access VBA
Dim ExcelApp As New Excel.Application
Dim ExcelBook As New Excel.Workbook
Dim rngblankcells As Excel.Range
StrFileName="C:\temp\sample.xls"
Set rngblankcells = ExcelBook.Worksheets("sheet1").
浏览 8提问于2014-05-03得票数 0
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
1回答
我想打开两个Excel文件，并分别从这两个Excel文件中将一个不同的工作表复制到一个新工作簿中，以便这个新工作簿包含第一次加载的工作表中的两个工作表。我试着用 workbook("old.xls").worksheets(2).copy after:=workbook("new.xls").worksheets(1) 但是我总是得到一个运行时错误。 你知道问题出在哪里吗？
浏览 14提问于2019-09-17得票数 0
2回答
我正在从一个excel文件创建一个表，然后查询该表。一旦我用完这张桌子，我就想把它扔掉。然而，我得到了错误
"Database engine could not lock table because "TableName" it is already in use by another program or process.
这是一个逻辑错误，但我不确定如何在VBA中关闭该表？我试过CurrentDb.Close了。在那里吗。我假设有一种方法可以关闭它，因为它将在同一会话中？我使用以下命令来删除该表：
db.Execute "DROP TABLE Tab
浏览 11提问于2014-02-26得票数 2
运行时，下面的代码没有显示错误，但我不知道如何将必需的/特定的字段值提取到excel工作表中。
Sub getdatafromaccesstoanarray()
Dim cn As Object 'Connection
Dim rs As Object 'Recordset
Dim vAry() As Variant 'Variant Array
Dim dbPath As String 'Database Path
Dim dbName As String 'Data
浏览 1提问于2017-11-27得票数 0
回答已采纳
我正在处理CSV事务数据文件，每个文件有350个mb+和1,100,000+行。
我想知道如何通过VBA对这些文件执行一些简单的快速查询，保存CSV，然后在Excel中将结果作为工作簿打开。
例如，我想这样做：
将CSV作为表加载到RAM中
删除所有将名为transaction_type的字段记录为“失败”的行
将结果保存为新的CSV
在Excel中将结果作为工作簿打开
我的目标是以尽可能高的性能完成这个操作。我认为这个功能是由提供的，但我不知道如何通过Excel使用它。
谢谢!
浏览 1提问于2012-02-22得票数 1
回答已采纳
我有一个我的整个公司的报价日志从access数据库中提取。数据可以很好地填充到Excel中的工作表中。其中一列是负责该工作的人员的首字母。 我想从这个表中拉出所有包含我姓名首字母的行，并只将这些行复制到一个单独工作表上的新表中。我认为这可能是VBA的问题，我是VBA的新手，只是想找个人给我指明正确的方向。 我可以使用if语句逐行查找，但这会在没有我的首字母的地方造成巨大的差距。
浏览 32提问于2019-09-05得票数 0
1回答
我在Server中有一个存储过程，我正试图通过一些VBA代码从Excel中执行它。但是，存储过程有两个输出(见下文)。
我的记录集只是拉动第一个表(添加了0条错误消息.)而我想把第二张桌子拉进去。
图片：
下面是我的代码，它是从我在这里找到的其他来源编译而来的：
Sub RefreshBarcodes()
Dim Database As String
Dim con As ADODB.Connection
Dim strconn As String
Dim SQLServer As String
Dim Session As String
Dim strSQLCommandOne As Str
浏览 3提问于2015-08-19得票数 1
回答已采纳
我的实际代码如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call extract
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End SubSub extract()
Dim cn As Object
Dim
浏览 5提问于2016-05-17得票数 0
回答已采纳
我有一个工作表，其中我需要找到第一列中具有特定短语"Beginning of data“的行。然后，我必须将包含短语"End data“的行的所有行复制到单独的工作表中。欢迎对此VBA宏或Excel函数的使用提供任何帮助。
浏览 1提问于2020-11-01得票数 0
我正在使用TransferSpreadsheet将查询从access导出到excel，它工作得很好。
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryName", "test1.xls", True
现在我有了另一个查询，我想将该查询中的数据添加到同一个工作表中。我该怎么做呢？
浏览 0提问于2012-08-11得票数 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
回答已采纳
我正在写一个从Access数据库中提取工作的excel应用程序。当用户打开Excel工具时，数据表需要填充我创建的Access数据库中的一个工作表。我一直在excel中编写VBA代码，并且收到运行时错误："429“ActiveX组件无法创建对象。
其他问题都是从Access中编写的，但我相信我需要从Excel工作簿文件中编写此代码。我编写的代码位于Workbook_Open()函数中，以便在用户打开文件时收集数据。非常感谢你的帮助。顺便说一下，我使用的是Access 2007和Excel2010。
Private Sub Workbook_Open()
'Will fi
浏览 4提问于2012-02-01得票数 10
回答已采纳
我正在从access数据库中读入值，并将它们复制到excel工作表上的特定位置。在将access中的某些值复制到excel工作表之前，需要将access中的某些值与access中的其他值相加。如何更改代码以进行加法？ F.eks如何将名为"referansetrafikk“的变量中的值与另一个变量"nyskapt overfoert”相加，然后才能将其粘贴到excel工作表上的特定位置？ Sub HentData()
DBFullName = "C:\saga_effekt_Nidaros_2017_tiltak.mdb"
Application.Scree
浏览 14提问于2019-06-11得票数 0
Access 2003中有一个连接到MS服务器表的表。我能够进入Access表，手动更新它，并看到反映在表中的更改。
但是，我甚至无法打开表并将结果放在我的VBA代码中的记录集中。
Set rs = CurrentDb.OpenRecordset("dbo_tbl_EventLogs", dbOpenTable)
(rs总是一文不值)
同一行代码在“本地”访问表上工作。
浏览 3提问于2016-10-05得票数 0
回答已采纳
我在Excel2010VBA中，使用ADO2.8查询Access 2010数据库。我不拥有数据库，也没有对数据库进行任何更改的权限。我使用Excel已经很多年了，但是我的访问知识还很粗略。
使用与数据库中的一个查询相同的SQL (从Access查询复制并粘贴到Excel中)，我在某些字段中得到的结果与数据库中的查询不同。
对于受影响的字段，我看到在Access中，这些字段被定义为查找。下面是从受影响字段的Row Source属性中查找的示例：
SELECT [Signers].[SignerID], [Signers].[SignerName] FROM Signers ORDER BY [S
浏览 3提问于2014-07-01得票数 0
回答已采纳
1回答
我在一个原型应用程序中使用Access 2007，我有两个数据库testUi.accdb (其中
包含我所有的表单)和testDb.mdb (包含我的数据库)。现在，我想在我的子表单中使用数据表。有人能帮我解决这些问题吗？
我可以手动构建没有表的数据表吗？
如何使用VBA代码使用DAO或ADO将数据绑定到此数据表
是否可以使用VBA代码循环数据表？获取或设置每一行的值？
如果上面不可能，那么在Access中使用数据表(如网格)的替代方式是什么？
浏览 2提问于2012-10-18得票数 1
回答已采纳
在我通过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
回答已采纳
6回答
我正在从MSDN复制一段VBA代码片段，它向我展示了如何从SQL查询中获取结果到excel工作表(Excel 2007)中：
Sub GetDataFromADO()
'Declare variables'
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
'Open Connection'
objMyConn
浏览 1提问于2009-07-13得票数 28
回答已采纳
1回答
我有一个Excel电子表格，可以生成应用程序中使用的CSV脚本。脚本必须采用非常特定的格式，并且我使用受保护的工作表和数据验证将母版保存为XLSX格式，以保存CSV，而不是直接编辑CSV，因为直接编辑CSV可能会导致错误。
问题是脚本几乎可以是任何长度。每一行的左列只能是某一组值中的一个，最后一行必须是"END“。我可以在没有VBA的情况下执行此操作的唯一方法是在A列中使用以下公式，从第7行(前6行是标题信息)到第1048576行(最后一个Excel行)，并在A列锁定的情况下保护工作表：
=IF(AND(ISBLANK(B368),NOT(ISBLANK(B367))),"
浏览 1提问于2015-06-24得票数 2
7回答
我负责一个非常大的Excel 2010电子表格与各种外部数据源的链接，包括彭博、65个带有vba模块的工作表以及对其他vba外接程序的引用。
我注意到VBA项目已经获得了多个Workbook对象。
这是标准的ThisWorkbook。但是，许多工作表也被Excel转换为Workbook对象，将原始工作表保留为上一个工作表的副本，减去代码。
这似乎不是任何人行动的结果。实际上，我认为不可能有多个Workbook对象！
例如，我有一个名为wksInputs的工作表，它现在被转换成一个Workbook对象，而原始的wksInputs现在被称为wksInputs1。
我无法删除wksInpu
浏览 7提问于2013-08-16得票数 10
回答已采纳
我正在使用Access VBA为一位同事将表导出到Excel中，如果输出可以拆分到同一工作簿中的不同工作表中，这将是非常方便的，这取决于并以列1中的值命名。 这是我当前用来将整个表导出到Excel中的新工作簿的代码： Private Sub export_Click()
If IsNull(DLookup("Name", "MSysObjects", "Name='tbl_found_playingtimes'")) Then
MsgBox ("No records to export."
浏览 55提问于2020-06-17得票数 0
回答已采纳
关于使用VBA将单元格从一个工作表复制到另一个工作表，我有一个问题。
问题背景：
excel电子表格的Sheet1包含来自多个测试主体的标题和许多测试观察。每一行都是对每一主题进行一次审判的观察。每个试验对象都有固定数目的观察，即15行。我需要从指定的行中选择一个单独的单元格，并将它们复制到同一个工作簿的sheet2中。表2也将包含标题。对于VBA和一般的编程/脚本来说，我都是新手，对于如何做到这一点，我遇到了一些问题。下面是我试图操作的数据的类似示例。下面的数据集包含5列。研究对象编号是1111和2222。变量()的每个标题包含一个字母，例如VariableOne = "a"
浏览 0提问于2013-01-02得票数 0
回答已采纳
我有一些现有的代码，可以用不同的参数反复查询SQL数据库，我认为如果在开始时将其更改为将一大块数据选择为ADODB.Recordset，然后在循环中查询这个记录集而不是数据库本身，效果可能会更好。
另外一个警告是，在执行这些子查询时，我需要使用聚合函数(SUM、MIN、MAX、AVG)。
编写这样的代码并不太困难，但是这么明显的事情似乎已经做了几千次了，这让我怀疑是否会有一个包含这种功能的开源库？我发誓几年前我遇到过一次，但我无法在谷歌上找到它。
编辑：
注释中的一个很好的建议(由TimW提出)是在数据库服务器上完成所有的聚合，然后传回给客户机，然后对客户机进行过滤。(虽然在本例中它不能工作，
浏览 3提问于2012-04-05得票数 3
回答已采纳
1回答
我正在使用Excel2016VBA来使用DAO引用读取Access 2016数据库。我正在这样做，因为在Excel中创建动态表单控件要容易得多。它似乎工作得很好，但我刚刚发现它只读取任何表的前335条记录，即使我用SQL查询约束了三个记录集。
首先，我读了一张房间里摆满架子的桌子：
DIM db as DAO.Database
DIM rsRacks as DAO.Recordset
DIM strSQL as String
‘Initialization code deleted
StrSQL = “SELECT * FROM tblRacks WHERE RoomID = “ &a
浏览 0提问于2019-11-05得票数 1
1回答
我一直在努力将数据从多个excel工作表传输到多个访问表中。所以情况是这样的。我有5个工作表，每个工作表都将从Excel转换到特定的访问表。如何使用VBA完成此操作？
我似乎不能把文件放进去，所以我希望你们能理解！提前谢谢你帮我！！
浏览 3提问于2014-03-25得票数 0
回答已采纳
我需要在excel vba中从一个access表字段创建一个数组。该表有4个字段，但我需要创建一个仅包含字段2中的数据的数组。我连接access，然后使用以下代码填充该数组： Array1 = Array(Rs.Fields(1).Value) 但是Array1只从字段2加载了1项，我不知道如何才能使循环加载所有数据。
浏览 35提问于2020-06-20得票数 1
回答已采纳
可以在VBA中的数组元素上运行目标查找，而不是Excel工作表范围？
我有一个数组，该数组从excel输入表中获取初始值，进行许多计算，并将值打印回excel工作表上的报表区域；输出大约为200行x28列的计算值。我以前在每个单元格里都用公式来做这件事，但是它非常非常慢。我转换成一个全vba，它可以快速地完成计算，并将完成的值粘贴到excel的报表范围中。
问题是，我还需要在不同的单元格上运行目标搜索，Excel不能在一个只有值的单元上运行，它需要一个带有公式的单元格。和我的花哨，高效的阵列，我不能再寻找目标了！
是否有一种方法可以通过测试实际位于excel表上的输入值(如Range("
浏览 11提问于2017-02-19得票数 1
1回答
我需要在VBA中循环一个记录集来填充我的Excel表。我想为每一行做这件事。
我现在得到的是：
comm.CommandText = str_SQL
rec.Open comm
Sheets("mySheet").Range("A4").CopyFromRecordset rec
这个很管用。但是，当我的rec中的索引change是X时，我想更改单元格的颜色。
这是占有型的吗？有人有别的解决办法吗？
浏览 0提问于2017-08-30得票数 0
回答已采纳
1回答
我目前正在处理一组集成的工作簿，其中我需要在工作簿之间传输数据值。为此，我需要一个VBA宏，它可以复制特定的范围(工作表中的一行)，并将其插入到另一本书中概述列表的底部。
我该怎么做呢？
我是一个VBA新手，所以非常感谢具体的指导。注意:我使用的是MS Excel 2010。
提前谢谢你！
浏览 2提问于2013-02-11得票数 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
回答已采纳
我在Excel中设置了一个VBA过程，以获取插入到Excel选项卡中的一些文本，并将其作为命令文本发送，以便完成SQL查询。 但是，在我的查询中，我希望分别返回3个不同的表(因此在我的VBA代码中有3个不同的连接)。 有没有一种方法可以使用我的查询来返回三个不同的表，这样我就不必运行查询三次，只为了在最后获取一个不同的select语句？ 查询代码结尾： SELECT * FROM #MailMergeFormatStep1
SELECT * FROM #MailMergeFormatStep2
SELECT * FROM #MailMergeFormatStep3 我希望运行这些select
浏览 52提问于2019-03-20得票数 0
考虑到这一点
我在Microsoft中创建了一个VBA函数来读取该文件，并将其保存/导入到我的表上，即:离职、员工和职位。我就是这么做的：
Private Sub Command41_Click()
Dim fileName As String
Dim fso As New FileSystemObject
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet
Dim intLine As Long
Dim rs
浏览 5提问于2021-01-16得票数 0
我有一个Excel工作表，在Sheet1的A列中有一个大约1000个项目号的列表。目前，我将Sheet1导入到名为ItemNumbers的访问表中，并运行以下查询：
SELECT MyTable.ItemNumber, MyTable.ItemName, MyTable.ItemPrice
FROM [ItemNumbers] INNER JOIN MyTable ON [ItemNumbers].ItemNumber = MyTable.ItemNumber
ORDER BY MyTable.ItemNumber;
然后将输出复制/粘贴到Sheet2。
如何在Excel中的VBA中执行此操作
浏览 3提问于2013-10-18得票数 0
1回答
因此，在所有使用SQL查询数据库的VBA宏中，我一直在使用在Excel中记录宏时自动输入的内容。有办法简化吗？它首先将其插入到表中，但实际上我只想将原始数据插入电子表格中.它不需要看起来漂亮。
Sheets("Sheet1").Select
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=AS400;" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = strSQL
.Row
浏览 2提问于2014-09-11得票数 0
回答已采纳
我想知道是否有人可以推荐一种从MS Access模块查询excel文件中数据的替代方法。
如果我的数据组织为典型的“表”格式，例如带有标题的行和列，那么我一直在使用DAO连接连接到工作簿，如下所示
Dim db as DAO.Database
Dim rsUsers as DAO.Recordset
Set db = OpenDatabase("C:\SaleLog.xls", False, True, "Excel 8.0;HDR=Yes;")
Set rsUsers = db.OpenRecordset("SELECT userID FROM [S
浏览 4提问于2017-02-23得票数 0
回答已采纳
我创建了一个VBA脚本，该脚本将从SAP获取信息，将其提取为excel文件，保存到特定的文件夹中，然后从创建的excel工作簿中打印出工作表。
与提取的SAP数据相比，该数据在返回的行数上有所不同。
即：
第一次提取:返回5行
第二次提取:返回15行。
第三次提取:返回10行。等。
提取这些行后，它们将预先填充到多个不同工作表上的特定单元格中。如果有5行，那么只占3张纸。15行，将占用10张纸。然而，目前，该脚本正在打印所有的工作表，即使它们是空的。
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name =
浏览 5提问于2021-05-20得票数 0
我必须创建一个SSIS包，它将简单地将数据从SQL表复制到Excel文件。问题是，我需要第一行中的两列和第二行中的其余列的合并列。在没有模板的情况下，这是可能的吗？
截图：
请多多指教！谢谢
浏览 8提问于2020-05-18得票数 0
2回答
每周，我的分析人员都有一张发票电子表格，他们需要用支票号和支票日期来更新。检查表存在于SQL服务器中。
我编写了一个宏，它遍历电子表格的每一行，使用如下语句打开ADO记录集：
SELECT CheckNumber, CheckDate FROM CHECKS WHERE Invoice_Number = " & cells (i,2)
..。然后使用记录集中的字段将数字和日期写入Excel电子表格中该行的前两列。
该代码可接受地执行几百行，但当有数千行时执行得很慢。
是否有一种比使用ADO逐行查找更快的方法来更新Excel电子表格？例如，是否有一种方法在Server中的电子表格
浏览 10提问于2015-05-03得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
