環境は、VB2005+EXCEL2003+WinXPです。
VB2005から新規EXCELブックを作り、Sheet1全てのセルを「セルの書式設定」→「表示形式」で【文字列】にしたいのですが、どのようにしたらいいのでしょうか？
お助け下さい。

尚、エクセルは下記のコードで新規作成してます。
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim xlApp As Excel.Application
Dim xlBooks As Excel.Workbooks
Dim xlBook As Excel._Workbook
Dim xlSheets As Excel.Sheets
Dim xlSheet As Excel._Worksheet

xlApp = New Excel.Application()
xlBooks = xlApp.Workbooks
xlBook = xlBooks.Add
xlSheets = xlBook.Worksheets
xlSheet = xlSheets.Item(1)

xlApp.Visible = True

MRComObject(xlSheet)
MRComObject(xlSheets)
MRComObject(xlBook)
MRComObject(xlBooks)
MRComObject(xlApp)
End Sub

とりあえず、全てのセルを「セルの書式設定」→「表示形式」で【文字列】の動作を
Excelで実際にやってみてマクロを記録してみませう。

> 環境は、VB2005+EXCEL2003+WinXPです。
> 尚、エクセルは下記のコードで新規作成してます。
> Dim xlApp As Excel.Application

Excel 2003 なら上記では、エラーがでませんか？
(検索キーワード [PIA] )

マクロの結果は下記になりますが、そのまま使うとプロセスが残るので
   Dim xlCells As Excel.Range
   xlCells = xlSheet.Cells

　　　　　　↓

   xlCells.Select()
   xlCells.NumberFormatLocal = "@"
   MRComObject(xlCells)

　のようにする必要があります。

解決しました。
どうも有難うございました。


> > 環境は、VB2005+EXCEL2003+WinXPです。
> > 尚、エクセルは下記のコードで新規作成してます。
> > Dim xlApp As Excel.Application
>
> Excel 2003 なら上記では、エラーがでませんか？
> (検索キーワード [PIA] )

すみません。環境がVB2005+EXCEL2003+Win2000SP4でした。
下記のコードで、実行してもエラーが出ていないので、大丈夫だと思うのですが・・・。
また、VB2005+EXCEL2007+WinXPの環境でも問題なく動作することが出来ました。


Public Class Form1
'COM参照設定 [Microsoft Excel 11.0 Object Library] チェック済み
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xlApp As Excel.Application
        Dim xlBooks As Excel.Workbooks
        Dim xlBook As Excel._Workbook
        Dim xlSheets As Excel.Sheets
        Dim xlSheet As Excel._Worksheet
        Dim xlCells As Excel.Range

        xlApp = New Excel.Application()
        xlBooks = xlApp.Workbooks
        xlBook = xlBooks.Add
        xlSheets = xlBook.Worksheets
        xlSheet = DirectCast(xlSheets.Item(1), Excel._Worksheet)
        xlCells = xlSheet.Cells
        xlCells.Select()
        xlCells.NumberFormatLocal = "@"
        xlCells = xlSheet.Range("A1")
        xlCells.Select()

        xlApp.Visible = True

        MRComObject(xlCells)
        MRComObject(xlSheet)
        MRComObject(xlSheets)
        MRComObject(xlBook)
        MRComObject(xlBooks)
        MRComObject(xlApp)
    End Sub

    Private Sub MRComObject(ByRef objCom As Object)
        Try
            If Not objCom Is Nothing AndAlso System.Runtime.InteropServices.Marshal.IsComObject(objCom) Then
                Dim I As Integer
                Do
                    I = System.Runtime.InteropServices.Marshal.ReleaseComObject(objCom)
                Loop Until I <= 0
            End If
        Catch
        Finally
            objCom = Nothing
        End Try
    End Sub

End Class