VBA 运行时错误438：对象不支持该属性或方法 怎么更改才能调试成功？
发布网友
发布时间：2022-05-17 17:48
我来回答
共1个回答
热心网友
时间：2023-11-01 01:11
你最好把出错的那句标识出来。
第一名就错了，修正为：Sheets("sheet1").Activate
------------------------------------
建议代码修正如下：
Sub 设置行高()
With Sheets("sheet1")
Dim m As Integer
For m = 1 To 50
s = m Mod 5
Select Case s
Case 1
Rows(m & ":" & m).RowHeight = 48
Case 2
Rows(m & ":" & m).RowHeight = 48
Case 3
Rows(m & ":" & m).RowHeight = 66
Case 4
Rows(m & ":" & m).RowHeight = 24
Case 5
Rows(m & ":" & m).RowHeight = 24
End Select
Next m
End With
End Sub
为什么报警438???
报警 438 表示对象不支持此属性或方法，应该是用了一个不支持的属性或者方法，也可能是输入的属性或方法存在拼写错误。1.如果是运行宏时出错，一般是VBA写入错误，里面有语句写错了,查一下有没有写错单词,打开的电子表格中有个格子里面写了错误的单词也会无法识别导致报警。2.如果查找不到错误原因，只能...
...弹出“运行时错误‘438’,对象不支持该属性或方法”求高手指教如何向...
这个是VBA代码问题。你先新建一个工作薄，然后打开，把信任中心里面的宏禁掉。然后按ALT+F11可以按F8逐步运行看下哪段代码出了问题。或者吧所有代码截图出来，让大伙帮忙看看怎么更改。
vba 438-对象不支持属性或方法,怎么改正?
rng.Select '选择该区域 Selection.Copy Range("p5").PasteSpecial xlPasteAll 如果你不要自制格式，只要数据，直接用数组更好些 Dim rng As Range Dim arr c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格 Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(...
vb实时错误438对象不支持该属性或方法
错误的地方就是VB里面不能识别Excel的VBA类库里面的自建常数xlFilterCopy，这个常数的值为2，直接改成数值2，即可达到同样效果。
...运行时错误438,对象不支持该属性或方法”怎么解决
从上下文来看，是2个文本框控件。如果其Name属性本身就叫做Me!user和Me!password，请改一下，如Meuser和Mepassword；如果是user和password，则Me后面应该是.而不是!，或者去掉Me直接引用。本人机器上没有VB6，在VS 2012环境下设置一个文本框的Name属性为Me!user，提示“属性值无效”。
VBA中出现“438”错误,对象不支持该属性或方法。请帮忙看看,谢谢_百度...
VBA中出现“438”错误,对象不支持该属性或方法。请帮忙看看,谢谢 Dim rng As Range c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格 Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(1, 0) '提取要选择的区域 rng.Select ... 展开 ...
VBA中出现“438”错误,对象不支持该属性或方法。请帮忙看看,谢谢_百度...
如果你不要自制格式，只要数据，直接用数组更好些 Dim rng As Range Dim arr c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格 Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(1, 0) '提取要选择的区域 arr = rng Range("P5").Resize(1, UBou...
...运行时错误‘438’:对象不支持该属性或方法。求指导
应该是Set b = ActiveSheet.ChartObjects.Add(0, 0, 200, 300) ,少了个s。
...错误代码438 “对象不支持该属性或方法” 到底出了什么问题?求修改...
拼写错误 If Worksheets("入库").Cells(x, 2).vaule = Worksheets("库存").Cells(y, 1).vaule Then （这边有问题应该是）If Worksheets("入库").Cells(x, 2).vaule = Worksheets("库存").Cells(y, 1).value Then （这边有问题应该是）value 错写成vaule了 ...
AutoCAD VBA编程中运行“错误430 类不支持自动化或不支持期望的接口...
并非所有的对象都能显露自动化接口。此错误有以下原因和解决方法：虽然在指定的 GetObject 或CreateObject 函数调用中找到此类，但并没有显露编程的接口。除非一个对象有支持自动化的接口，否则不能写代码来控制该对象的行为。检查创建此对象的应用程序的文档，以了解在此对象类上使用自动化的限制。您将一个...
