はじめまして。

VB6 + EXCEL2000 の環境ですが、
VB6 から エクセルのファイルを開き、
一通りの作業はできたのですが、
余分な列を削除させる処理で悩んでおります。

マクロで記録したら下記のようになりました。
Columns("N:N").Select
Selection.Delete Shift:=xlToLeft

これを下記のようにして、
VB6 で行っても、列が削除されません。
xlSheet.Columns("N:N").Select
Selection.Delete Shift:=xlToLeft

下手な説明で申し訳ありませんが、
ご教授お願いいたします。

たとえば、
　MsgBox Text1.Text
という処理を、
　Text1.SetFocus
　MsgBox ActiveControl.Text
などと書いたりはしませんよね? Excel の場合も同様です。
Selection に頼ったコードは、基本的には使わないようにしましょう。


> xlSheet.Columns("N:N").Select
> Selection.Delete Shift:=xlToLeft

「xlSheet.Columns("N:N").Delete xlToLeft」とか。

魔界の仮面弁士さんありがとうございました。

教えて頂いたとおりにやりましたら、
きちんとできました。

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