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

>     Dim MaxRow, MaxRow0 As Long    

これだと、MaxRow0だけがLong型で、MaxRowはVariant型になります

>     Set xlApp = Excel.Application
>     Set xlBook = xlApp.Workbooks.Add
>     Set xlSheet = xlBook.Worksheets(1)

ここで、xlBookに新規に作成したブックを入れて、xlSheetにそのブックの
1番目のシートを入れていますが、これはどこにも使われていませんね。

>     MaxRow0 = xlApp.ActiveSheet.Range("IV6").End(xlToLeft).Column

ここで、最終列を求めているようですが、なぜ変数名が行を表わす名前なんでしょうか？(^^;

変数xlSheetを使うとすると、こんな感じでしょうか？

Dim xlApp   As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim MaxRow As Long    
Dim MaxCol As Long    

Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

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

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