EXCEL VBA -具有2个日期的Do While循环
EXCEL VBA是一种用于在Microsoft Excel中编写宏的编程语言。它可以帮助用户自动化执行各种任务，提高工作效率。在EXCEL VBA中，Do While循环是一种常用的循环结构，用于在满足指定条件的情况下重复执行一段代码。
具有2个日期的Do While循环可以用来比较两个日期之间的差异，并在满足一定条件时执行相应的操作。以下是一个示例代码：
Sub DateLoop()
Dim startDate As Date
Dim endDate As Date
startDate = #1/1/2022# ' 设置起始日期
endDate = #1/31/2022# ' 设置结束日期
Do While startDate <= endDate
' 在此处编写需要执行的代码
' 可以使用startDate变量进行日期相关的操作
startDate = startDate + 1 ' 递增日期
Loop
End Sub在上述示例中，我们首先定义了两个日期变量startDate和endDate，并分别设置了起始日期和结束日期。然后使用Do While循环来判断startDate是否小于等于endDate，如果满足条件，则执行循环内的代码块。在代码块中，可以编写需要执行的操作，可以使用startDate变量进行日期相关的计算和操作。最后，通过startDate = startDate + 1来递增日期，以便在下一次循环中比较下一个日期。
这种具有2个日期的Do While循环在实际应用中非常常见，例如可以用于生成某个日期范围内的报表数据、计算日期之间的天数差、筛选符合特定日期条件的数据等。
腾讯云提供了一系列与Excel相关的产品和服务，例如腾讯文档、腾讯会议等，可以帮助用户在云端协作、共享和处理Excel文件。您可以通过访问腾讯云官方网站（https://cloud.tencent.com/）了解更多相关产品和服务的详细信息。
相关·内容
使用开始日期和当前日期之间的日期填充excel中的行。人口是每周一次的，下面是我做的函数。它工作得很好，直到它不会停止，而是无限地继续运行，直到出现溢出错误，因此我的假设是CurrentDate没有正常工作。
使用的两个日期是StartDate = 04/1/2016和CurrentDate = 12/07/2017。
如有任何帮助或建议，将不胜感激。
Public Function PopulateStartOfWeekDates()
Dim wsCRC As Worksheet
Set wsCRC = Worksheets("CRC")
Dim
浏览 7提问于2017-07-12得票数 0
我是一个全新的VBA用户，正在尝试根据日期范围复制和粘贴数据。在第一列中我有日期，在第二列中我有我想要复制和粘贴的数据。CurYear指的是我正在查找的范围内的结束日期，而StatDate指的是我正在查找的范围内的开始日期。当我运行这段代码时，它会使Excel崩溃。请帮帮忙，我很迷茫
Worksheets("Weekly").Select
Dim nRows As Integer
Dim CurYear As Date
Dim StartDate As Date
nRows=Range("A1").CurrentRegions.Count.Rows
CurY
浏览 11提问于2016-07-19得票数 0
回答已采纳
2回答
我在脚本编写方面几乎没有经验，我正在尝试使用VBA在excel中重新排列大量数据。该脚本仅遍历内循环，而不运行外循环。有没有什么原因呢？
谢谢!
Row = 6
Column = 5
Destinationrow = 6
Destinationcolumn = 19
Do While Column <= 16 And Destinationcolumn <= 30
Do While Row <= 561 And Destinationrow <= 92
ActiveSheet.Cells(Row, Column).Select
Select
浏览 1提问于2014-09-16得票数 0
2回答
我有一个Excel VBA程序，它遍历数据表中的每一行数据。
我的目标是在布尔值bFound设置为True后退出while循环。
我认为我的条件"Or bFound=True“可能是不正确的。
bFound = False
While Sheets("Data").Cells(iRow, 1) <> "" Or bFound = True
If Sheets("Data").Cells(iRow, 11) = Sheets("Data2").Cells(iRow, 1) Then
bF
浏览 6提问于2015-09-26得票数 7
回答已采纳
1回答
我有个很简单的问题。我试图在Excel中嵌套两个"Do While“循环。下面的测试代码复制了我所遇到的问题。
下面的代码应该生成12个消息框。9对于嵌套循环，因为它被触发了三次，主循环也被触发了三次，主循环还有三个消息框。
我发现这两个循环是串联的，好像它们不是嵌套的，所以我总共得到了6个消息框。
我确信我以前在VBA中使用过嵌套循环，没有问题(尽管现在我可能需要回去检查)。
为什么嵌套循环在一个系列中运行呢？它在你的电脑上表现如何？我是不是遗漏了一个简单的语法错误？
Sub test()
i = 0
m = 0
Do While i < 3
浏览 1提问于2021-02-15得票数 2
回答已采纳
vba的新特性。我有一个更新excel工作簿的Access数据库。到目前为止，我所做的就是将这组记录附加到数据选项卡的底部。 我需要构建的是，在附加VBA所需的数据之前，我需要在“数据”选项卡上的“日期”列中检查工作簿中的今天日期。如果它找到今天的日期，就不应该追加数据。 我知道我需要max(日期列)或DMax，但是我不知道如何构建它。完全迷惑了自己，所以我请求帮助，而不是在杂草中获得更多。 Public Sub max_Click()
verintreportTemplate2 = "Template_VerintSchedulesResults_EST.xlsx"
re
浏览 26提问于2020-07-07得票数 1
回答已采纳
我在excel中有一个列，其日期如下所示。
当我使用worksheet.cells(row，col)读取数据时，它是字符串格式
8/10/2019 : 9:01:00上午8/6/2019 :01:00 8/22/2019 :01:00上午8/18/2019 :01:01:00上午8/14/2019 :01:00
目的是获取最早的日期和最新的日期，并使用这些过滤器在另一个excel。
有更简单的方法从日期列中获取这两个日期吗？
对于上面的例子，我想要earliestDate = 08/06/2019和latestDate = 08/22/2019
我不广泛地使用VBA，这是我第一次使用，我正在更
浏览 1提问于2019-08-25得票数 0
回答已采纳
2回答
我想要一个excel文件保存(戳时间)每30分钟，并通过电子邮件本身给我。我已经将文件保存并发送给我。但是，当我尝试连续30分钟这样做时，我遇到了问题。下面是我的代码，大家有什么想法吗？我试着做一个循环函数，所以当A1 =0时，它会继续运行，但当我点击停止按钮时，它会改变A1 = 1，基本上停止。我也希望能够运行这个程序，并且仍然能够使用excel而不被打扰，你有什么想法吗？
Option Explicit
Private Sub CommandButton1_Click()
Range("A1").Value = 0
Do While Range("A1")
浏览 1提问于2014-08-17得票数 0
在excel 2010 vba中，我试图列出特定目录中的所有.txt文件，并在消息提示符中显示它们。我希望下面是一个好的开始，但不确定。谢谢:)。
vba
' LIST ALL TEXT FILES IN REPORT DIRECTORY '
Const strFolder As String = "C:\aCGH\"
Const strPattern As String = "*.txt"
Dim strFile As String
strFile = Dir(strFolder & strPattern, vbNormal)
Do W
浏览 5提问于2016-08-22得票数 0
回答已采纳
1回答
我在WiseOwl网站上找到了以下代码。我试图找到一个工作的例子(学习)如何输入一个搜索字符串到谷歌搜索字段。我一直收到一个调试错误462，并且不能通过这个错误。导致问题的线路是：
ieApp.Document.getElementById("gbqfqw").Value = "Excel VBA"
我的总代码是：
Sub FillInBBCSearchForm()
Dim ieApp As New SHDocVw.InternetExplorer
ieApp.Visible = True
'go to the website of inter
浏览 3提问于2015-08-10得票数 1
我正在编写一个VBA代码，其中我输入了以下格式的日期: YYYY-MM.。然后，我希望在excel工作表中找到具有此特定值的单元格，并从同一列中的另一个工作簿中复制数据。 例如，如果我输入"2019-04"，我想要找到具有该值的单元格，并使用该日期特定文件中的数据填充该单元格下面的列。 我尝试过使用for循环来做这件事，但是一直做不到。
浏览 12提问于2019-06-19得票数 1
1回答
我对Excel很陌生。我需要在VBA Excel中评估和积。
这是我的工作表：
单元格D4包含特定日期(突出显示黄色)
单元格D6包含新输入的日期(突出显示红色)
列C包含图例。(高亮显示粉红)
列J包含月份。(突出显示绿色)
列K包含该特定事务的图例。(突出显示橙色)
第一列包含要加和的值(突出显示的蓝色)
列D9将显示sum乘积的结果(突出显示灰色)
我想做的是：
我将在Cell# D6中输入一个日期，该日期应该在J列的月份与单元格D6匹配的情况下与第I列相加，如果匹配，则将K列的图例与C列中的图例相匹配，如果再次匹配，则将第一列和并在列D9上
浏览 1提问于2016-09-01得票数 2
3回答
我正试图为"while“循环创建一个规则。
我想循环一下，同时：
下一个"A“单元格不是空的
和
下一个单元格的背景色与10092390不同。
我尝试了这个VBA代码，但是Excel不接受它：
While (IsEmpty(Cells((Last + 1), 1)=False) And Not ((Cells((Last + 1),1)).Interior.Color) = 10092390)
浏览 4提问于2020-08-05得票数 0
回答已采纳
1回答
我有一个问题，在For循环中，我的Do While循环只执行一次。我努力做到以下几点：
我有一堆excel文件(*.xlsm)，位于同一个文件夹中，其中包含了一些员工的数据，我想遍历每个文件并得到一个特定的数字。到目前一切尚好。当我想“更改”员工的名字时，问题就变成了。
考虑到以下代码：
Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
With FldrPicker
.Title = "Select A Target Folder"
.AllowMultiSelect = F
浏览 0提问于2018-10-31得票数 0
回答已采纳
在VBS/VBA中是否有退出/中断while的方法？
以下代码不会按预期工作：
num = 0
while (num < 10)
if (status = "Fail") then
exit while
end if
num = num+1
wend
浏览 1提问于2009-08-13得票数 30
我在excel单元格中有一个自定义格式的dd.mm.yyyy hh:mm的开始日期和结束日期。我需要的是用从开始日期到结束日期增加半个小时的日期填充特定的行，使用VBA代码。我也不知道该怎么做。
在网上有一些类似的问题，但只有几个月或只有几个小时，这些是日期，格式，而不是自定义。
浏览 0提问于2018-10-11得票数 0
回答已采纳
1回答
我试图用VBA编辑我的excel表，但是编译时会出现一个错误。它不认识第2行和第10行。
Sub IfThenElse()
Dim i As Integer = 23
While Not IsNull(Cells(i, 35).Value)
If Cells(i, 35).Value > 1E+16 Then
Cells(i, 4).Value = Cells(i, 35).Value / 10
Else
Cells(i, 4).Value = Cells(i, 35).Value
浏览 2提问于2021-12-21得票数 0
4回答
我正在为Excel写一些VBA，我需要弄清楚当前或即将到来的星期六的日期 所以如果是星期五，我需要得到明天的日期(星期六)。 如果今天是星期六，那么我只想要今天的日期。 如果今天是星期天，我需要昨天的日期。 如果是星期一，那就下星期六 我想知道Excel或VBA中是否有什么可以帮助我完成这项任务
浏览 19提问于2017-08-03得票数 2
回答已采纳
1回答
因此，我正在尝试为我的工作编写一个Excel vba计费存档/跟踪表单，而且我对excel VBA非常陌生。任何帮助都将不胜感激。基本上，我希望我的用户表单在底部的表格中输入账单日期，然后取所选部分的总和(A1-A19)，并将总和输入到输入账单日期左侧最近的空单元格。如果是第一个计费周期，那么我只想调用Total Total项目中的美元金额，并将该值放在输入计费日期的右侧。附件是我的Excel表格和用户表单的片段。非常感谢你的社区！
'Creates "LastRow" variable
If Range("D47").Value = "&#
浏览 2提问于2016-03-23得票数 0
1回答
遍历集合
、、
我有一个正在尝试遍历的集合，我不能做任何问题。我想要实现的是看到集合中的下一个对象，但是我找不到任何关于这个对象的东西。
我尝试在if语句中使用(+ 1)来向前看，但这似乎不起作用。
For each a in CollBlank
if CollBlank(a + 1) <> "some value" then
'do code
end if
Next
理想情况下，我希望能够向前看。
Access-vba & excel-vba是有标签的，因为集合在access和excel中都有使用，我个人现在在Access中使用它，但大
浏览 14提问于2019-08-06得票数 2
回答已采纳
微软在VBA的Range.Find函数中的条目有以下代码作为示例()：
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing
E
浏览 0提问于2020-08-03得票数 0
回答已采纳
可以在excel工作表中创建while循环吗？我不想使用VBA或其他工具，只想使用excel工作表。我正在寻找一种通用的解决方案来解决以下问题：
condition_met = False
while not condition_met:
...
...
if (some_condition):
condition_met = True
浏览 45提问于2015-05-18得票数 0
1回答
有人能指导我如何在VBA中动态创建日期选择器控件吗？这就是我想要做的。我有一个宏，它根据最终用户是否希望它可见，动态地将TextBox和ComboBox控件添加到VBA用户表单中。可见性(以及所有其他控件属性-宽度、高度等)由最终用户控制，方法是根据excel中“主控件”表中提供的控件名称更新“是/否”值。
这就是我对TextBox和ComboBox控件所做的
`sub test()
---- some code
Dim txtTextBox As MSForms.TextBox
Dim cmbComboBox As MSForms.ComboBox
If 'some ce
浏览 0提问于2016-08-24得票数 2
1回答
我试图使用Do While循环将数据从ASP Classic Application导出到Excel表格。在导出过程中，错误(我猜是-损坏的日期)发生在循环内部，因此导出失败，并且没有到达应该输入结束标记的位置。
//get data from the database into DataContainer
Do While Not DataContainer.eof
response.write "<Row>"
response.write "<Cell><Data Type=""N
浏览 2提问于2018-05-21得票数 0
1回答
我正在重新查看Excel中的一些旧代码，并试图将其转换为访问VBA。
该代码获取一系列数字(“零”)，并计算一个简单的加权平均值，权重为"Lambda“。此计算和此代码工作良好，并已被验证为正确。
Excel代码如下。
Option Explicit
Function EWMA(Zeros As Range, Lambda As Double, MarkDate As Date, MaturityDate As Date) As Double
Dim vZeros() As Variant
Dim Price1 As Double, Price2 As Doubl
浏览 0提问于2016-06-13得票数 0
回答已采纳
3回答
我希望您能帮助解决我正在尝试解决的一个VBA问题。
我的情况:我有多个txt文件作为搜索特定字符串("tflux")的输入。在每个txt文件中都存在该字符串，因此不可能找不到它。我已经写了下面的代码，但我找不到一种方法来告诉excel，在复制与找到的字符串相关的值后，它必须将下一个找到的值下移一个单元格，以便找到与它搜索的下一个文件相关的值。虽然我还没有尝试，但我也希望excel将文件名打印在数字旁边，以确保这些值与某个文件名相对应。
到目前为止我的VBA代码：
Sub CommandButton1_Click()
Dim strF As String, strP A
浏览 0提问于2017-01-29得票数 1
下面的代码是VBA for Excel。我使用的是Excel2007附带的Visual Basic编辑器。
Dim counter As Integer
counter = 1
While counter < 20
counter = counter + 1
end while '<- the compiler is complaining about this statement
代码不能编译。在代码上面，我只有声明。根据的说法，这应该是可行的，但它没有。发生了什么？
浏览 2提问于2012-03-16得票数 28
回答已采纳
2回答
很抱歉，如果这已经发布了-我找不到一个特定于Excel (也是因为我的糟糕的代码，我缺乏经验的VBA)。我试图将多个文件整理到一个工作簿中，在不同的工作表下。它大部分都在工作，但是在If Else语句中，如果满足了条件，循环就会中断，而不是继续处理文件夹中的其余文件。其他部分是循环的。我认为Do While filename <> ""会覆盖if/ that语句。
它不适用于我只是添加“和循环”(猜测这是无效的代码)，所以我不知道我应该添加什么，或者我是否应该绕开这条路。
谢谢你的帮助!
Sub AllFiles()
Dim folderPath As St
浏览 1提问于2018-12-03得票数 1
回答已采纳
我正在尝试使用Excel VBA来生成两个数字。介于1和11之间。如果数字相等，则应从随机重新生成第二个数字。如果第一个是8或9，那么第二个不应该是8或9。如果是，它应该再次从随机生成。
下面是我的代码：
Sub Foo()
Dim thisNum As Integer
Dim thatNum As Integer
thatNum = Int((11 * Rnd) + 1)
thisNum = Int((11 * Rnd) + 1)
Do While thisNum = thatNum
thatNum =
浏览 1提问于2013-05-16得票数 0
回答已采纳
1回答
我有一张Excel表格。它的构建如下：
|Information on food|
|date: April 28th, 2021|
|Person|Email|Apples|Bananas|Bread|
|------|-----|------|-------|-----|
|Person_A|person_A@mailme.com|3|8|9|
|Person_B|person_B@mailme.com|10|59|11|
|Person _C|person_C@maime.com|98|12|20|
表中还有一个日期字段。对于测试，可以将其设置为todays。
根据这些信息，我正在寻找一
浏览 28提问于2021-05-14得票数 0
回答已采纳
1回答
我需要优化一些VBA，它目前在功能上工作。
给定连续日期列(B列)和时间列(C列)，并给定时间窗口(T1和T2)，返回日期和时间属于T1和T2的范围。例如，我想要这两次之间的最小和最高价格。
目标是为Excel烛台图表构建开放/高/低/关闭图表，而且数据源有超过26万行数据。
我目前有以下代码
Dim priceRange As Range
startRowNum = GetFirstRow(StartTime) << THIS TAKE 10 SECONDS
endRowNum = GetLastRow(endTime) << THIS TAK
浏览 0提问于2019-08-18得票数 0
我有一个excel文件，其中存储在列中的一些文本和关键字。
我想使用excel中的数据，用vba在Word中进行一些高级搜索。但是我在尝试将数据从excel单元格转置到vba word中的数组时遇到错误。
我使用过transpose excel函数，但它不能处理超过255个字符，因此我无法获得超过255个字符的单元格的值。
如果有人能帮我一把，我将不胜感激。
Option Explicit
Dim strArray
Dim range As range
Dim i As Long
Dim numberOfUniqMatches As Integer
Di
浏览 4提问于2017-07-25得票数 0
回答已采纳
我对VBA有点陌生，我最近才开始在excel中使用它，并且遇到了一个障碍。
我正在创建一个人行横道，以便将我的数据上传到一个商业智能应用程序。不幸的是，我没有连接到数据库来运行我的报告，所以我必须用excel来完成这个任务。我遇到的问题是，我们的应用程序中有一个错误，在excel文档中的第1000行之后，它将跳过第1000行。我们的开发团队知道这一点，但是没有ETA来解决这个问题。作为一项工作，我试图使用VBA将第1000行(从2000年开始)复制到同一页的末尾。
我目前已经编写了在单个工作表上工作的代码，但是我有几个有超过1000行的页面，所以我尝试将这些工作表的名称输入一个数组中，并循环每
浏览 2提问于2016-10-26得票数 0
回答已采纳
1回答
在使用Visual Basic执行简单的while循环时，我遇到了Excel崩溃的问题。这个想法是，我想选择并复制表中属于第一列中定义的某个“批处理”的所有行 Sub Copy5Cells()
lColumn = Range("C7").End(xlToRight).Column
StartRow = ActiveCell.Row
Batch = Cells(StartRow, 1).Value
ControlBatch = Batch
MsgBox ControlBatch
Do Until (ControlBatch <> Batch)
nextRow =
浏览 28提问于2021-11-20得票数 1
回答已采纳
我正在自学如何使用VBA在Excel中操作Excel文件的openXML元素。
我有VBA代码，它允许我创建一个CustomXMLPart，添加一个CustomXMLPart，并读取/更新这些内容(属性)。
我的代码只能在ActiveWorkbook上运行。这意味着必须打开特定的Excel文件。
可以从VBA中访问已关闭的Excel工作簿的CustomXMLParts吗?我该如何操作？我知道这些文件包含在压缩存档中，但是虽然有一个特定的文件夹来存放它们，但是没有一个特定的‘文件’带有'load‘的.XML扩展名。
一般的方法和可能简单的特定代码示例将对我有所帮助。
浏览 1提问于2013-06-14得票数 0
1回答
我有一个基于日期的Excel数据透视表。我想强制用户报告为1，仅1年加1，仅1个季度。有没有办法在过滤器或切片器中做到这一点，或者我应该在VBA中强行实现它。我对Access和Word中的VBA非常熟悉，但在Excel中对VBA却没有太多的了解。谢谢!
浏览 9提问于2018-08-02得票数 0
1回答
我在Microsoft中有一个包含3列的数据库。最后一列是格式为：：May的日期(例如:20-5-15-22:31:38)。我成功地导出了Excel中的其他2列，但当我试图导入最后一列时，它会给出下一个错误：“运行时错误'3265'：应用程序定义的或对象定义的错误”。
我的vba脚本是：
Private Sub CommandButton1_Click()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim r As Integer
Set con = New ADODB.Conne
浏览 1提问于2015-06-09得票数 0
回答已采纳
3回答
我使用的是VBA的While...Wend循环。
Dim count as Integer
While True
count=count+1
If count = 10 Then
''What should be the statement to break the While...Wend loop?
''Break or Exit While not working
EndIf
Wend
我不想使用‘`While count<=10...Wend’这样的条件
浏览 0提问于2012-08-30得票数 117
回答已采纳
我有一个多维数据集连接到excel中的轴心点。在一个单元格中，我通过以下公式显示“最新更新”值：
=CUBEVALUE("CUBE NAME";"[Measures].[Last Data Update]")
excel从多维数据集中获取更新时间并更新单元格需要5-10秒。因此，如果我在紧跟其后关闭工作簿，当我重新打开该工作簿时，它将只显示n/a。
我已经安排这个wb通过另一个每天运行的wb自动更新(在其他wb中)。这样我就得到了n/a问题。我看到了两个我不知道如何找到的解决方案：
1，暂停宏10秒，以便它可以正确获取日期。-我已经尝试了等待和睡眠Vba，但这也
浏览 3提问于2016-08-10得票数 1
1回答
对于我正在尝试的任务，我已经寻找了解决方案，但没有找到解决方案。我是VBA的新手，所以学习的曲线是陡峭的。这就是我想要做的：
在Excel 2010/2013中，我有一个工作表，在前9行中有固定内容，从第10行开始，B列中有连续日期的数据行。我需要用户能够评估工作表中所有日期的某个子集内的数据。
例如:用户在单元格K1中输入值"06/15/15“，在单元格N1中输入值"06/19/15”。第10行到第20行各包含一条记录，列B是每条记录的日期字段。在此示例中，单元格B10包含日期06/12/15到单元格B20，其中包含日期06/22/15。我需要代码来查看单元格K1和N1的内容
浏览 1提问于2015-08-16得票数 1
3回答
这是一个非常基本的问题，不要对我大喊大叫，因为我不是vba专家。
在这里，我创建了下面的vba函数
Public Function GetDuplicateCount(value As String) As Integer
Dim counter As Integer
counter = 0
With Worksheets(1).Range("A:A")
Set c = .Find(value, _
LookIn:=xlValues, _
LookAt:
浏览 2提问于2013-08-09得票数 2
1回答
作为VBA (Excel)的新手，我正在尝试制作一种工具，它可以确定某项测试的诊断效率；以便作为另一项诊断测试的预筛选具有成本效益。
我想要它做的是计算测试A的某个收益率，在测试B的收益率下，两个测试的每个诊断成本是相同的。我编写的代码必须循环一定的范围以获得诊断收益，并在测试A的每次诊断成本低于测试B的每次诊断成本时退出此循环。
但是，代码会在这个范围内保持循环，但不会在满足我的成本条件时停止。我尝试了很多方法，包括do while和do until语句，但就是不起作用。我真的希望有人能帮我解决问题！首先要感谢大家！柯尔斯腾
Sub TGP_WES_OR_WES()
Dim Yiel
浏览 2提问于2015-06-15得票数 0
1回答
我有一个非常大的Excel电子表格，其中包括地址。我想写一段代码自动打开，将地址逐个粘贴到搜索框中，获得这个地址的最佳学校名称，然后将它们粘贴到Excel文件中。
我使用这段代码来粘贴网页中的一个地址，但是当它粘贴并按下搜索按钮时，它不会显示任何结果。
Sub SearchBot()
'dimension (declare or set aside memory for) our variables
Dim objIE As InternetExplorer
'special object variable representing the IE browser
Dim a
浏览 4提问于2018-01-23得票数 1
2回答
在VBA for Excel中：
For i = 0 To UBound(artMaster)
For j = i To UBound(artMaster)
If i <> j And artMaster(i).VDN = artMaster(j).VDN Then
Call DeleteArrayItem(artMaster, j)
End If
Next j
Next i
在删除一个数组项之后，如何减少循环的迭代次数？
浏览 0提问于2012-03-21得票数 3
回答已采纳
有许多联机资源演示了如何在VBA Excel中使用Microsoft Internet Explorer控件来执行基本的IE自动化任务。当网页有一个基本结构时，这些方法就会起作用。但是，当网页包含多个框架时，它们可能很难处理。
我需要确定网页中的单个框架是否已完全加载。例如，这段VBA Excel代码打开IE，加载网页，遍历Excel工作表，将数据放入网页字段，执行搜索，然后将IE结果数据返回给Excel (很抱歉，我遗漏了站点地址)。
目标网页包含两个框架：
1)用于输入搜索值并执行搜索的searchbar.asp框架
2)显示搜索结果的searchresults.asp框架
在这个结构中，
浏览 4提问于2012-06-09得票数 2
我正在尝试编写代码，从Excel中读取一个值，在基于web的内部系统中查找它，并将结果存储回Excel中。它读取Excel没有问题，打开Internet Explorer也没有问题，但是当我尝试引用已经打开的内容时，我得到了上面的错误。行"Set url“可以工作，但是下一行”Set DOC = ie.Document“会产生错误。你知道这是什么原因吗？下面是我的代码：
Public Sub getClient()
Dim xOpen As Boolean
xOpen = False
Dim row As Long
Dim xL As Excel.Applicatio
浏览 0提问于2017-02-23得票数 6
回答已采纳
1回答
我对Excel中的VBA和宏非常陌生。我有一个非常大的excel电子表格，其中A列保存日期。我正在尝试删除那些只有今天的日期的行，这就是我到现在为止想出的。
Sub DELETEDATE()
Dim x As Long
For x = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
Debug.Print Cells(x, "A").Value
If CDate(Cells(x, "A")) < CDate("Now()") Then
浏览 5提问于2022-04-26得票数 1
在VBA子例程中，我将值写入在单独的Excel进程中运行的另一个“目标”工作簿，如下所示：
Set xlWB = GetObject(STR_TARGET_WORKBOOK_FILENAME)
xlWB.Worksheets(STR_TARGET_SHEET).Range("B1").value = Now()
在向目标工作簿写入值时，我希望暂停计算。如果它运行在与这个VBA相同的Excel进程中，我可以直接执行Application.Calculation = xlCalculationManual。
如何在运行目标工作簿的Excel进程中获取和设置Application.C
浏览 19提问于2021-03-12得票数 2
回答已采纳
4回答
我有这样的代码：
Dim cityList()
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\xyz\Desktop\Test\Cities.xlsx")
objExcel.Visible = True
i = 1
x = 0
Do Until objExcel.Cells(i, 1).Value = ""
ReDim Preserve cityList(x)
city
浏览 2提问于2016-05-16得票数 1
我有一个要在多个excel工作簿中运行的Excel VBA脚本。它们都存储在一个文件夹中。我以为下面的代码可以工作，但是什么也没有发生。我甚至没有得到任何类型的错误。(PSAT是我要在所有工作簿上运行的VBA脚本的名称)。
Sub Batch()
MyPath = "T:\Program Evaluation\Sam\AP Potential\School Reports\Reports"
MyTemplate = "*.xls*"
MyName = Dir(MyPath & MyTemplate)
Do While MyN
浏览 4提问于2014-02-25得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
