文字を書くのにエラー

質問

objExcel.Sheets("Sheet1").range("G5").Select
objExcel.Sheets("Sheet1").range.FormulaR1C1 = "取消"
でかけるはずなのにエラーがでてかけません！！
エラーの内容は
Range クラスの Select メソッドが失敗しました。
です。
どうしてなんでしょう。。。
教えてください。

回答No.3

imogasi

objExcel.はExcel.Applicationでしょう。
エクセルのObjectの階層は
Excel－－＞Book－－＞Ｓｈｅｅｔ－－＞Ｒａｎｇｅ
であるはずです。このBookのレベルがすっ飛んでいます。
（本日の他の質問に使ったものですが）
Set exl = CreateObject("Excel.application")
exl.workbooks.open "c:\My Documents\aaa14.xls"
exl.Visible = True
Set bk = exl.activeworkbook
Set sh1 = bk.worksheets("sheet1")
sh1.cells(2, "b") = "sdffff"
bk.Close
Set exl = Nothing
を参考にしてください。
また、SelectはActiveになっているRange、Sheetに対してしないといけないと思います。

お礼

ありがとうございました。
いろいろ探してみたつもりだったんですけど
見つけきれてなかったようです(^-^;
ホントにありがとうございますた。

回答No.2

BLUEPIXY

特にセレクトする必要も無いように思うのですが。
objExcel.Sheets("Sheet1").range("G5").value = "取消"
ではだめですか？

もしだめなら
objExcel.Workbooks.Open("c:\book1.xls")
objExcel.Sheets("Sheet1").Select
objExcel.range("G5").value="取消"
も試してみて下さい。

お礼

ありがとうございますｗ
参考になりました★☆

回答No.1

poteta

え～と、やりたい事はなんでしょうか？
FormulaR1C1は計算式を入力するために使用します。
もし、”取消”を入力したいだけであれば
objExcel.Sheets("Sheet1").range.value = "取消"
でいいと思います。

補足

ただ単にエクセルに文字を書きたいんです。
objExcel.Sheets("Sheet1").range("G5").Select
此処でもうエラーがでるんです。。。