excel的vba自动录制再次使用后出现438对象不支持该属性和方法，求解决谢谢

Excel宏运行时出现错误438，对象不支持该属性求助

Option Explicit

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作簿下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示“"

End Sub

运行这段VBA代码出现“运行时错误438，对象不支持该属性或方法”怎么解决

感觉应该是Me!user和Me!password这2个名字的问题。从上下文来看，是2个文本框控件。如果其Name属性本身就叫做Me!user和Me!password，请改一下，如Meuser和Mepassword；如果是user和password，则Me后面应该是.而不是!，或者去掉Me直接引用。 本人机器上没有VB6，在VS 2012环境下设置一个文本框的Name属性为Me!user，提示“属性值无效”。

VBA 运行时错误438：对象不支持该属性或方法 怎么更改才能调试成功？

你最好把出错的那句标识出来。

第一名就错了，修正为：Sheets("sheet1").Activate

------------------------------------

建议代码修正如下：

Sub设置行高()
WithSheets("sheet1")
DimmAsInteger
Form=1To50
s=mMod5
SelectCases
Case1
Rows(m&":"&m).RowHeight=48
Case2
Rows(m&":"&m).RowHeight=48
Case3
Rows(m&":"&m).RowHeight=66
Case4
Rows(m&":"&m).RowHeight=24
Case5
Rows(m&":"&m).RowHeight=24
EndSelect
Nextm
EndWith
EndSub

打开excel时，弹出“运行时错误‘438’，对象不支持该属性或方法”求高手指教如何向以前正常运行！

这个是VBA代码问题。你先新建一个工作薄，然后打开，把信任中心里面的宏禁掉。然后按ALT+F11可以按F8逐步运行看下哪段代码出了问题。或者吧所有代码截图出来，让大伙帮忙看看怎么更改。

438对象不支持此属性或方法

原因：IE中的脚本错误。解决方法：

1.首先打开浏览器，然后点击右上角的小齿轮，在出现的对话框中，选择Internet选项打开设置选项。

2.然后在弹出的自定义选项设置页面中单击security，然后单击“默认级别”。

3.将活动选项下的每个选项设置为启用。

4.单击“默认级别”后，单击右下角的“应用”。

5.切换回advanced选项卡并检查前两项，禁用脚本调试(InternetExplorer)和禁用脚本调试(其他)。

6.勾选完成后，点击右下角的“应用”，即可。

标签：信息技术 对象 编程 编程语言 MicrosoftExcel