EXCELの指定列の表示形式変更について (ID:84696)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VBAで別のエクセルを起動して、起動したエクセルの 指定列の表示形式を変更したいのですが下記のコードを記述した所 エラーが出てしまいます。 どなたか理解できる方がいらっしゃいましたら、ご教授をお願い致します。 Private Sub Command1_Click() Dim ExcelA As Object ' Excel.Application Dim ExcelW As Object ' Excel.Workbook '新規にExcelを起動 Set ExcelA = CreateObject("Excel.Application") 'オープンしたファイルを見せない ExcelA.Visible = False '既存ファイルを開く Set ExcelW = ExcelA.Workbooks.Open(C:\Test1.xls) 'セルの行を選択 Range("A:A").Select 'セルの表示形式変更(数値型) Selection.NumberFormatLocal = "0_ " ※ここで落ちる 'ファイルを作成 ActiveWorkbook.SaveAs Filename:="C:\Test2.xls" 'Workファイル終了 ActiveWorkbook.Saved = True ActiveWorkbook.Close Set ExcelA = Nothing Set ExcelW = Nothing End Sub 環境はVB6．0 Excel2000です。 よろしくお願いします。