投稿日	： 2004/12/08(Wed) 12:51
投稿者	： Wendy
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: EXCELの操作関連につきまして

こんにちは。
ちょっと失礼します。

＞すでに開いているEXCEL上のデータを
現在、アプリケーションが、開いているときは、GetObject を使用します。

Private Sub Command1_Click()
　　Dim xlApp As excel.Application
　　Dim xlBook As excel.Workbook
　　Dim xlSheet As excel.Worksheet
　　Dim xlPath As String
　　Dim MaxRow As Long, MaxColumn As Long
　　On Error GoTo ErrHandler
　　Set xlApp = GetObject(, "Excel.Application")
　　Set xlSheet = xlApp.Sheets(1)
　　With xlSheet
　　　　MsgBox .Cells(6, 1).Value
　　　　MaxRow = .Range("A65536").End(xlUp).Row
　　　　MaxColumn = .Range("IV6").End(xlToLeft).Column
　　　　MsgBox "A列の最大行は、 " & MaxRow & vbCr & _
　　　　　　　 "6行目の最大列は、　" & MaxColumn
　　End With
ErrHandler:
　　If Err.Number > 0 Then
　　　　MsgBox Err.Description, 64
　　End If
　　Set xlApp = Nothing
End Sub

★ - EXCELの操作関連につきまして - てこな 12/07-20:14No.1170
• Re: EXCELの操作関連につきまして - 花ちゃん 12/07-21:42 No.1171
  • Re^2: EXCELの操作関連につきまして - てこな 12/07-23:58 No.1172
    • Re^3: EXCELの操作関連につきまして - LESIA 12/08-09:49 No.1173
      • Re^4: EXCELの操作関連につきまして - てこな 12/08-12:13 No.1175
        • Re^5: EXCELの操作関連につきまして - Wendy 12/08-12:51 No.1176
          • Re^6: EXCELの操作関連につきまして - LESIA 12/08-13:03 No.1177
            • Re^7: EXCELの操作関連につきまして - Wendy 12/08-15:21 No.1178
              • Re^8: EXCELの操作関連につきまして - てこな 12/08-16:51 No.1179