VBA - Application.FileDialog() -对象不支持此属性或方法(错误438)
VBA - Application.FileDialog() -对象不支持此属性或方法(错误438)
回答： VBA（Visual Basic for Applications）是一种编程语言，用于在Microsoft Office应用程序中进行自动化和宏编程。Application.FileDialog()是VBA中的一个对象，用于打开文件对话框。然而，当出现"对象不支持此属性或方法(错误438)"的错误时，通常是因为应用程序没有支持该方法或属性。
这个错误通常出现在以下几种情况下：
- 当前的Office应用程序版本不支持Application.FileDialog()方法。
- 编码中没有正确引用所需的库或对象。
解决这个错误的方法可以包括以下几个方面：
- 确保使用的是支持Application.FileDialog()方法的Office应用程序版本。可以尝试使用其他更高版本的Office应用程序来解决该问题。
- 检查VBA项目的引用。在VBA编辑器中，点击"工具" -> "引用"，确保所需的引用已经被选中。如果引用缺失或未被选中，选择它们并点击确定。
- 尝试使用其他文件对话框方法。如果Application.FileDialog()方法无法正常工作，可以尝试使用其他替代方法，如GetOpenFileName或GetSaveAsFileName等。
虽然本答案不能提及具体的腾讯云产品和产品介绍链接地址，但是可以提供一个相关的云计算服务提供商的解决方案作为参考。腾讯云提供了云服务器（CVM）的服务，其中包含了丰富的云计算功能，可以用于部署各种应用程序和服务。用户可以使用腾讯云的云服务器来执行VBA代码，并在其中调用Application.FileDialog()方法。具体产品介绍和使用方法可以参考腾讯云的官方文档或联系腾讯云客服获取更多信息。
请注意，本答案中没有提及其他流行的云计算品牌商，如亚马逊AWS、Azure、阿里云、华为云、天翼云、GoDaddy、Namecheap、Google等，以遵守您的要求。
相关·内容
我最近安装了visio 2010。它有VBA7.0。
我试图写一个代码来打开一个文件对话框，选择一个excel文件并打开它。我用了这个代码
Set fd = Application.FileDialog(msoFileDialogFilePicker)
但我得到了以下错误：
运行时错误“438”：Object不支持此属性或方法
我已经有了Microsoft Office 14. Object Library作为参考。
你有什么主意吗？我该怎么办？
浏览 3提问于2015-08-04得票数 1
1回答
我回答了的问题，显然令OP满意，但仍然觉得他们的问题令人费解。他们的问题涉及一个表达式，其中一个工作簿对象与一个字符串连接，触发Run-time Error '438': Object doesn't support this property or method。只需键入以下命令，就可以复制这种错误。
?"Hello, " & ThisWorkbook
就在眼前的窗口。
我的问题是--为什么这会导致错误，而不是13型错配？合理的猜测是，VBA试图为工作簿对象找到默认属性，而默认属性不存在。但是，如果是这样的话，我希望它是来自微软的VisualB
浏览 0提问于2016-06-21得票数 18
回答已采纳
我的主要目标是创建一个自动调整大小的命名范围。
一种常见的方法是在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
我试着在短假期里教自己VBA。对于我的第一个模块，我希望创建一个模块，该模块执行以下操作：
显示对话框。提示用户选择CSV文件。
通过循环打开CSV文件。
根据CSV的数据对CSV文件进行总结。
无论如何，对于number1，我在网上搜索并找到了两种方法: Application.FileDialog和GetOpenFilename。嗯，我在想，两者有什么区别(限制、能力、速度等等)？一种方法比另一种方法有明显的优势吗？
谢谢。
浏览 9提问于2016-12-31得票数 4
回答已采纳
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
我正在尝试创建一个宏，它将用户表单文本框中写入的任何内容输入到活动单元格中。但是，每当我尝试运行这部分代码时，我都会得到一个错误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
回答已采纳
2回答
我编写了一个VBA代码，将Outlook文件夹中所有邮件中的所有附件保存到计算机上的物理文件夹中。当测试我遇到这个错误时，当我收到的电子邮件有一个“正常”的电子邮件图标时，所有的事情都会像预期的那样工作。但是，当它有这个图标时，就像您在我的屏幕截图中看到的那样，VBA代码给出了这个错误：
错误消息438："object不支持此属性或方法“。
我也不能将附件视为普通邮件。我能做的是，select one mail > File > Save Attachments
所以我的问题是:电子邮件前的圆圈图标意味着什么？它的名称是什么，是否有一种方法可以绕过这种无法
浏览 2提问于2015-04-09得票数 1
回答已采纳
我已经打开了一个Word文档("Template1")。我正在尝试编写VBA代码来打开一个Word文档文件( "FileWithData“)，并将信息从”FileWithData“复制到"Template1”。"FileWithData“可以是任何文件，这就是我使用OpenDialog的原因。
一切都在工作，但我卡住了，当它激活"FileWithData“窗口开始”复制和粘贴“的过程。
Dim intChoice As Integer
Dim strPath As String
Dim objWord As Object
Set objWord
浏览 0提问于2018-12-22得票数 0
我有一个带有宏的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
回答已采纳
几个问题
MacExcel2011VBA中是否支持Application.Filedialog(msoFileDialogSaveAs)？
Application.Filedialog(msoFileDialogSaveAs)和Application.Dialogs(xlDialogSaveAs)的区别？
浏览 9提问于2016-01-23得票数 2
我正在尝试从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
回答已采纳
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
回答已采纳
我想把一个文件附在我的邮件上。我想选择这条路。
我试过Application.FileDialog。
我得到了
运行时错误438。
我在网上找到了这个代码：
Sub Main()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In
浏览 7提问于2019-04-18得票数 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
5回答
我正在尝试弹出文件对话框，这样用户就可以选择一个文件路径来导出VBA中的文件，但是由于某种原因，它在下面的代码行中抛出了这个错误。
错误:对象'_Application‘的方法'FileDialog’失败
代码：longResult = Application.FileDialog(msoFileDialogFolderPicker).Show
所有代码：
If choice = 6 Then
Dim intResult As Long
Dim strPath As String
'the dialog is displayed to the user
longRes
浏览 0提问于2014-12-10得票数 1
我正在尝试保存一个DOM文档，而save方法工作得很好：
xDoc.Save "myFileName"
但我希望用户能够选择路径和可能的名称。所以我试着：
xDoc = "Application.FileDialog(msoFileDialogSaveAs).Show"
If myNum <> 0 Then
XDoc = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
End If
这打开了一个“另存为”对话框，但当我单击“确定”时，我得到一个运行时“对象不支持此属性或
浏览 30提问于2017-08-04得票数 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回答
在将文件打开到我用VBA创建的文件后，我正在尝试打印一个文件。我被困住的部分是写在文件上。这是我到目前为止所拥有的。
Sub test()
Dim myFile As String
Dim testFile As String
Dim intChoice As Integer
Dim fs, f
myFile = Application.GetSaveAsFilename & "kml"
Open myFile For Output As #1
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect =
浏览 5提问于2014-05-29得票数 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中有没有一种方法可以达到同样的效果:在文件夹窗格中右键单击文件夹，然后选择“对子文件夹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
回答已采纳
1回答
我试图捕获网页在word作为图像和粘贴在Excel通过VBA，以下是完整的代码。但是在下面的注释中得到了一个Type Mismatch错误。如何修正错误？
Function openFile() As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "Word Files", "*.doc*", 1
.Show
openFile = .Sele
浏览 1提问于2020-10-10得票数 0
回答已采纳
1回答
我正在制作一个宏是Excel 2016，并希望参考工作簿通过它的路径，而不打开它。
这就是我目前所做的
Dim Wb As Workbook
Dim Path As String
Dim Fd As FileDialog
Set Fd = Application.FileDialog(msoFileDialogOpen)
Fd.AllowMultiSelect = False
Fd.Show
Path = Fd.SelectedItems(1)
Set Wb = Workbooks.Open(Path)
但是，最后一行打开文件。
我想知道如何将Wb设置为工作簿，路径不打开它就能到达那里。
浏览 0提问于2016-08-12得票数 1
我是VBA的新手，也是StackOverflow的新手，所以请原谅任何违反礼仪的行为。我有一个使用Excel VBA创建工具的项目，该工具允许用户标识源Excel文件，然后将Excel文件中每个工作表的打印区域复制到新创建的PowerPoint演示文稿中的幻灯片中。我必须使用后期绑定，因为我不能假设该工具的所有用户都将使用相同版本的Microsoft Office产品，或者他们将启用对PowerPoint对象库的引用。我已经设法做到了这一切。当我试图设置幻灯片的大小时，我遇到了麻烦-有人要求我将幻灯片的大小设置为PowerPoint 2013中提供的4:3的幻灯片大小(如果需要的话，也可以设置
浏览 0提问于2015-04-24得票数 1
在编译VBA代码时，何时处理Dim语句？如果我这样做，是否会提高效率？：
Dim oFileDiag As FileDialog
Set oFileDiag = Application.FileDialog(msoFileDialogFilePicker)
If oFileDiag.Show = -1 Then
'// Dim statement further down in the code...
Dim ofdSelected As FileDialogSelectedItems
Set ofdSelected = .S
浏览 5提问于2011-05-26得票数 2
回答已采纳
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
1回答
我一直试图使用Excel Text1方法从中找到.Find，但它似乎不起作用。我有一个工作代码，但它非常慢，因为它循环通过每一个任务。这是我的代码：
Sub Exp()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "MPD", "*.mpp*"
If .Show = True Then
Dim getfilename As String
Dim appProj As MSProje
浏览 5提问于2022-04-06得票数 0
2回答
我试着按一下按钮导出一个子表单，但是我得到的都是各种各样的错误，大多数情况下它似乎无法识别子表单对象。我认为最接近的是以下几点：
DoCmd.OutputTo acOutputForm, Me.Form.<Subform_name>.Name, acFormatXLSX, savefileas, True
subform_name是主窗体Subform_form源表单中的对象名。
子表单不是来自单独的查询，而是从父窗体的VBA设置记录集。
此vba上的错误为2102 =“表单名拼写错误或引用不存在的表单。”
救济金
Public Function savefilea
浏览 0提问于2017-06-23得票数 1
回答已采纳
1回答
我正在运行一个excel vba脚本，在其中我试图打开一个对话框来选择一个excel文件并打开该excel文件。我尝试给出文件夹的路径，以便最终用户可以直接进入文件夹并选择他想要的文件。
但是，它第一次正常工作，但下次运行时，它会打开最终用户上次选择该文件的文件夹。
这是我的密码，
thisYear = Year(Date)
'change the display name of the open file dialog
Application.FileDialog(msoFileDialogOpen).Title = _
"Select Input Rep
浏览 1提问于2017-04-25得票数 2
回答已采纳
我在一个项目中使用了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
我不明白为什么这个VBA代码返回运行时错误438：
With Worksheets("DATA1").Shapes("CommandButton4")
.TextFrame.Characters.Text = "In Stock"
End With
我需要更改按钮的标题。
代码位于Private Workbook_Open()中。
浏览 6提问于2022-01-15得票数 0
回答已采纳
我创建了一个VBA，它循环遍历存储文件夹中的excel文件。它只循环那些在其文件名中包含单词"BAD“的内容。我的问题是DIR似乎只工作过一次吗？StrFile = StrFile = Dir行后面的"“。我已经试过StrFile = Dir()和StrFile = Dir(StrFile)了
If Application.FileDialog(msoFileDialogFolderPicker).Show <> 0 Then
TheFolder = Application.FileDialog(msoFileDialogFolderPick
浏览 4提问于2015-05-07得票数 1
回答已采纳
我想在我当前的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
实时音视频活动推荐
腾讯云开发者
