投稿日	： 2004/12/07(Tue) 23:58
投稿者	： てこな
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: EXCELの操作関連につきまして

早速のご指摘申し訳ありません。
本サイト内のご指摘をいただきましたあたり
「VBからExcel及びWordを操作する時の注意事項 や
Excel のタスクを正常に終了できない現象」を
私なりにですが精査し、以下のように修正し、
エラー自体は改善することができました。


（修正前）
Private Sub Command2_Click()
Dim MaxRow As Long    
    MaxRow = Range("A65536").End(xlUp).Row
    MsgBox (MaxRow)
End Sub

（修正後）
Private Sub Command8_Click()
    Dim xlApp   As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim MaxRow, MaxRow0 As Long    
    Set xlApp = Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

　　MsgBox (xlApp.ActiveSheet.Cells(6, 1).Value)
    MaxRow = xlApp.ActiveSheet.Range("A65536").End(xlUp).Row
    MaxRow0 = xlApp.ActiveSheet.Range("IV6").End(xlToLeft).Column
    MsgBox (MaxRow)
    MsgBox (MaxRow0)

しかし、すでに開いているEXCEL上のデータを
MsgBoxの結果より上手に拾うことができませんでした。
その辺りまだ十分理解できていないように思えます。

お忙しい中申し訳ございませんが、
宜しければご指摘をいただけると幸いです。

以上

★ - 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