投稿日 | : 2004/12/24(Fri) 11:30 |
投稿者 | : いし |
Eメール | : |
URL | : |
タイトル | : 列の挿入 |
VB6.0を使っています。
Excelシートの操作をさせようとしています。
列を挿入させたいのですが、次のコードで実行したところエラーが発生します。
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = False
objExcelApp.Visible = False
objExcelApp.Workbooks.Open FileName:=FileName, updatelinks:=False
Set objExcelWkb = objExcelApp.Workbooks(Right(FileName, Len(FileName) - InStrRev(FileName, "\")))
(略)
objExcelWkb.Worksheets(1).Columns("C:C").Select
objExcelWkb.Worksheets(1).Selection.Insert Shift:=-4161 ←ここでエラー
見ての通りの実行時バインディングですが関係あるでしょうか?
Excelでマクロ記録して流用しました。-4161のところは”xlToRight”になっていましたが
そのままでは使えないようなので定数を入れました。