如何将工作表名数组输入到VBA Sheets.Copy中？
在VBA中，可以使用数组来传递工作表名给Sheets.Copy方法。下面是实现这个目标的示例代码：
Sub CopySheets()
Dim sheetNames() As Variant
Dim i As Integer
' 初始化工作表名数组
sheetNames = Array("Sheet1", "Sheet2", "Sheet3")
' 复制工作表
For i = LBound(sheetNames) To UBound(sheetNames)
Sheets(sheetNames(i)).Copy After:=Sheets(Sheets.Count)
Next i
End Sub这段代码首先声明一个名为sheetNames的变量作为工作表名的数组。然后，我们使用Array函数将需要复制的工作表名添加到数组中。在示例中，我们将"Sheet1"、"Sheet2"和"Sheet3"添加到数组中。
接下来，使用一个循环来遍历工作表名数组，并使用Sheets(sheetNames(i)).Copy将每个工作表复制到当前工作簿中的最后一个工作表之后。
请注意，这只是一个简单示例，你可以根据需要进行修改。另外，如果数组中的某个工作表名不存在，将会引发运行时错误。因此，在使用数组前，确保数组中的工作表名是有效的。
希望这个答案对你有帮助！如果你还有其他问题，欢迎继续提问。
相关·内容
1回答
我有一个工作表，即xlSheetVeryHidden和保护的VBA，以防止用户访问工作表。该工作表中包含一个包含敏感数据的表。但是，我注意到有人可以找到表名并返回表内容，只需输入一个单元格=，然后输入表名的第一个字母。
有什么办法可以防止表出现在公式栏中吗？
浏览 1提问于2022-10-07得票数 0
1回答
我在想如何将一周前的工作表存档。
关于我的项目的一些背景知识：
我每天创建两个新的工作表，其中包含我每天查看的每日报告摘要和计算。到目前为止，在一个excel文件中打开的工作表太多了，所以打开并发送给用户需要花费很长时间。
最后，我想弄清楚如何将前一周创建的任何工作表保存到另一个文件。我想将所有这些都保存在一个单独的(单个)工作簿中，或者以某种方式创建一个文件夹来存放该周每一天的每个工作簿。
因此，例如，我为当前一周创建了10个工作表(一周中的每一天，星期一到星期五，两个)。然后，当我在下个星期一开始创建该周的工作表时，旧的工作表将被放入另一个工作簿中。
我现在每天用来创建工作表的代码如下：
浏览 0提问于2017-10-06得票数 0
我希望能够键入工作表中的任何单元格，并在输入时自动将其复制到第二个工作表。我知道如何从当前的单元格复制到另一个单元格，但我不知道如何进行现场操作。我想在VBA中这样做，我知道我可以选择两个工作表，只需输入，但我想在VBA中这样做。
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Activate
ActiveCell.Copy
irow = ActiveCell.Row
icol = ActiveCell.Column
Worksheets("Sheet2").Cells(irow, icol)
浏览 1提问于2018-06-04得票数 0
回答已采纳
这是我第一次问关于堆栈溢出的问题，我希望这是清楚的！
以下是MC宏的VBA代码不起作用。我试图将循环计算( Excel beta.inv统计公式)输入到数组中，并将完成的数组输出到工作表中进行检查。对于不使用数组直接输出到工作表的情况下，这一派生可以很好地工作，但我更愿意将数据输入数组以进行进一步的计算(并且最小化VBA/工作表之间的来回以加快速度)。
代码：
Sub MC()
Dim n As Integer
Dim j As Integer
Dim myArray As Variant
Dim x as Integer
n = Range("L2"
浏览 3提问于2021-02-09得票数 1
回答已采纳
如何将多维数组或嵌套数组传递到允许引用其他范围的Excel UDF中？
我有一个定义为"ARY“的UDF，它的作用与Array()在VBA中的作用相同，但在工作表函数中。
这允许我有一个像这样的工作表公式
=TEST1(ARY(ARY("A"，"B")，"C"))
或
=TEST1(ARY(ARY(A1，B1)，C1)
然而，当我将TEST1作为工作表函数执行时，我得到了错误2015。如果我从VBA执行TEST1，它工作正常并返回"A“。
Public Function TEST1(Params As Variant) As Va
浏览 0提问于2010-08-07得票数 1
回答已采纳
我在Excel VBA中使用以下代码复制Excel工作表进行计算：
Dim Store1Sheet() As Variant
Store1Sheet = Range("A1:D99")
请您建议如何将多个Excel表格复制到一个变体，例如StoreMultiSheet。非常感谢。
浏览 0提问于2012-08-29得票数 0
我有一个用户可以将20个存储号输入到A1到A20的单元格中。单元格B1到B20将具有每个存储号所具有的超链接，例如:单元格B1到B20将有以下公式：=超级链接(“C：\”store number &A1&“.xls”)
如何一次打开所有这些超链接，而不必单击单元格B1到B20 (20次)？
如果用户只想看到10个文件而不是20个文件怎么办？如果我创建一个VBA来打开单元格B1到B20中的所有超链接，但是用户只输入10个存储，我就会有一个调试问题。
打开这些文件后，如何将它们合并为一个文件，其中包含多达20个工作表/选项卡？每个存储文件具有相同的格式和相同的工作表名称
浏览 8提问于2011-06-13得票数 0
使用VBA将数组公式插入列并向下复制到公式所引用的工作表中的数据行时，我遇到了问题。
如果我使用CSE，然后再向下拖动，公式就会像预期的那样工作。然后，我使用宏记录器捕获CSE，并将公式转换为VBA，这是它失败的地方。
我已经尝试了尽可能多的变化进入公式，我能找到，但没有任何效果。
在名为“"FolderDataImport”Pack“的工作表中输入到cell C2中的数组公式查看名为的工作表的Cell A1，如果存在数据，则执行几项任务。
输入此公式的VBA应该将其复制到列C中，只要工作表中称为"Pack“的单元格有数据存在就行。
因此，当我使用数组公式运行代码时，它不会自动
浏览 6提问于2021-04-10得票数 0
尝试将一个值输入到输入框中，然后按下Search按钮从表中获取结果。
我似乎不知道如何将这个值输入到Box中。输入框和按钮似乎在表内的表单中。没有ID元素。
**> Input Box has these properties**
<td Class = "searchRow">
<input type = "text" name = "name" value onblur = "Numberfield();" style = "width: 200px;" class = "req
浏览 4提问于2020-01-31得票数 0
1回答
我对VBA相当陌生，所以如果我不太习惯VBA语法，请原谅。
我的问题是:我有大量包含类似数据的表格，我想制定一个程序来研究每个表格单元格中的数据(单元格总是位于每个工作表的同一范围内)，并将其复制到我的工作表“详细信息”中。
我试图转换字符串中每个工作表的名称，以便迭代它(s1，然后是s2，然后.)，但是当我使用 sheet ("s“& 1)时，VBA将"s”& i识别为字符串，而不是工作表。
如何将"s“& i转换为纸张？
Sub metro()
Dim s1 As String
Dim s2 As String
Dim s3 As Stri
浏览 1提问于2014-12-03得票数 1
回答已采纳
我有一个MS Access 2016数据库(*.accdb)和20+表。每个表中的字段在表中略有不同。我没有VBA经验，所以我只坚持下面的SQL查询(编辑)。
SQL脚本
下面的myvar是运行脚本时希望被提示的参数，以便输入我想要应用的更改的表。
PARAMETERS
[myvar] TableID;
UPDATE
[myvar]
INNER JOIN
Excel_Data ON [myvar].[Part Number] = Excel_Data.[Part Number]
SET
[myvar].[Value] = '?',
[myvar].Descr
浏览 2提问于2018-12-06得票数 1
回答已采纳
1回答
在一个工作表中使用一个VBA CommandButton，可以在另一个工作表中调用另一个vba模块。此VBA连接在工作表内，而不是与工作簿连接。当我在第一个工作表中运行CommandButton时，会得到以下错误。
Public Sub CommandButton3_Click()
PriceChange.FilterColorToRed
End Sub
浏览 5提问于2021-12-18得票数 1
4回答
Excel中的数组函数
、、、
我在VBA中有一个函数，它生成一个字符串数组。当从另一个VBA函数调用它时，它工作得很好，但是当从工作表调用时，它就不能工作了。
下面是应该如何使用它：
选择A1:A3
写入公式栏=Test()，然后按Ctrl-Shift-Enter使其成为数组函数
A1应该包含A，A2应该包含B，A3应该包含C。
当我实际尝试这个时，它会将A放在数组的所有三个单元格中。如何将Test返回的数据输入数组的不同单元格？
对于那些想看它的人来说，这是函数的代码。请记住，该函数在从其他函数调用时运行良好。
Function Test() As String()
Dim a(1 To 3
浏览 0提问于2012-04-24得票数 8
回答已采纳
我需要知道如何将VBA模块与相应的带有按钮和宏(分配给按钮的)工作表复制到另一本工作簿中，该工作簿中也有VBA代码。
非常感谢!
浏览 0提问于2015-01-29得票数 0
回答已采纳
1回答
我有一些代码可以从服务器上的SAS表中检索数据。我试图使用VBA绘制这些数据，而不首先将其复制到工作表(将记录集直接输入图表)
到目前为止，我在这方面取得了成功。问题是，我的图表需要有多级的分类X轴，而且我很难只用VBA实现这一点。
我想得到的是这样的东西
(由于声誉不足，我不能发这张照片)
但到目前为止我所有的尝试都导致了
我知道，如果我首先从记录集中创建一个数据透视表，然后在其之上构建一个图表，我就可以做到这一点，但正如前面所述，我试图做到这一点，而不将数据复制到工作表中。
也尝试过使用TickLabel选项(多级和深度)，但到目前为止都没有效果。
浏览 1提问于2015-01-31得票数 0
回答已采纳
我有两个表，表1和表2。表2包含与表1完全相同的列，还有五列。表1包含基本的员工信息，表2包含员工每次不工作的历史记录。
通过VBA构建的程序，用户可以将员工标记为缺勤，然后提供一种类型的缺勤，可以授予异常，然后给出异常的原因。每当创建缺勤时，我都希望从表1复制员工信息，并将其插入表2以及缺勤、异常和异常原因的类型。
我知道如何将信息从表1复制到表2，但如何做到这一点，并从用户输入中插入新的值？
INSERT INTO Table 2(
FirstName,
LastName,
AgentName,
Location,
EmployeeGroup,
ContractAgency,
Manage
浏览 1提问于2018-07-27得票数 0
回答已采纳
2回答
新的VBA和我试图从本质上查找表中的列标题到另一个和如果匹配复制数据通过.
我被告知可以将头存储在字符串数组中，然后循环遍历并将头与数组进行比较，以确定它们是否匹配。
ie: For each c In
Sheet1.Range("A1:BA1").offset(rownumber -1)
但我不知道那是什么意思？如何将标题存储在字符串数组中？如果这是一个超级基本的问题，很抱歉。我在谷歌上搜索过，没有找到任何解释如何做这件事或它意味着什么的东西。
我的项目:关于sheet1的研究数据。如果存在问题，我希望单击一个按钮，该按钮将只将匹配的列数据复制到指定工作表中的新行。从那里将检
浏览 0提问于2015-01-20得票数 2
回答已采纳
1回答
我有一个工作表，当active sheet被重命名(重命名为anything)时，我想运行一个宏。
其原因如下：
我有一个数据透视表，它使用VBA根据单元格(D1)值进行筛选。(当D1被更改时，透视表筛选器就会发生变化)。D1依次由工作表名称确定(匹配)，使用公式。(也就是说，如果工作表名是RG01，那么D1会自动更改RG01)
问题是，当工作表名称被更改(并且D1随之更改)时，它不会触发数据透视表筛选器中的更改。只有当我编辑D1时，数据透视表筛选器才会发生变化。也就是说，如果我选择D1并重新输入公式，数据透视表过滤器就会改变。
所以，我想，我可以写一个宏，每当重命名工作表时，它就可以在D1中
浏览 5提问于2022-02-10得票数 -1
回答已采纳
我有一个简单的代码，运行后在模板表单中创建一个新的工作表。通过这样做，我得到了一个新的工作表，其中包含了我的模板中所需的所有内容。 我需要复制一个简短的VBA脚本Worksheet_Change到新创建的工作表。对于ex。更改B列中的单元格后，从系统中获取windows用户id和日期的代码。 对于通过VBA创建每个新工作表，如何将Worksheet_Change脚本放入我的vba代码中？
浏览 21提问于2020-11-26得票数 0
回答已采纳
我目前可以通过以下代码将csv文件数据输入到Excel VBA中，然后处理表格，这肯定不是最好的方式，因为我只对部分数据感兴趣，并在使用数据后删除工作表：
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveSheet 'set to current worksheet name
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", ,"Please select text file..
浏览 5提问于2012-09-04得票数 24
回答已采纳
非常基础的VBA用户尝试学习！
我有3个工作表-输入，计算，输出。
我需要做的是将输入表中的数据(动态行数)复制到计算表中，然后将计算表上的结果复制到输出表中-然后移动到输入表中的下一行，将它们再次复制到计算表中(每次都可以覆盖)，然后将结果复制到下一行的输出表中。
因此，我将在输出工作表上得到与开始在输入文件上相同的行数。
这就是我到目前为止对第一行有效的方法，但我不确定如何将其用于下一行。
Sub sbCopyRangeToAnotherSheet()
Sheets("Input").Range("A2:E2").Copy Destination:=Shee
浏览 2提问于2021-06-14得票数 0
我希望用存储过程从表中导出数据，存储过程是在插入数据的SQL使用任何数据插入表时触发的。
当我使用pgAdmin控制台的查询工具执行一些SQL插入数据时，它已经工作了。我可以看到从表导出的文件。
我编写了VBA代码，用ADO将数据插入到该表。
当将一些数据插入到该表时，它可以在没有存储过程的情况下从该表导出文件。
我的意图是：
使用VBA，将数据插入表存储过程，该存储过程用于将数据作为文件从该表导出。
从控制台(如pgAdmin查询工具)，它可以工作。
从Excel文件的VBA中，它无法处理它可以为服务器创建文件的消息。
没有存储过程，VBA将数据插入到表工作中。
问题是我需要一个文件。
我猜
浏览 4提问于2021-09-08得票数 0
1回答
因此，目前我有以下VBA代码，它所做的是从专用目录中收集csv。 Sub UploadData()
' Define the relative variables
Application.ScreenUpdating = False
Application.Calculation = xlManual
' Define the variables necessary
Dim Path As String
Dim DataFile1 As String
Dim datasheet As String
Dim Temp_File_Name1 As String
Dim Fil
浏览 80提问于2021-09-13得票数 1
如果我言过其实了我的进退两难就道歉。我想要确保我很清楚。
我有一个带有宏的工作簿，它分析和合并了大量的数据。工作簿本身有两个工作表：“数据输入”和“输出”。数据输入在第一行中有宏按钮，因此数据从单元格"A2“开始。输出是将结束数据放置在单元格"A1“处的位置。
我想要做的是在宏的基础上，在一个进程中处理多个原始数据文件。请记住，没有任何原始数据文件将被打开。只有运行这个宏的那个。我希望工作簿本身：
每次从文件夹中的所有文件中提取工作表数据。此文件夹中将有可变数量的文件。(为了澄清，放在这个文件夹中的每个原始数据文件都是一个工作表，数据从单元格"A1“开始，文件的名称
浏览 0提问于2018-04-27得票数 0
回答已采纳
我的目标是使用几个工作表的部分来计算这些工作表中所选行的基本内容。
前面的方法是手动创建带有公式的行。假设我有单张："Input1"，"TranslateTable"，“计算”。然后“计算”中的第1行在单元格A1 Input1!A1*2中，B1将有Input1!B1 / TranslateTable!D1等等。公式行将使用VBA自动填充，递增used.This递增的行将工作，因为所有相关行都将使用VBA排序到输入表中的顶部行。每个月，除包含公式的行外，所有数据都将被删除，并将再次使用该月份相关输入行的数量自动填充数据。
我没有做到这一点，而且我认为改变输入数据只
浏览 3提问于2022-12-01得票数 0
我想做的是创建一个普通的Excel工作簿(.xlsx)，通过从启用宏的工作簿(.xlsm)复制一些工作表并粘贴到普通的Excel工作簿中，我总结了一些模拟的输入/输出。原始工作表具有宏、形状、命名范围、下拉列表和一些格式。我希望工作表的某些属性(命名范围、行和列格式、单元格格式)可以应用到新工作簿中，而不是其他属性(形状、下拉列表、宏)。我还必须将.xlsm工作簿分发给其他用户，因此我需要一个不需要用户授予权限的解决方案。
如果我像下面这样复制/粘贴，那么我将获得工作表的所有属性，以转移到新的工作簿。我已经知道如何从新工作簿中的工作表中删除形状和删除下拉列表格式，但如果不修改VBA引用，则无法
浏览 17提问于2020-03-09得票数 2
回答已采纳
如何将项目保存为xlsx？我试着用vba在excel中完成我的项目，但我知道如何保存它以供将来使用。如果我保存为excel工作表，vba将不会保存到它，我知道如何进行保存。有人对这个问题有想法吗？
任何人都能帮我。
浏览 5提问于2016-04-27得票数 1
回答已采纳
我是VBA的新手，我需要一些帮助来完成我的需要。我有两张工作表。一个工作表将具有根据用户输入而变化的整数。(B列工作表1).Another工作表将具有从1到255的常量整数，每次256次。(B列-表2-256 1,256-2....)(即总共65280个细胞)。我需要比较两个工作表中的两个B列，并将结果写入D列-工作表2。如果两个工作表中的两个列值都匹配，则结果列应等于B列sheet2。如果不是，则结果列应为0。我该怎么做呢？
对于较大的输入，Heard单元格比较将消耗更多的时间。有没有什么替代的方法呢？
浏览 0提问于2012-08-02得票数 0
回答已采纳
我有一个excel工作表，在这个工作表中，我需要在用户输入范围的时间列中填充一个单元格范围，时间间隔也是如此。
我可以使用For循环来实现这一点，但是有可能存在~50000+单元，并且向每个单元格写入需要很长时间。
我认为在VBA中有一种方法可以通过创建一个范围大小的数组，填充这个数组，然后将数组复制到工作表中来实现这一点？我对通用C风格的编程相当熟悉，但不太熟悉VBA。
如果在A1包含开始单元格(例如1)和B1包含结束单元格(例如100)、A2包含开始时间(00:00:00)和B2包含时间间隔(00:05:00)的情况下，如何使用VBA填充单元格D1:D100 (例如00:00:00，00:
浏览 1提问于2013-12-29得票数 1
回答已采纳
1回答
如何将Textjoin中的if条件传递到VBA等价物中？即。我目前在Excel中的工作公式是：
=TEXTJOIN("",TRUE,IF(M1:M100=1,N1:N100,""))
如果在M列中设置了标志，这将连接N列中的行。
我想要的是在VBA中复制它，类似于：
abc = WorksheetFunction.TextJoin(" ", True, IF(Range(M1:M100)=1,Range(N1:N100),"")
但似乎无法解决如何将标准传递给工作表函数。有什么想法吗？
我想这个问题也与WorksheetFunct
浏览 4提问于2022-03-10得票数 1
我正在尝试构建一个宏，该宏将将工作表从一个工作簿复制到另一个工作簿中的工作表。是否可以使用VBA代码手动选择要复制的工作表？
现在，只要我将完整的工作表名称输入到实际的VBA代码中，宏就能工作。理想情况下，我希望宏允许我通过对话框选择工作表。我知道你可以复制/粘贴纸或它的内容，但我的工作人员不想那样做，因为大小。
浏览 0提问于2016-07-15得票数 0
在Excel电子表格中，用户可以在列A中定义工作表的顺序
A B
1 Sheet3
2 Sheet4
3 Sheet1
4 Sheet2
5
一旦用户在列A中输入订单，他/她就可以单击一个链接到此代码的按钮：
Sub Move()
Sheets(Sheet1.Range("A2").Value).Move After:=Sheets(Sheet1.Range("A1").Value)
Sheets(Sheet1.Range("A3").Value).Move After:=Sheets(Sheet1.R
浏览 0提问于2018-07-03得票数 1
回答已采纳
2回答
工作表名是excel上的数据，在VBA中使用F4属性而不是sheet1，我已经将它更改为sData。
我的aql查询没有返回任何结果，我需要从VBA中同一个工作簿的数据表中提取一列。
我的代码是：
Sql = "Select productNumber from [shtData$] where produvtDesc = "&pDes&" "
'pDesc is a string variable that stores description.
这就是我们如何将工作表名称放在sql查询中的方式吗？我也尝试过数据$，但它不起作用。
请帮
浏览 2提问于2016-11-28得票数 0
回答已采纳
1回答
我有一张从A2到A7的桌子。单元格A1不属于该表。
只要单元格A1为空，下面的宏就正常工作，但当我在单元格A1中输入任何值时，宏就停止工作。VBA调试器说:无法运行run的AutoFilter方法(ErrorCode 1004)。
Public Sub FilterOnCellValue()
Dim nField As Long
With ActiveCell
nField = .Column - .CurrentRegion.Cells(1).Column + 1
.CurrentRegion.AutoFilter Field:=nField,
浏览 1提问于2020-08-04得票数 0
1回答
这是我之前在同一个工作簿上提出的几个问题的后续。
我有两个工作表，第一个是Car Search，它包含一个要填写的表单(不是VBA表单，只是一个看起来像表单的普通表格)。第二个工作表是Raw Data，它将包含在Car Search工作表中输入的所有信息。它将逐行显示(见第二张图)。
在Raw Data工作表中，我使用公式=""&'Car Search'!B3复制Car Search电子表格中单元格B3的内容。
我的问题是:如果我有一个新的Car ID值，如何将其自动输入到下面的行中？
本质上，我试图使用表单来捕获新车的所有数据，然后我希望所有这些数据都
浏览 8提问于2016-08-16得票数 1
背景
现在，我正在创建一个宏，以帮助在VBA中自动创建一些图形。但是，图形的创建需要完成特定的任务，例如，根据以前的实例，一个系列中的某些点要更大。我更愿意在python中进行数据操作。
问题
我想使用excel作为用户友好的界面，但希望处理Python中的所有数据操作。如何将我在VBA中创建的数据发送到python。为了澄清，我没有试图读取excel工作表中的特定单元格。
如果我在VBA中定义一个字符串，比如说.
Dim example_string as String
example_string = "Hello, 1, 2, 3, Bye"
如何将我在VBA中创建
浏览 4提问于2020-02-25得票数 1
回答已采纳
1回答
我搜索了多篇关于如何将工作表复制到另一个工作簿的帖子。在所有情况下，图纸名称都是已知的。
如果我在当前工作表上，如何创建将当前工作表和下两个连续工作表复制到新工作簿中的vba。工作表的名称每周都会改变，因此程序只需要选择当前活动的工作表和接下来的两个工作表。谢谢你的帮助。
浏览 4提问于2017-08-09得票数 1
VBA数组对我来说是新的，似乎有多种方法来创建字符串数组。
我想我需要创建一个
但是我找不到如何将传递给子例程的例子
根据用户范围的计数，我知道数组中需要有多少项(所以我可能不需要动态数组？？)。我很难将数组传递到另一个子例程。
思维过程如下：
遍历用户名列表
为每个表创建一个工作表
在我迭代时将每个用户名保存在数组中。
在另一个子例程中，选择我创建的所有工作表并将其保存为PDF。
下面是我的密码。我得到运行时错误9-子脚本超出范围(指数组对象)
我很感激你的帮助！谢谢!
Sub CreateAllDashboards(StartDate As Date
浏览 2提问于2014-12-31得票数 3
回答已采纳
我们需要编写一个Excel电子表格，其中包含VBA代码；该代码读取第一个工作表中的数据并对其执行操作。
用户将收到包含数据但不包含VBA代码的电子表格。我们需要能够自动将数据从包含数据的电子表格导入到包含VBA代码的电子表格中。包含数据的工作表与包含数据的电子表格的工作表具有相同的列格式和数据类型。
理想情况下，您应该打开包含VBA代码的电子表格，显示一个允许用户导航到包含数据的电子表格的UI，然后单击OK，数据将被导入。
你会怎么做呢？它必须使用Excel电子表格中的VBA来完成。
非常感谢。
浏览 1提问于2011-10-24得票数 13
回答已采纳
我正在尝试从另一个工作簿中捕获复制到工作簿中的工作表。
从其他工作簿复制工作表时，不会触发Workbook_NewSheet事件。只有当用户手动插入它们(Insert->Worksheet菜单选项)或通过VBA作为ThisWorkbook.Worksheets.Add添加新工作表时，才会触发它。
我试图捕捉的基本上是一个粘贴操作，它正在产生一个新的工作表。
这可能来自以下任何用户操作：
用户通过拖动现有工作表，保持控制键(这将添加新工作表)，用户从另一个工作簿复制工作表/s，用户从另一个工作簿中移动工作表
或以下任何一个VBA代码：
SourceWorkbook.Sheets(“Sour
浏览 10提问于2009-04-06得票数 3
回答已采纳
1回答
我试图弄清楚如何将文本文件(总是命名为tracks.txt)从不同的文件夹导入到一个工作簿中，其中包含以该文件夹命名的独立工作表。
基本上应该是这样的：
选择主文件夹
- select multiple sub-folders (which contain the tracks.txt)或
-从字符串开始在所有子文件夹中搜索(用户输入)
在新工作表中导入tracks.txt
将工作表名替换为子文件夹名
这有可能吗？
浏览 6提问于2013-03-11得票数 0
回答已采纳
1回答
因此，我正在处理一个项目，在这个项目中，我将一个excel文件导入到Access中，但是当我进行导入时( excel中的表标题与Access中的表标题相同)，我倾向于获得一堆额外的行，因为在我的excel文件中，我在大多数单元格后面都有函数，所以，即使它看起来是空的，访问也会传输那些行，即使实际上没有任何内容被输入到其中。
因此，我的问题是，在Access中使用VBA是否有一种方法，一旦导入excel文件，它就可以自动遍历特定表中的所有行，并根据特定的条件删除整行。就像在一行中有一个空字段一样，它将删除整个行。这将节省我大量的时间，而不是手动搜索表中的空白字段，并自己删除行。
我确实知道如何使
浏览 1提问于2013-07-11得票数 0
2回答
好的，我在Excel中有一个可变大小的数组。使用vba，我想找出是否有任何重复的值，这样相邻的值是相同的，而不仅仅是在整个列中。
我知道在excel中你可以使用if语句，但你怎么能使用for循环将其扩展到整个工作表。
我是vba的新手。这是我的第一次尝试，但它没有工作，我不知道如何继续。
total是用户输入的值
ok = True
For j = 2 To 24
For l =1 to total
If ActiveCell.Offset(j, l).Select = ActiveCell.Offset(j + 5, l)
And ActiveCell
浏览 1提问于2015-08-05得票数 1
我的帐单上有切肉机。其中一个切片器按月过滤数据。我正在尝试用VBA编写代码，它使用另一个选项卡上单元格中的值来更改切片器过滤器。在本例中，我的切片器从6到12。我想在另一个选项卡上的单元格G3中输入6，然后在VBA中使用该值来定义应该选择哪个筛选器 代码如下： ActiveWorkbook.SlicerCaches("Slicer_Quote_Month").VisibleSlicerItemsList = _
Array( _
"[Table_OpenSQ].[Quote Month].&[6]") 如何将"6
浏览 12提问于2019-06-18得票数 0
1回答
以格式从单元格中获取值
、、、
我使用VBA将几本工作簿中的一堆数据放入几个工作表中，然后处理这些数据。
WorkFlow:当我将数据放入工作簿时，首先将所有数据放入数组中，然后再将其输出到工作表中。
问题
当我输入数据时，我注意到一些“工时”或“工作订单号”数据以日期或日期的形式被拖到我的数组中，而这些数据应该是某种数字格式。
e.g.:
I should be getting: Number of Hours: 2; Work Order Number: 41235612
Instead, I am getting: Number of Hours: 0-Jan-00 (equivalent to 1/0
浏览 2提问于2014-03-19得票数 0
回答已采纳
我有一个工作簿，用来整理不同客户端的记录。一个工作表保存所有客户端(数据表)的所有记录。我希望在工作簿中有另一个工作表(客户工作表)，该工作表可以提取单个客户端的所有独特记录(它将位于该工作表上的数据验证输入单元格中)，并将它们加载到一个表中(从第5行开始)。对于每个客户端，将从数据表中返回不同数量的记录。我希望有一种VBA 'Load‘按钮，它将完成所有繁重的工作，因此您只需选择要在输入单元格中看到的客户端。 我的代码可以工作，但是当数据表中的ID列从大到小排序时(因为在列表顶部输入新记录更容易)，我会得到一个错误。此外，确实设法加载的记录是不正确的和重复的。如何将数据表ID列从大
浏览 22提问于2019-06-20得票数 2
1回答
我有一个Excel表单将数据输入到工作表中。工作表CC的最后一列包含计算某些输入字段的公式。这是一个很长但很简单的公式。
当我在表单中输入数据时，VBA表单本身中的一个字段会一直显示基于工作表列CC中的公式的输入结果吗？我不知道如何用VBA写那个长公式，所以想知道是否有办法绕过它。
如果不可能，那么在表单中输入数据时，有一个按钮检查结果如何？单击此按钮暂时将表单数据输入电子表格，填充CC单元格，结果显示为消息框，而VBA数据窗体仍处于打开状态。此结果消息框可以有两个按钮，确认条目或取消。如果单击“取消”，则删除电子表格中输入的数据。如果单击“确认”，则输入的数据保持不变。
如果有人能提出解决办
浏览 6提问于2012-12-20得票数 0
2回答
我有一个Access数据库，其中有一个带有文本框(名为c1)和一个按钮的表单。当我单击该按钮时，它将打开一个数据表表单，其中包含由textbox值过滤的信息。
按钮vba如下所示：
c1.Value = Replace(c1.Value, ",", " Or ")
DoCmd.OpenForm ("dsForm")
数据表后面的查询在设计视图中如下所示：
Field: Name1 | Name2
Criteria: | Like [Forms]![Menu]![c1].[value]
这是为了以后我可以导出这个查
浏览 4提问于2016-10-13得票数 1
5回答
我有下面的excel 2013 VBA片段
For Each r In rr
If Not r.Range.Height = 0 Then
FNum = FNum + 1
ReDim Preserve testArr(1 To FNum, 1 To 23)
testArr(FNum) = r
End If
Next r
我的目标是将筛选过的表中的所有可见行都放到数组中。
表可以是任意数目的行，但始终有23列。
我发现，如果它是隐藏的，它的高度将为零。但是对于我的生活，我不知道如何将整个行放入数组中。
R= listrow rr =listrow
是的，我知道循环的
浏览 4提问于2016-11-29得票数 1
回答已采纳
我有54个excel文件，每个文件有三个工作表，每个工作表有不同数量的数据条目，但它们以相同的格式列出，我需要使用VBA将这些工作表中的数据导入到单个工作簿中。
有没有办法对它进行编程，这样我就可以构建循环来导入数据，而不必为每个循环/工作表写入每个工作簿的名称？我想我可以使用call函数，但我不知道如何使循环代码独立于它们所应用的工作簿名称。
提前谢谢你，
米莉
浏览 0提问于2011-01-06得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
