VBA Application.Ontime错误438。对象不支持此属性或方法
VBA Application.Ontime错误438是一种常见的错误，表示对象不支持此属性或方法。这个错误通常发生在使用VBA的Application对象的Ontime方法时，可能是由于以下几个原因导致的：
- 对象名称错误：请确保你正在引用的对象名称是正确的，包括大小写和拼写。
- 对象不支持Ontime方法：Ontime方法只能在Workbook和Worksheet对象中使用，如果你尝试在其他对象中使用该方法，就会出现错误438。请确保你正在正确的对象中使用Ontime方法。
- 对象未被正确初始化：在使用Ontime方法之前，你需要确保相关的对象已经被正确初始化。例如，在使用Worksheet对象的Ontime方法之前，你需要确保已经打开了相关的工作表。
解决这个错误的方法包括：
- 检查对象名称：仔细检查你正在引用的对象名称，确保没有拼写错误或大小写错误。
- 确认对象支持Ontime方法：查阅相关的文档或参考VBA的官方文档，确认你正在使用的对象是否支持Ontime方法。
- 确保对象已初始化：在使用Ontime方法之前，确保相关的对象已经被正确初始化。例如，在使用Worksheet对象的Ontime方法之前，确保已经打开了相关的工作表。
如果你正在使用腾讯云的相关产品进行开发，可以参考以下链接获取更多信息：
- 腾讯云VBA开发文档：链接地址
请注意，以上答案仅供参考，具体解决方法可能因个人情况而异。如果问题仍然存在，请参考相关的VBA文档或寻求专业的技术支持。
相关·内容
1回答
我需要在启动时运行VBA代码，然后每隔两分钟运行一次。
Private Sub Application_Startup()
Call doThis
End Sub
Private Sub checkEmail(Item As Outlook.MailItem)
'lots of code here
End Sub
Sub doThis()
Dim myInbox As Outlook.Folder
Dim ToPrint As Outlook.Folder
Dim myName
浏览 1提问于2016-04-03得票数 0
1回答
我回答了的问题，显然令OP满意，但仍然觉得他们的问题令人费解。他们的问题涉及一个表达式，其中一个工作簿对象与一个字符串连接，触发Run-time Error '438': Object doesn't support this property or method。只需键入以下命令，就可以复制这种错误。
?"Hello, " & ThisWorkbook
就在眼前的窗口。
我的问题是--为什么这会导致错误，而不是13型错配？合理的猜测是，VBA试图为工作簿对象找到默认属性，而默认属性不存在。但是，如果是这样的话，我希望它是来自微软的VisualB
浏览 0提问于2016-06-21得票数 18
回答已采纳
我有一个宏，它在Excel2010中工作得非常好。我现在尝试使用Excel 2016 / 365运行此文件，宏弹出运行时错误438: Object不支持此属性或方法。它基本上关闭并重新打开我正在处理的当前Excel文件，忽略要保存的任何消息，也不管我是否为只读。如果有人能帮上忙，那就太棒了。代码如下。提前谢谢。 Sub reopen2()
Application.DisplayAlerts = False
Dim wb As Excel.Workbook
Set wb = ThisWorkbook
Dim pth As String
pth = wb.FullName
Applicat
浏览 38提问于2019-12-05得票数 1
回答已采纳
我的主要目标是创建一个自动调整大小的命名范围。
一种常见的方法是在Excel中使用OFFSET公式，并使用CountA动态确定高度和/或宽度参数值。我想用VBA来做这件事。为了简单起见，我后退了一步，只专注于让OFFSET运行并返回一个范围。我有以下代码：
Public Function testfn()
Dim r As Range
On Error Resume Next
Set r = WorksheetFunction.Offset(Worksheets("MAIN").Range("H85"), 0, 0, 1, 2)
Debu
浏览 1提问于2018-01-09得票数 0
回答已采纳
根据我对运行时错误438的理解，它表明二进制兼容性问题，如引用的ActiveX库与分布式库不兼容。我看不出为什么像CLng或Round这样的基本VB6过程会产生这个运行时错误。
Dim X as Integer
Dim Y as Single
Dim result as Long
X = GetX() ' Returns 0
Y = GetY() ' Returns 0.75
result = CLng(X / Y) ' throws runtime error 438
result = Round(X / Y) ' throws runtime erro
浏览 1提问于2011-03-19得票数 1
回答已采纳
当我为我的文本框调用SetFocus时，它抛出这个错误：
Run-time error '438':
Object doesn't support this property or method.
SetFocus在Excel2013中是否随时可用，或者我是否需要修补或更新Excel中的任何组件？
浏览 0提问于2013-04-29得票数 0
回答已采纳
2回答
项目中字段中的更新日期
、、、
我在用VBA更新MS项目字段时遇到了以下问题：
我试试看：
For Each t In ActiveProject.Tasks
'The following displays correctly Mo 14.05.18
Debug.Print Format(CDate("14.05.18", " ddd dd.mm.yy"))
'The following results in an error 438 (Method not supported)
t.Datum3 = Format(CDate(&#
浏览 3提问于2018-01-26得票数 1
回答已采纳
2回答
我创建了一个用户定义的函数。我试着用我的宏来称呼它。
当代码使用我的函数到达一行时，我会得到一个运行时错误。
'438'：对象不支持这个属性或方法？
Function SMM(incentivebeta As Double, agebeta As Double, intercept As Double, incentive As Double, age As Double) As Double
SMM = 1 / (1 + Exp(-(intercept + incentivebeta * incentive + agebeta * age)))
End F
浏览 0提问于2018-12-06得票数 0
回答已采纳
2回答
我正在尝试使用VBA代码发送电子邮件，函数正在工作，电子邮件也已发送，但问题是当函数结束时出现“运行时错误438对象不支持此属性或方法”
代码如下：
Public Function SendEmail(ItemName As String, Total_Qnty As Integer)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy wit
浏览 0提问于2013-07-30得票数 0
我创建了一个外接程序，它将工作表添加到工作簿中，并导入多个模块。然后，我希望外接程序运行一个子例程，该子程序现在在活动工作簿中。到目前为止，这就是我所拥有的，并且运行时错误'438'：Object不支持这个属性或方法。
什么是正确的语法(如果它甚至可以做)。谢谢。
' Class name is EventClassModule
Public WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name = "Just To Test
浏览 5提问于2014-01-07得票数 2
回答已采纳
我正在尝试创建一个宏，它将用户表单文本框中写入的任何内容输入到活动单元格中。但是，每当我尝试运行这部分代码时，我都会得到一个错误438。以下是在调试中显示的部分的示例。
With Selection.Font
.Bold = True
End With
ActiveCell.Value = UserForm2.Controls("TextBox" & i).Caption
ActiveCell.Offset(1, 0).Select
浏览 4提问于2017-06-19得票数 0
1回答
在主窗体上搜索记录的子表单
、、、、
我有一个像这样的子表格：
当我单击“select”按钮时，我希望主窗体上的记录导航到适当的表单(持有相同的人员ID的记录)。
到目前为止，我尝试的是当按下按钮以运行以下vba时：
Private Sub Command6_Click()
Dim rs As Object
Dim strLinkValue As String
strLinkValue = Forms![navigation form]![NavigationSubform]![teacher search qry subform]![Staff ID].Value
Set rs = Forms![navigation
浏览 0提问于2015-10-16得票数 0
回答已采纳
我最近安装了visio 2010。它有VBA7.0。
我试图写一个代码来打开一个文件对话框，选择一个excel文件并打开它。我用了这个代码
Set fd = Application.FileDialog(msoFileDialogFilePicker)
但我得到了以下错误：
运行时错误“438”：Object不支持此属性或方法
我已经有了Microsoft Office 14. Object Library作为参考。
你有什么主意吗？我该怎么办？
浏览 3提问于2015-08-04得票数 1
2回答
我编写了一个VBA代码，将Outlook文件夹中所有邮件中的所有附件保存到计算机上的物理文件夹中。当测试我遇到这个错误时，当我收到的电子邮件有一个“正常”的电子邮件图标时，所有的事情都会像预期的那样工作。但是，当它有这个图标时，就像您在我的屏幕截图中看到的那样，VBA代码给出了这个错误：
错误消息438："object不支持此属性或方法“。
我也不能将附件视为普通邮件。我能做的是，select one mail > File > Save Attachments
所以我的问题是:电子邮件前的圆圈图标意味着什么？它的名称是什么，是否有一种方法可以绕过这种无法
浏览 2提问于2015-04-09得票数 1
回答已采纳
我有一个带有宏的Word文档，我正试图在Word 2011 for OS X中打开它。我收到错误消息"Runtime 438“。我选择调试宏，Word突出显示以下不在我的宏中的代码：
private Sub Document_Open()
ActiveDocument.SelectContentControlsByTitle("Today").Item(1).Range.Text = Form(Date, "m/d/yyy")
End Sub
浏览 0提问于2012-09-08得票数 0
回答已采纳
我已经在ThisWorkbook (Excel2010)中的personal.xlsb中创建了以下vba脚本：
Sub Workbook_Open()
Application.ActiveWindow.AutoFilterDateGrouping = False
End Sub
它不起作用。我收到vba运行时错误: 91对象变量或未设置块变量。虽然它的工作，如果手动运行后打开的文件。
这样做的目的是为所有新打开的文件自动将AutoFilterDateGrouping设置为False。
浏览 2提问于2014-11-03得票数 0
我正在尝试从Internet Explorer窗口返回pageYOffset值。在VBA编辑器的“局部变量”窗口中，我可以清楚地看到该值，但当我尝试使用VBA检索它时，得到运行时错误'438'：对象不支持此属性或方法。
以下是我的代码的简化版本：
Sub getProperty()
Dim IEWindow As New InternetExplorer
Dim scrollValue as Long
Set IEWindow = New InternetExplorer
IEWindow.Visible = True
IEWindow.navigate "w
浏览 29提问于2016-08-17得票数 0
回答已采纳
我发现下面的代码很奇怪：
var allextRules = Ext.util.CSS.getRules();
Object.keys(allextRules).forEach(function(key) {
var keyname = key;
if(keyname.indexOf("js") != -1){
Ext.util.CSS.removeStyleSheet(keyname);
console.log(keyname + " Removed");
}
});
当上面的工作在其他浏览器(比如Go
浏览 4提问于2011-11-29得票数 2
我试图在VBA中创建一个宏，它将通过Access VBA来格式化Excel表。我在Access中遇到了一些意外，无法识别某些Excel命令，如.Select、.Interior.Color和.ActiveWindow.Zoom。我解决了前两个问题，但是有人能帮我把活动缩放设置为90%吗？
Sub ExcelMacro()
Dim xlApp As Object
Dim xlWB As Object
filepath = "\\dom1...xlsm"
Set xlApp = CreateObject("Excel.Application")
xlApp.
浏览 2提问于2015-06-05得票数 2
回答已采纳
我有一个VBA代码，用于查找Userform控件的类型，并将注释添加到excel工作表中的一些单元格中。这些Useform控件是动态的。我的意思是，这个控件，如Textbox，label等，是通过使用另一个宏插入的。效果很好。我使用类似的格式来添加这些控件：：set Label1i = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True)。当我从同一个用户表单上的命令按钮调用下面的sub时。我得到了“Runtime438错误: Object不支持此属性或方法”
下面的代码
浏览 0提问于2019-08-05得票数 4
回答已采纳
我有一个列，其中非易失性时间函数BNOW()在不同的时间手动输入。简单地说，在A列中
A1=BNOW() it's value=3/25/2013 10:00:23
A2=BNOW() it's value=3/25/2013 10:03:09
我希望A1和A2的值仅更改为每个原始时间戳后10分钟的日期(即，3/25/2013)。我应该如何在VBA中对此进行编码？
我想要的是让Excel使用BNOW()监视每个单元格，并分别将值自动更改为每个时间值之后的日期10分钟。
PS: BNOW()是Excel NOW()的非易失性用户定义函数。
浏览 0提问于2013-03-26得票数 0
回答已采纳
1回答
我的VBA代码有一些问题。这就是我想要做的：
从工作表(输入)中选择路径
打开相关的工作簿
使用高级筛选器只将打开的60多个文件的所需列复制到原始文件。
关闭文件
我知道到目前为止，该代码部分是硬编码的，而且有些臃肿，但请忽略它。
当我运行vba时，会得到一个运行时错误438。(不支持的属性或方法)在高级过滤器行中。
这是我的密码：
Public strFileName As String
Public currentWB As Workbook
Public dataWB As Workbook
Public strCopyRange As String
Public
浏览 3提问于2013-10-31得票数 0
回答已采纳
我有一个web查询(Data选项卡-From Web)。这不是用VBA拉取的。
有没有办法禁止弹出错误？
就像一天一次。
"Application.DisplayAlerts = False“
上述方法不起作用。(我猜是因为我没有使用VBA拉取web查询)。
我是否必须求助于使用VBA来拉出一个查询来停止错误？
或者，有没有办法在Excel中禁用错误？
浏览 17提问于2015-09-26得票数 0
2回答
我希望在.TopLeftCell中获得每个形状对象的Selection.ShapeRange属性，但是在运行下面的代码时，我得到了运行时错误438，表示“此对象不支持此属性或方法”。
Sub testTopLeftCell()
For Each target In Selection.ShapeRange
MsgBox target.TopLeftCell.Address
Next
End Sub
但是，下面的代码可以工作。
Sub testTopLeftCell2()
For Each target In Selection.ShapeRange
浏览 3提问于2014-04-11得票数 0
回答已采纳
2回答
我试图编写一个代码，打开一个从excel VBA的PPTX文件并更新ppt中的链接。
下面是我得到的代码，但当代码试图更新链接时，我将获得
运行时错误438对象不支持此属性或方法。
Sub kunal()
Dim PPObj As Object
Set PPObj = CreateObject("PowerPoint.application")
With PPObj
.Presentations.Add
.Presentations.Open Filename:="Y:\Desktop\Month End\One_Shot\T
浏览 0提问于2017-11-13得票数 1
可从COM公开的.NET程序集访问共享属性吗？
VBA
Dim appExcel As Object
Dim objAppSingleton As Object
Set objAppSingleton = CreateObject("Pitchbook.CommonUtils.Application.PitchbookAppSingleton")
appExcel = objAppSingleton.CurrentPitchbookExcelApp
VB.NET
<ProgId("Pitchbook.CommonUtils.Applicat
浏览 2提问于2012-02-09得票数 0
回答已采纳
3回答
我有一个这样的代码：
Dim strResponses As String
strResponses = Forms!frmResponses.QstnID.OpenArgs
If Len(strResponses) > 0 Then
Me![QstnID].DefaultValue = Me.OpenArgs
End If
当我运行它时，它给出了错误438。有人能帮我知道错误在哪里吗？
浏览 3提问于2010-05-17得票数 1
我在MS中编写的VBA中有以下代码，该项目调用Excel扩展表。我已经修改了项目、Excel和Officein的v15运行时librays。
当我运行时，由于错误438对象在行中不支持此属性或方法，它无法编译
strFileToOpen = Application.GetOpenFilename _
....etc。
有人能建议在哪里看，因为这似乎是正确的同步对我。
Dim strFileToOpen As Variant
strFileToOpen = Application.GetOpenFilename _
(Title:="Please choose a fi
浏览 4提问于2016-12-11得票数 1
回答已采纳
2回答
在名为sheet1的工作表中，有一个名为graph1的图形。此图是使用名称框命名的。我想把它声明为一个对象，以便以后可以复制和粘贴它。我有以下代码：
Sub dumb()
Dim tot_cap As Object
Set tot_cap = ThisWorkbook.Sheets("sheet1").Object("graph1")
End Sub
上面的代码导致以下错误消息：
run time error 438: object doesn't support this property or method
如何在VBA中正确声明命名的图形对象
浏览 3提问于2021-05-07得票数 1
回答已采纳
我在VBA中有这段代码，它构建当前打开的所有工作簿的列表，并将它们添加到命名范围，以便我可以将其用作选择列表的输入。这样，用户就能够选择应该处理的工作簿。 Sub Lijst_bouwen()
Dim i As Integer
Dim wb_pnt As Workbook
Set wb_pnt = Application.ThisWorkbook
Dim wb_overzicht As Workbook
Dim ws As Worksheet
Set ws = wb_pnt.Worksheets("Werkboeken")
For i = 1 To Workbooks.C
浏览 29提问于2021-07-09得票数 1
回答已采纳
我想通过VBA为单元格设置值。我在谷歌上搜索过，看到了一些解决方案：
Sheets("SheetName").Range("A1").value = someValue
Sheets("SheetName").Cells(1,1).value = someValue
使用这种代码，我可以从单元格A1读取数据，但不能为它设置新的值。
更新
设置单元格A1值的代码放在Function中，如下所示。
Function abb()
Sheets("SheetName").Range("A1").value = 12
浏览 6提问于2012-02-28得票数 8
回答已采纳
我正在excel VBA中工作，以设置一个循环代码，该代码将从一个工作表中复制公式值，并将这些值粘贴到另一个工作表上的运行列表中。我可以将公式复制并粘贴到所需的位置，但是在这段代码中需要更改什么才能只复制和粘贴值呢？
我尝试过对这段代码进行各种变体：
.Value在bottom.PasteSpecial xlPasteValues上复制和/或粘贴命令之后(这会给出编译错误，定义要复制的单元格时statement).Value的预期结束(它给出运行时错误'438')Changing复制的Dim类型，并将变量粘贴到变体、字符串和范围)。
Sub snapShot()
Di
浏览 1提问于2019-11-12得票数 1
回答已采纳
在VBA中有没有一种方法可以达到同样的效果:在文件夹窗格中右键单击文件夹，然后选择“对子文件夹A到Z排序”？ 作为比较，Microsoft.com中的以下代码对文件夹中的Items进行了排序；但是，此代码中使用的.Sort方法似乎不像对Items对象那样可用于Folders对象。 Sub SortByDueDate()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myItem As Outlook.TaskItem
Dim myItems As Outlook.Items
浏览 37提问于2021-07-02得票数 0
我正在尝试编写一小块VBA，它将根据相邻列中的RGB变量对一列excel单元格进行阴影。因此，我有一个数据表(没有标题)，有3列(R和B)和x行(数量将有所不同)。我想要的是把这张桌子右边的第四列涂成一种基于左边三个数字的颜色。注意，每次执行此操作时，我都计划选择左上角单元格。
下面是我使用过的代码，但我得到了一条错误消息：
错误438..。对象不支持此属性或方法
指向Set rng行是问题所在。
任何想法或帮助
Sub RGBTest()
Dim rng As Range
Dim n As Integer
Set rng = ActiveSheet.ActiveCell.Curr
浏览 5提问于2016-07-17得票数 1
我有一个具有各种控件(textBox、Combobox、checkBox)的窗体，所有这些控件都有不同的字符/字符串标记(而不是数字)。
我有另一个表单，其中一个组合框值设置为Tempvars!addAltTag，通过单击该表单按钮，该表单将使用Tempvars!addAltTag属性打开。
我试过以下代码，但运行时错误代码"438“
For Each Ctl In Me.Controls
If Ctl.Tag = TempVars!addAltTag Then
Ctl.Locked = False
Else
C
浏览 2提问于2018-05-15得票数 0
回答已采纳
我在Access 2010上构建了一些图表，并试图将它们自动化。但是我不能通过vba来应用数据标签。
当我尝试使用ApplyDataLabels时，我得到错误438：
Dim mychart As Object
Dim myseries As Object
Dim ax As Object
Dim pt As Object
Set mychart = frm.ChartSpace.Charts(0)
For Each myseries In mychart.SeriesCollection
myseries.ApplyDataLabels '438 - Object doe
浏览 1提问于2014-10-20得票数 1
因此，我有代码可以在VBA中绘制一个在Office 2013中工作得很好的图表，但不是2010年，这似乎就是其中的台词：
.Shapes.AddChart2(201, xlColumnClustered).Select
错误'438‘说：
“对象不支持此属性或方法”
浏览 1提问于2015-05-04得票数 2
回答已采纳
我是VBA的新手，也是StackOverflow的新手，所以请原谅任何违反礼仪的行为。我有一个使用Excel VBA创建工具的项目，该工具允许用户标识源Excel文件，然后将Excel文件中每个工作表的打印区域复制到新创建的PowerPoint演示文稿中的幻灯片中。我必须使用后期绑定，因为我不能假设该工具的所有用户都将使用相同版本的Microsoft Office产品，或者他们将启用对PowerPoint对象库的引用。我已经设法做到了这一切。当我试图设置幻灯片的大小时，我遇到了麻烦-有人要求我将幻灯片的大小设置为PowerPoint 2013中提供的4:3的幻灯片大小(如果需要的话，也可以设置
浏览 0提问于2015-04-24得票数 1
2回答
使VBA自动抓取数据更新
、、、
我成功地编写了VBA来从网页中抓取数据。
由于数据定期更新，我希望它也能在我的Excel文档中更新。
我得到的数据与列出的所有BookMakers的概率是不同的。
我尝试了变量.refreshperiod .refresh函数，但是由于某些原因，它没有工作。
Sub Scrape()
For x = 1 To 5
Worksheets("links").Select
Worksheets("links").Activate
mystr = "https://easyodds.com/tennis/c
浏览 3提问于2018-03-06得票数 1
回答已采纳
1回答
如何使用Shape或vba在Word文档中自动安装C# (Word 2013)。
我尝试过使用shape.Textframe.autosize属性，但它不起作用。在Excel中，它可以工作，但在word中，它会引发错误
“指定的值超出范围。”
shape.TextFrame.AutoSize = (int)Microsoft.Office.Core.MsoAutoSize.msoAutoSizeShapeToFitText;
上面的代码什么也不做。
shape.TextFrame2.AutoSize = Microsoft.Office.Core.MsoAutoSize.msoAuto
浏览 0提问于2019-07-12得票数 1
回答已采纳
我试图使用WebBrowser访问带有JS的框架的文档对象。下面的代码工作得很好，但我需要使用WebBrowser。这就是我所犯的错误：
运行时错误“438”
对象不支持此属性或方法，请提供任何指导？
Sub GrabWorkerId1()
Dim objIE As InternetExplorerMedium
Set objIE = New InternetExplorerMedium
objIE.Visible = True
objIE.Navigate "my url"
Do While objIE.Busy = True
浏览 13提问于2020-03-18得票数 0
3回答
我有一些旧的Excel VBA代码，我想在其中定期运行任务。如果我使用的是VB6，我会使用timer控件。
我找到了方法，它对于在Excel工作表中运行的代码工作得很好，但我不能让它在用户表单中工作。该方法永远不会被调用。
如何让Application.OnTime()调用用户窗体中的方法，或者是否有其他方法可以安排代码在VBA中运行？
浏览 1提问于2009-10-13得票数 3
回答已采纳
我在一个项目中使用了HTML5样板。不幸的是，我在IE7/8中遇到了这些SCRIPT438错误，导致我的jQuery无法运行。开发站点在这里
**ERRORS**
SCRIPT438: Object doesn't support property or method 'hoverIntent'
plugins.js, line 47 character 5
SCRIPT438: Object doesn't support property or method 'accordionza'
script.js, line 31 charact
浏览 2提问于2011-10-28得票数 1
回答已采纳
我在另一篇文章中发现了这段代码，并尝试修改它，但它出错了。目标是列出特定工作表中的所有复选框和选项按钮，它们的标题、值和颜色。( .caption、.value和.backcolor导致运行时错误438。此外，我想将它们列在一个工作表中，该工作表是同一工作簿的一部分，而不是像这段代码那样是一个单独的文件。任何帮助都是非常感谢的。
Sub ListAllObjects()
Dim ws As Worksheet
Dim objFSO As Object
Dim objFil As Object
Dim Sh As Shape
Set objFSO = CreateObject("Scri
浏览 2提问于2016-03-29得票数 0
3回答
下面的VBA非常适合于工作表"X“。但是，问题是，我希望将相同的代码同时应用于工作表"Y“和"Z”(还有其他工作表不需要此代码)。
请让我知道如何在下面更改我的VBA，它指的是工作表"X“、"Y”和"Z“，而不仅仅是"X"？提前谢谢。
Option Explicit
'In a regular module sheet
Public RunWhen As Double 'This statement must go at top of all subs and functions
Sub StartBl
浏览 1提问于2017-05-18得票数 0
回答已采纳
我不明白为什么这个VBA代码返回运行时错误438：
With Worksheets("DATA1").Shapes("CommandButton4")
.TextFrame.Characters.Text = "In Stock"
End With
我需要更改按钮的标题。
代码位于Private Workbook_Open()中。
浏览 6提问于2022-01-15得票数 0
回答已采纳
5回答
在vba函数的字符串中可以使用的最大字符数是255。我正在尝试运行此函数
Var1= 1
Var2= 2
.
.
.
Var256 =256
RunMacros= "'Tims_pet_Robot """ & Var1 & """ , """ & Var2 & """ , """ ... """ & Var256 """ '"
Runat=TimeVa
浏览 8提问于2010-03-25得票数 17
回答已采纳
2回答
我以为会很快的excel vba，似乎不再快了。基本上，我希望在给定的时间内遍历一组问题。当给定时间到期或所有问题都完成时，退出循环(关闭表单并返回)。顺便说一句，想在窗体上显示一个计时器倒计时以及。有可能实现吗？
我可以得到一个表单来显示带有答案选项的问题，但不确定如何添加时间标准。
浏览 0提问于2015-02-15得票数 0
我想在我当前的Outlook文件夹中搜索主题为“订单14567”的电子邮件。
存在一个错误(438对象不支持此属性或方法)。发生在下列代码中：
Set objSch = Application.AdvancedSearch(scope:=strS, _
Filter:=strF, Tag:=strTag)
VBA代码：
Sub SearchInboxFolder()
'Searches the Inbox
Dim objSch As Search
Const strF As String = "urn:schemas:mailhea
浏览 3提问于2015-02-25得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
