[已解决][求助]為何提示﹕物件不支持此屬性或方法

phui

為何提示﹕物件不支持此屬性或方法

 

[求助]為何提示﹕物件不支持此屬性或方法

最佳答案

月排行榜 / 总排行榜

雨狐

2009-8-31 19:45

QUOTE:

以下是引用phui在2009-8-31 19:38:00的发言：

QUOTE:

以下是引用雨狐在2009-8-31 19:30:00的发言：
Sub WorkbookExample()
Dim sngWork As Workbook
Set sngWork = Workbooks.Add
sngWork.Worksheets("Sheet1").Range("F1") = 100
sngWork.SaveAs ("Hour8")
sngWork.Close
MsgBox "The is closed"
End Sub

為何在﹕sngWork.Worksheets("Sheet1").Range("F1").Vaule = 100中不能加.Vaule?

value<>vaule

[此贴子已经被作者于2009-8-31 19:51:53编辑过]

跳转到最佳答案楼层

函数小菜鸟

哪一句出现问题啊

phui

忘記把原代碼復制上去了﹐現復制上去﹐以便解答﹗

Sub WorkbookExample()
Dim sngWork As Workbook
Set sngWork = Workbooks.Add
sngWork.Worksheets("Sheet1").Range("F1").Vaule = 100
sngWork.SaveAs ("Hour8")
sngWork.Close
MsgBox "The is closed"
End Sub

领风飞翔

是set那句有问题吗？[em09]

雨狐

Sub WorkbookExample()
Dim sngWork As Workbook
Set sngWork = Workbooks.Add
sngWork.Worksheets("Sheet1").Range("F1") = 100
sngWork.SaveAs ("Hour8")
sngWork.Close
MsgBox "The is closed"
End Sub

phui

QUOTE:

以下是引用雨狐在2009-8-31 19:30:00的发言：
Sub WorkbookExample()
Dim sngWork As Workbook
Set sngWork = Workbooks.Add
sngWork.Worksheets("Sheet1").Range("F1") = 100
sngWork.SaveAs ("Hour8")
sngWork.Close
MsgBox "The is closed"
End Sub

為何在﹕sngWork.Worksheets("Sheet1").Range("F1").Vaule = 100中不能加.Vaule?

[此贴子已经被作者于2009-8-31 19:42:27编辑过]

phui

QUOTE:

以下是引用领风飞翔在2009-8-31 19:26:00的发言：
是set那句有问题吗？[em09]

不是set那句﹐是下面的那句﹗

雨狐

QUOTE:

以下是引用phui在2009-8-31 19:38:00的发言：

QUOTE:

以下是引用雨狐在2009-8-31 19:30:00的发言：
Sub WorkbookExample()
Dim sngWork As Workbook
Set sngWork = Workbooks.Add
sngWork.Worksheets("Sheet1").Range("F1") = 100
sngWork.SaveAs ("Hour8")
sngWork.Close
MsgBox "The is closed"
End Sub

為何在﹕sngWork.Worksheets("Sheet1").Range("F1").Vaule = 100中不能加.Vaule?

value<>vaule

[此贴子已经被作者于2009-8-31 19:51:53编辑过]

phui

真郁悶呀﹐原來把字母掉過來了也沒檢查出來...