投稿日	： 2005/02/27(Sun) 20:17
投稿者	： yuki
ＵＲＬ	：
タイトル	： Excelの操作方法

お世話になります。
VBから、Excelのワークブックを開き、Sheet1A列の最初の空白行の行番号を取得したいのですが、
うまくいきません。
Private Sub Command1_Click()
Dim xl As Object 'Excel.Application
    Dim wb As Object 'Excel.Workbook
    Dim ws As Object 'Excel.Worksheet
    
    ' エクセルオブジェクトの新しいインスタンスを作成
    Set xl = CreateObject("Excel.Application")
    
    ' ファイル名を指定してワークブックを開く
    Set wb = xl.Workbooks.Open("C:\temp\Book1.xls")
    
    ' エクセルを表示
     xl.Visible = True
    
    ' シート名を指定してオブジェクトを定義
    Set ws = wb.Worksheets("Sheet1")

　　　ws.Range("a65536").End(xlup).Select
        j = ws.ActiveCell.Row + 1
　　msgbox j
End Sub

ws.Range("a65536").End(xlup).Selectのxlupでコンパイルエラーになります。
どのように変更すればよいのでしょうか？
よろしくおねがいします。

★ - Excelの操作方法 - yuki 02/27-20:17No.2295
• Re: Excelの操作方法 - 花ちゃん 02/27-22:50 No.2297