vba运行时错误438，请高手帮我看看哪里的问题

MG0550 · 发表于 2024-9-23 10:15

本帖最后由 MG0550 于 2024-9-23 15:58 编辑

新手刚学vba，运行时错误，显示错误438，请高手帮我看看是哪里的问题，代码如下

Sub 新建()

Dim X1, X2
Let X1 = Excel.Application.WorksheetFunction.Mid(Sheets("模板").Range("H3"), 1, 8)
Let X2 = Excel.Application.WorksheetFunction.Text(Now(), "YYYYMMDD")

If X1 <> X2 Then
Sheets("模板").Range("H3") = X2 & "01"
End If
Sheets("模板").Range("C6:H14").ClearContents
Sheets("模板").Range("C3").ClearContents
Sheets("模板").Range("H4").ClearContents
Sheets("数据暂存").Range("A2:K10").ClearContents

End Sub
调试发现：Let X1 = Excel.Application.WorksheetFunction.Mid(Sheets("模板").Range("H3"), 1, 8)这个代码有问题

liulang0808 · 发表于 2024-9-23 10:42

弹出窗体后，楼主选择“调试”然后再看看哪一行代码报错，再逐步测试看下

ww87725244 · 发表于 2024-9-23 11:08

改一下
Let X1 = Mid(Sheets("模板").Range("H3"), 1, 8)
Let X2 = Format(Now(), "YYYYMMDD")

MG0550 · 发表于 2024-9-23 15:41

liulang0808 发表于 2024-9-23 10:42
弹出窗体后，楼主选择“调试”然后再看看哪一行代码报错，再逐步测试看下

X1 = Excel.Application.WorksheetFunction.Mid(Sheets("模板").Range("M3"), 1, 8)
这条语句有问题

MG0550 · 发表于 2024-9-23 15:42

ww87725244 发表于 2024-9-23 11:08
改一下
Let X1 = Mid(Sheets("模板").Range("H3"), 1, 8)
Let X2 = Format(Now(), "YYYYMMDD")

X1 = Excel.Application.WorksheetFunction.Mid(Sheets("模板").Range("M3"), 1, 8)
这条语句有问题

MG0550 · 发表于 2024-9-23 15:55

ww87725244 发表于 2024-9-23 11:08
改一下
Let X1 = Mid(Sheets("模板").Range("H3"), 1, 8)
Let X2 = Format(Now(), "YYYYMMDD")

Let X1 = Mid(Sheets("模板").Range("H3"), 1, 8)
这行代码运行时有问题

MG0550 · 发表于 2024-9-23 15:56

liulang0808 发表于 2024-9-23 10:42
弹出窗体后，楼主选择“调试”然后再看看哪一行代码报错，再逐步测试看下

Let X1 = Excel.Application.WorksheetFunction.Mid(Sheets("模板").Range("H3"), 1, 8)
这行代码有问题

MG0550 · 发表于 2024-9-23 15:56

liulang0808 发表于 2024-9-23 10:42
弹出窗体后，楼主选择“调试”然后再看看哪一行代码报错，再逐步测试看下

Let X1 = Excel.Application.WorksheetFunction.Mid(Sheets("模板").Range("H3"), 1, 8)
这行有问题

		自动登录	找回密码
密码			免费注册

[求助] vba运行时错误438，请高手帮我看看哪里的问题