VB6.0でのEXCEL操作について

分類:[VB6以前]

初めまして。

現在、VB6.0からExcelを操作するプログラムを作っています。

そこで、作成Excelの一部の列を表示しないようにしたいのですが、うまくいきません。
助言をいただければ幸いです。

ちなみに、Excelのマクロを使用したところ、以下のようになりました。

Columns("AA:AD").Select
Selection.EntireColumn.Hidden = True

これを元に作成したものが以下のソースです。

With WkObjSheet.Columns("27:29")
.Select
.EntireColumn.Hidden = True
End With

このように、列の指定をアルファベットではなく、数字で行いたいのです。
.Cellsでは.Cells(1, 1)のように、数字で列指定できていたので、columnsでも
できると思っていたのですが・・・。
"27:30"　⇒　"AA:AD"　とした場合にはうまくいっています。

助言の方、よろしくお願いします。

2005/06/09(Thu) 22:37:00 編集(投稿者)

> With WkObjSheet.Columns("27:29")
> .Select
> .EntireColumn.Hidden = True
> End With

たとえば、

WkObjSheet.Range(objApp.ConvertFormula("C27:C29", xlR1C1, xlA1)).EntireColumn.Hidden = True

とか、

WkObjSheet.Columns(objApp.ConvertFormula("C27:C29", xlR1C1, xlA1)).Hidden = True

とか、

WkObjSheet.Range(WkObjSheet.Columns(27), WkObjSheet.Columns(29)).Hidden = True

とか。

■No11208に返信(魔界の仮面弁士さんの記事)
> 2005/06/09(Thu) 22:37:00 編集(投稿者)
>
>> With WkObjSheet.Columns("27:29")
>> .Select
>> .EntireColumn.Hidden = True
>> End With
>
> たとえば、
>
> WkObjSheet.Range(objApp.ConvertFormula("C27:C29", xlR1C1, xlA1)).EntireColumn.Hidden = True
>
> とか、
>
> WkObjSheet.Columns(objApp.ConvertFormula("C27:C29", xlR1C1, xlA1)).Hidden = True
>
> とか、
>
> WkObjSheet.Range(WkObjSheet.Columns(27), WkObjSheet.Columns(29)).Hidden = True
>
> とか。

できました！
非常に参考になりました。

ありがとうございました。

■No11209に返信(CHEさんの記事)
> ■No11208に返信(魔界の仮面弁士さんの記事)
>>2005/06/09(Thu) 22:37:00 編集(投稿者)
>>
> >> With WkObjSheet.Columns("27:29")
> >> .Select
> >> .EntireColumn.Hidden = True
> >> End With
>>
>>たとえば、
>>
>>WkObjSheet.Range(objApp.ConvertFormula("C27:C29", xlR1C1, xlA1)).EntireColumn.Hidden = True
>>
>>とか、
>>
>>WkObjSheet.Columns(objApp.ConvertFormula("C27:C29", xlR1C1, xlA1)).Hidden = True
>>
>>とか、
>>
>>WkObjSheet.Range(WkObjSheet.Columns(27), WkObjSheet.Columns(29)).Hidden = True
>>
>>とか。
>
> できました！
> 非常に参考になりました。
>
> ありがとうございました。